use MOABDEBUG flag for verbose message

also, only on the master task
jingtao-lbl · Mar 28, 2024 · b170f68 · b170f68
1 parent 91bd552
commit b170f68
Showing 1 changed file with 13 additions and 3 deletions.
diff --git 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)