only log on master task

CICE-Consortium · May 2, 2024 · c551cc2 · c551cc2
1 parent a752208
commit c551cc2
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/cicecore/cicedyn/infrastructure/ice_domain.F90 b/cicecore/cicedyn/infrastructure/ice_domain.F90
@@ -237,8 +237,10 @@ subroutine init_domain_blocks
       max_blocks=((nx_global-1)/block_size_x/nprocs_x+1) * &
                   ((ny_global-1)/block_size_y/nprocs_y+1)
       max_blocks=max(1,max_blocks)
-      write(nu_diag,'(/,a52,i6,/)') &
-         '(ice_domain): max_block < 1: max_block estimated to ',max_blocks
+      if (my_task == master_task) then
+         write(nu_diag,'(/,a52,i6,/)') &
+            '(ice_domain): max_block < 1: max_block estimated to ',max_blocks
+      endif
    endif