Merge branch 'R21C' into feature/aelakkra/m21c_prod_MMup1

GEOS-ESM · Oct 22, 2024 · 2619cb5 · 2619cb5
2 parents 6178fe2 + 9221dbc
commit 2619cb5
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git a/griddedio/FieldBundleRead.F90 b/griddedio/FieldBundleRead.F90
@@ -21,6 +21,7 @@ module MAPL_ESMFFieldBundleRead
    use MAPL_SimpleAlarm
    use MAPL_StringTemplate
    use gFTL_StringVector
+   use MAPL_CommsMod
    use, intrinsic :: iso_fortran_env, only: REAL32
    implicit none
    private
@@ -175,6 +176,7 @@ subroutine MAPL_read_bundle(bundle,file_tmpl,time,only_vars,regrid_method,noread
 
          call fill_grads_template(file_name,file_tmpl,time=time,rc=status)
          _VERIFY(status)
+         if (mapl_am_I_root()) write(*,*)"MAPL_read_bundle reading: ",trim(file_name)
 
          collection_id=i_clients%add_ext_collection(trim(file_tmpl))
 

diff --git a/griddedio/FieldBundleWrite.F90 b/griddedio/FieldBundleWrite.F90
@@ -9,6 +9,7 @@ module MAPL_ESMFFieldBundleWrite
    use MAPL_VerticalDataMod
    use pFIO_ClientManagerMod, only: o_Clients
    use MAPL_ExceptionHandling
+   use MAPL_CommsMod
    implicit none
    private
 
@@ -120,6 +121,7 @@ subroutine write_to_file(this,rc)
 
          call this%cfio%bundlepost(this%file_name,oClients=o_clients,rc=status)
          _VERIFY(status)
+         if (mapl_am_I_root()) write(*,*)"MAPL_write_bundle writing: ",trim(this%file_name)
          call o_Clients%done_collective_stage(_RC)
          call o_Clients%wait()
          _RETURN(_SUCCESS)