NOAA-EMC · junwang-noaa · Apr 28, 2020 · Apr 17, 2020 · Apr 17, 2020 · Apr 17, 2020
diff --git a/atmos_model.F90 b/atmos_model.F90
@@ -2044,7 +2044,7 @@ subroutine setup_exportdata (rc)
 
     if (IPD_Control%cplflx) then
     ! MEAN Zonal compt of momentum flux (N/m**2)
-    idx = queryfieldlist(exportFieldsList,'mean_zonal_moment_flx')
+    idx = queryfieldlist(exportFieldsList,'mean_zonal_moment_flx_atm')
     if (idx > 0 ) then
 !$omp parallel do default(shared) private(i,j,nb,ix)
       do j=jsc,jec
@@ -2057,7 +2057,7 @@ subroutine setup_exportdata (rc)
     endif
 
     ! MEAN Merid compt of momentum flux (N/m**2)
-    idx = queryfieldlist(exportFieldsList,'mean_merid_moment_flx')
+    idx = queryfieldlist(exportFieldsList,'mean_merid_moment_flx_atm')
     if (idx > 0 ) then
 !$omp parallel do default(shared) private(i,j,nb,ix)
       do j=jsc,jec

diff --git a/ccpp/build_ccpp.sh b/ccpp/build_ccpp.sh
@@ -28,7 +28,6 @@ function usage   {
   echo "                                   SUITES=ABC,XYZ  (comma-separated list of CCPP suites; "
   echo "                                                    corresponding filenames: suite_ABC.xml. ...)"
   echo "                                   MULTI_GASES=Y/N (default N)"
-  echo "                                   INTEL16=Y/N     (default N)"
   echo "           clean_before [optional] can be 'YES' (default) or 'NO'"
   echo "           clean_after  [optional] can be 'YES' (default) or 'NO'"
   exit 1
@@ -129,14 +128,9 @@ if [[ "${MAKE_OPT}" == *"MULTI_GASES=Y"* ]]; then
 else
   CCPP_CMAKE_FLAGS="${CCPP_CMAKE_FLAGS} -DMULTI_GASES=OFF"
 fi
-if [[ "${MAKE_OPT}" == *"INTEL16=Y"* ]]; then
-  CCPP_CMAKE_FLAGS="${CCPP_CMAKE_FLAGS} -DLEGACY_INTEL=ON"
-elif [[ "${MACHINE_ID}" == "wcoss_cray" ]]; then
-  echo "In ccpp_build.sh: flag to cmake that wcoss_cray uses Intel 16"
-  CCPP_CMAKE_FLAGS="${CCPP_CMAKE_FLAGS} -DLEGACY_INTEL=ON"
-else
-  CCPP_CMAKE_FLAGS="${CCPP_CMAKE_FLAGS} -DLEGACY_INTEL=OFF"
-fi
+
+# Flag to cmake that modern Intel compilers are used
+CCPP_CMAKE_FLAGS="${CCPP_CMAKE_FLAGS} -DLEGACY_INTEL=OFF"
 
 # Generate additional CCPP cmake flags depending on machine / compiler
 if [[ "${MACHINE_ID}" == "macosx.gnu" ]]; then

diff --git a/ccpp/physics b/ccpp/physics
diff --git a/cpl/module_cap_cpl.F90 b/cpl/module_cap_cpl.F90
@@ -214,13 +214,15 @@ end subroutine realizeConnectedCplFields
   !-----------------------------------------------------------------------------
 
     subroutine Dump_cplFields(gcomp, importState, exportstate, clock_fv3,    &
-         statewrite_flag, timeslice)
+         statewrite_flag, state_tag, timestr)
 
       type(ESMF_GridComp), intent(in)       :: gcomp
       type(ESMF_State)                      :: importState, exportstate
       type(ESMF_Clock),intent(in)           :: clock_fv3
       logical, intent(in)                   :: statewrite_flag
-      integer                               :: timeslice
+      character(len=*),         intent(in)  :: state_tag                        !< Import or export.
+      character(len=*),         intent(in)  :: timestr                          !< Import or export.
+      integer                               :: timeslice = 1 
 !
       character(len=160) :: nuopcMsg
       character(len=160) :: filename
