Fix bugs part 2

GEOS-ESM · Jan 22, 2024 · aead7e1 · aead7e1
1 parent 5e45e7f
commit aead7e1
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/generic/MAPL_Generic.F90 b/generic/MAPL_Generic.F90
@@ -5567,7 +5567,7 @@ subroutine MAPL_ESMFStateWriteToFile(STATE,CLOCK,FILENAME,FILETYPE,MPL,HDR, writ
       character(LEN=*),                 intent(INout) :: FILETYPE
       type(MAPL_MetaComp),              intent(INOUT) :: MPL
       logical,                          intent(IN   ) :: HDR
-      logical,                          intent(IN   ) :: write_with_server
+      logical, optional,                intent(IN   ) :: write_with_oserver
       integer, optional,                intent(  OUT) :: RC
 
       character(len=ESMF_MAXSTR), parameter :: IAm="MAPL_ESMFStateWriteToFile"
@@ -8333,7 +8333,7 @@ subroutine MAPL_GetResourceFromConfig_scalar(config, val, label, default, rc)
       logical :: value_is_set
 
       call MAPL_GetResource_config_scalar(config, val, label, value_is_set, default = default, rc = status)
-      
+
       if(.not. value_is_set) then
          if (present(rc)) rc = ESMF_FAILURE
          return
@@ -8356,15 +8356,15 @@ subroutine MAPL_GetResource_array(state, vals, label, default, rc)
 
       logical :: value_is_set
       integer :: status
-      
+
       call MAPL_GetResource_config_array(state%cf, vals, label, value_is_set, &
          default = default, component_name = state%compname, rc = status)
-      
+
       if(.not. value_is_set) then
          if (present(rc)) rc = ESMF_FAILURE
          return
       end if
-      
+
       _VERIFY(status)
 
       _RETURN(_SUCCESS)