Fix bugs

GEOS-ESM · Jan 22, 2024 · 5e45e7f · 5e45e7f
1 parent 2b66474
commit 5e45e7f
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/base/NCIO.F90 b/base/NCIO.F90
@@ -713,7 +713,8 @@ subroutine MAPL_VarWriteNCpar_R4_3d(formatter, name, A, ARRDES, oClients, RC)
     integer ::  i1, j1, in, jn,  global_dim(3)
     type(ArrayReference)     :: ref
 
-    if (present(oClients)) then
+    if (present(arrdes)) then
+      if (present(oClients)) then
           _ASSERT(present(oClients), "output server is needed")
           call MAPL_GridGet(arrdes%grid,globalCellCountPerDim=global_dim,rc=status)
           _VERIFY(status)
@@ -3298,6 +3299,9 @@ subroutine MAPL_BundleWriteNCPar(Bundle, arrdes, CLOCK, filename, oClients, rc)
     logical :: is_stretched
     character(len=ESMF_MAXSTR) :: positive
     type(StringVector) :: flip_vars
+    logical :: have_oclients
+
+    have_oclients = present(oClients)
 
     call ESMF_FieldBundleGet(Bundle,FieldCount=nVars, name=BundleName, rc=STATUS)
     _VERIFY(STATUS)