@@ -229,34 +231,39 @@ subroutine Dump_cplFields(gcomp, importState, exportstate, clock_fv3,    &
       call ESMF_ClockPrint(clock_fv3, options="currTime",                            &
                            preString="leaving FV3_ADVANCE with clock_fv3 current: ", &
                            unit=nuopcMsg)
-      call ESMF_LogWrite(nuopcMsg, ESMF_LOGMSG_INFO)
+!      call ESMF_LogWrite(nuopcMsg, ESMF_LOGMSG_INFO)
       call ESMF_ClockPrint(clock_fv3, options="startTime",                           &
                            preString="leaving FV3_ADVANCE with clock_fv3 start:   ", &
                            unit=nuopcMsg)
-      call ESMF_LogWrite(nuopcMsg, ESMF_LOGMSG_INFO)
+!      call ESMF_LogWrite(nuopcMsg, ESMF_LOGMSG_INFO)
       call ESMF_ClockPrint(clock_fv3, options="stopTime",                            &
                            preString="leaving FV3_ADVANCE with clock_fv3 stop:    ", &
                            unit=nuopcMsg)
-      call ESMF_LogWrite(nuopcMsg, ESMF_LOGMSG_INFO)
+!      call ESMF_LogWrite(nuopcMsg, ESMF_LOGMSG_INFO)
 
       ! Dumping Fields out
       if (statewrite_flag) then
-        timeslice = timeslice + 1
-        call ESMF_GridCompGet(gcomp, importState=importState, rc=rc)
-        if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, line=__LINE__, file=__FILE__)) return
-        ! replace with tiled field dumps
-        !call ESMFPP_RegridWriteState(importState, "fv3_cap_import_", timeslice, rc=rc)
-        write(filename,'(a,i6.6)') 'fv3_cap_import_',timeslice
-        call State_RWFields_tiles(importState,trim(filename), timeslice, rc=rc)
-        if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, line=__LINE__, file=__FILE__)) return
-        call ESMF_GridCompGet(gcomp, exportState=exportState, rc=rc)
-        if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, line=__LINE__, file=__FILE__)) return
 
-        ! replace with tiled field dumps
-        !call ESMFPP_RegridWriteState(exportState, "fv3_cap_export_", timeslice, rc=rc)
-        write(filename,'(a,i6.6)') 'fv3_cap_export_',timeslice
-        call State_RWFields_tiles(exportState,trim(filename), timeslice, rc=rc)
-        if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, line=__LINE__, file=__FILE__)) return
+        if(trim(state_tag) .eq. 'import')then 
+          call ESMF_GridCompGet(gcomp, importState=importState, rc=rc)
+          if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, line=__LINE__, file=__FILE__)) return
+          ! replace with tiled field dumps
+          !call ESMFPP_RegridWriteState(importState, "fv3_cap_import_", timeslice, rc=rc)
+          write(filename,'(a,a,a)') 'fv3_cap_import_'//trim(timestr)//'_'
+          call State_RWFields_tiles(importState,trim(filename), timeslice, rc=rc)
+          if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, line=__LINE__, file=__FILE__)) return
+        end if
+
+        if(trim(state_tag) .eq. 'export')then
+          call ESMF_GridCompGet(gcomp, exportState=exportState, rc=rc)
+          if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, line=__LINE__, file=__FILE__)) return
+          ! replace with tiled field dumps
+          !call ESMFPP_RegridWriteState(exportState, "fv3_cap_export_", timeslice, rc=rc)
+          write(filename,'(a,a,a)') 'fv3_cap_export_'//trim(timestr)//'_'
+          call State_RWFields_tiles(exportState,trim(filename), timeslice, rc=rc)
+          if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, line=__LINE__, file=__FILE__)) return
+        end if
+
       endif
 !
     end subroutine Dump_cplFields

diff --git a/cpl/module_cplfields.F90 b/cpl/module_cplfields.F90
@@ -39,8 +39,8 @@ module module_cplfields
        "vegetation_type                          ", &
        "inst_vegetation_area_frac                ", &
        "inst_surface_roughness                   ", &
-       "mean_zonal_moment_flx                    ", &
-       "mean_merid_moment_flx                    ", &
+       "mean_zonal_moment_flx_atm                ", &
+       "mean_merid_moment_flx_atm                ", &
        "mean_sensi_heat_flx                      ", &
        "mean_laten_heat_flx                      ", &
        "mean_down_lw_flx                         ", &

diff --git a/fv3_cap.F90 b/fv3_cap.F90
@@ -400,7 +400,7 @@ subroutine InitializeAdvertise(gcomp, importState, exportState, clock, rc)
       write_nemsioflip =.false.
       write_fsyncflag  =.false.
 
