to address the review comments for PR at #2

NOAA-EMC · May 26, 2022 · a3f2f89 · a3f2f89
1 parent c6d1679
commit a3f2f89
Show file tree

Hide file tree

Showing 2 changed files with 599 additions and 11 deletions.
diff --git a/src/aqm_cap.F90 b/src/aqm_cap.F90
@@ -61,8 +61,8 @@ module AQM
 
   private
 
-  real(8), parameter :: pi = 3.1415926535897931
-  real(8), parameter :: rad2deg = 180./pi
+  real(ESMF_KIND_R8), parameter :: pi = 3.1415926535897931
+  real(ESMF_KIND_R8), parameter :: rad2deg = 180./pi
 
   public SetServices
 
@@ -318,10 +318,6 @@ subroutine DataInitialize(model, rc)
     ! -- assume all fields on same grid and use first field
     call ESMF_StateGet(importState, field=field, &
       itemName=trim(importFieldNames(1)), rc=rc)
-!         write(msgString,*) &
-!          "hjp501a=", trim(importFieldNames(1)) 
-!          call ESMF_LogWrite(trim(name)//": hjp501:  &
-!          "//trim(msgString),ESMF_LOGMSG_INFO, rc=rc)
     if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, &
       line=__LINE__, &
       file=__FILE__)) &
@@ -334,11 +330,6 @@ subroutine DataInitialize(model, rc)
 
     if (geomtype == ESMF_GEOMTYPE_GRID) then
       call ESMF_FieldGet(field, grid=grid, array=array, rc=rc)
-!         write(msgString,*) &
-!           item,coord
-!          call ESMF_LogWrite(trim(name)//": hjp602:
-!          "//trim(msgString),ESMF_LOGMSG_INFO, rc=rc)
-
 
       if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, &
         line=__LINE__, &