Convert _VERIFY and _RETURN to VERIFY_ and RETURN_

climbfuji · Oct 21, 2019 · adf615c · adf615c
1 parent 50a775b
commit adf615c
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/geos_utils/rs_scaleMod.F90 b/geos_utils/rs_scaleMod.F90
@@ -245,7 +245,7 @@ subroutine scale_drymass(FVAtm,moist_tracers,rc)
 
       deallocate(qv,qlls,qlcn,cfls,cfcn,qils,qicn,pk,pe,pke,area,dp,psold,psnew,pdryold,pdrynew)
 
-      _RETURN(ESMF_SUCCESS)
+      RETURN_(ESMF_SUCCESS)
 
    end subroutine scale_drymass
 
@@ -275,7 +275,7 @@ subroutine AreaMean ( q, area, qave, rc )
 
     ! get VM (should get from the grid, but this is quicker)
     call ESMF_VmGetCurrent(vm, rc=status)
-    _VERIFY(STATUS)
+    VERIFY_(STATUS)
 
     im = size(area,1) ! local grid dim
     jm = size(area,2) ! local grid dim
@@ -294,7 +294,7 @@ subroutine AreaMean ( q, area, qave, rc )
 
     call MAPL_CommsAllReduceSum(vm, sendbuf=qdumloc, recvbuf=qdum, &
          cnt=2, RC=status)
-    _VERIFY(STATUS)
+    VERIFY_(STATUS)
 
     if (qdum(2) /= 0.0_8) then
 
@@ -307,7 +307,7 @@ subroutine AreaMean ( q, area, qave, rc )
        qave = MAPL_Undef
     end if
 
-    _RETURN(ESMF_SUCCESS)
+    RETURN_(ESMF_SUCCESS)
   end subroutine AreaMean
 
 end module rs_scaleMod