diff --git a/griddedio/FieldBundleRead.F90 b/griddedio/FieldBundleRead.F90 index 177d6d0f6cac..08b3a9b6311b 100644 --- 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 index 1fb4e134e304..8faa3c5984f8 100644 --- 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)