DATM updates and fixes (#8)

NOAA-EMC · Apr 30, 2020 · 8477b2a · 8477b2a
1 parent a50d5ab
commit 8477b2a
Show file tree

Hide file tree

Showing 11 changed files with 336 additions and 1,334 deletions.
diff --git a/DATM/AtmBundleCreate.F90 b/DATM/AtmBundleCreate.F90
@@ -21,6 +21,8 @@ subroutine AtmBundleCreate(gcomp,importState, exportState, rc)
 
   character(len=ESMF_MAXSTR)    :: aname, fnameb, fnamef
   character(len=ESMF_MAXSTR)    :: msgString
+  character(len=*),parameter    :: u_FILE_u = &
+     __FILE__
 
   ! Initialize return code
   rc = ESMF_SUCCESS
@@ -87,7 +89,7 @@ subroutine AtmBundleCreate(gcomp,importState, exportState, rc)
 
    write(msgString,'(i4,2a14,a16,2a14,a16)')ii,' added field ',trim(fnameb),' to AtmBundleBak', &
                                                '   and field ',trim(fnamef),' to AtmBundleFwd'
-   call ESMF_LogWrite(trim(msgString), ESMF_LOGMSG_INFO, rc=rc)
+   call ESMF_LogWrite(trim(msgString), ESMF_LOGMSG_INFO)
   enddo
 
   call ESMF_LogWrite("User init routine AtmBundleCreate finished", ESMF_LOGMSG_INFO)

diff --git a/DATM/AtmExportFields.F90 b/DATM/AtmExportFields.F90