-      if(trim(output_grid) == 'gaussian_grid') then
+      if(trim(output_grid) == 'gaussian_grid' .or. trim(output_grid) == 'global_latlon') then
         call ESMF_ConfigGetAttribute(config=CF, value=imo, label ='imo:',rc=rc)
         call ESMF_ConfigGetAttribute(config=CF, value=jmo, label ='jmo:',rc=rc)
         call ESMF_ConfigGetAttribute(config=CF, value=write_nemsioflip, label ='write_nemsioflip:',rc=rc)
@@ -703,7 +703,7 @@ subroutine InitializeAdvertise(gcomp, importState, exportState, clock, rc)
           call ESMF_StateGet(wrtState(i),                                   &
                              itemName="mirror_"//trim(fcstItemNameList(j)), &
                              fieldbundle=wrtFB(j,i), rc=rc)
-          if(mype == 0) print *,'af get wrtfb=',"mirror_"//trim(fcstItemNameList(j)),'rc=',rc
+          if(mype == 0) print *,'af get wrtfb=',"mirror_"//trim(fcstItemNameList(j)),' rc=',rc
           if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, line=__LINE__, file=__FILE__)) return
 
 ! determine regridmethod
@@ -949,6 +949,7 @@ subroutine ModelAdvance(gcomp, rc)
     logical :: isAlarmEnabled, isAlarmRinging, lalarm, reconcileFlag
     character(len=*),parameter  :: subname='(fv3_cap:ModelAdvance)'
     character(240)              :: msgString
+    character(240)              :: import_timestr, export_timestr
 !jw debug
     character(ESMF_MAXSTR)      :: name
     integer :: mype,date(6), fieldcount, fcst_nfld
@@ -1026,6 +1027,10 @@ subroutine ModelAdvance(gcomp, rc)
                       m=date(5),s=date(6),rc=rc)
 !     if(mype==0) print *,'af clock,timestep date=',date
 !     if(mype==lead_wrttask(1)) print *,'on wrt lead,af clock,timestep date=',date
+!
+      call ESMF_ClockGet(clock_fv3, currTime=currTime, timeStep=timeStep, rc=rc)
+      call ESMF_TimeGet(currTime,          timestring=import_timestr, rc=rc)
+      call ESMF_TimeGet(currTime+timestep, timestring=export_timestr, rc=rc)
 !
 !-----------------------------------------------------------------------------
 !*** integration loop
@@ -1048,6 +1053,12 @@ subroutine ModelAdvance(gcomp, rc)
 
       if (ESMF_LogFoundError(rcToCheck=urc, msg=ESMF_LOGERR_PASSTHRU, line=__LINE__, file=__FILE__, rcToReturn=rc)) return
 
+      if ( cpl ) then
+       ! assign import_data called during phase=1
+       call Dump_cplFields(gcomp, importState, exportstate, clock_fv3,    &
+                           cplprint_flag, 'import', import_timestr)
+      endif
+
       call ESMF_GridCompRun(fcstComp, exportState=fcstState, clock=clock_fv3, &
                             phase=2, userRc=urc, rc=rc)
       if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, line=__LINE__, file=__FILE__)) return
@@ -1164,7 +1175,7 @@ subroutine ModelAdvance(gcomp, rc)
 !jw for coupled, check clock and dump import and export state
     if ( cpl ) then
        call Dump_cplFields(gcomp, importState, exportstate, clock_fv3,    &
-                           cplprint_flag, timeslice) 
+                           cplprint_flag, 'export', export_timestr) 
     endif
 
     if (mype==0) print *,'fv3_cap,end integrate,na=',na,' time=',mpi_wtime()- timeri
+57 −9		physics/GFS_PBL_generic.F90
+125 −0		physics/GFS_PBL_generic.meta
+2 −0		physics/GFS_surface_composites.F90
+2 −2		physics/gcm_shoc.meta
+2 −2		physics/module_MYJPBL_wrapper.meta
+2 −2		physics/module_MYNNPBL_wrapper.meta
+27 −52		physics/module_sf_noahmplsm.f90
+2 −2		physics/moninedmf.meta
+2 −2		physics/moninedmf_hafs.meta
+2 −2		physics/moninshoc.meta
+2 −2		physics/satmedmfvdif.meta
+2 −2		physics/satmedmfvdifq.F
+2 −2		physics/satmedmfvdifq.meta
+16 −8		physics/sfc_diff.f
+8 −24		physics/sfc_noahmp_drv.f
+0 −8		physics/sfc_noahmp_drv.meta
+67 −60		physics/sflx.f
+2 −2		physics/shalcnv.meta
+2 −2		physics/shinhongvdif.meta
+15 −12		physics/ugwp_driver_v0.F
+2 −2		physics/ysuvdif.meta