From b170f683bf9bca914f40649e4119633353684283 Mon Sep 17 00:00:00 2001 From: Iulian Grindeanu Date: Tue, 5 Mar 2024 14:00:32 -0600 Subject: [PATCH] use MOABDEBUG flag for verbose message also, only on the master task --- driver-moab/main/seq_map_mod.F90 | 16 +++++++++++++--- 1 file changed, 13 insertions(+), 3 deletions(-) diff --git a/driver-moab/main/seq_map_mod.F90 b/driver-moab/main/seq_map_mod.F90 index 7deb5c2472d1..82da0474402f 100644 --- a/driver-moab/main/seq_map_mod.F90 +++ b/driver-moab/main/seq_map_mod.F90 @@ -611,11 +611,21 @@ subroutine seq_map_map( mapper, av_s, av_d, fldlist, norm, avwts_s, avwtsfld_s, ! for true intx cases, tgt_mbid is set to be the same as intx_mbid ! just read map is special if (mapper%read_map) then ! receive indeed in target app - write(logunit, *) subname,' iMOAB mapper receiving tags with read_map and tgt_mbid: ', mapper%mbname +#ifdef MOABDEBUG + if (seq_comm_iamroot(CPLID)) then + write(logunit, *) subname,' iMOAB mapper receiving tags with read_map and tgt_mbid: ', & + mapper%mbname, trim(fldlist_moab) + endif +#endif ierr = iMOAB_ReceiveElementTag( mapper%tgt_mbid, fldlist_moab, mapper%mpicom, mapper%src_context ) else ! receive in the intx app, trick - write(logunit, *) subname,' iMOAB mapper receiving tags with intx and intx_mbid: ', mapper%mbname - ierr = iMOAB_ReceiveElementTag( mapper%intx_mbid, fldlist_moab, mapper%mpicom, mapper%src_context ) +#ifdef MOABDEBUG + if (seq_comm_iamroot(CPLID)) then + write(logunit, *) subname,' iMOAB mapper receiving tags with intx and intx_mbid: ', & + mapper%mbname, trim(fldlist_moab) + endif +#endif + ierr = iMOAB_ReceiveElementTag( mapper%intx_mbid, fldlist_moab, mapper%mpicom, mapper%src_context ) endif if (ierr .ne. 0) then write(logunit,*) subname,' error in receiving tags ', mapper%mbname, 'recv:', mapper%intx_mbid, trim(fldlist_moab)