Skip to content

Commit cbbac74

Browse files
authored
Only print messages in CAP on master task (#861)
1 parent 32dc48e commit cbbac74

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

cicecore/drivers/nuopc/cmeps/ice_comp_nuopc.F90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -609,7 +609,7 @@ subroutine InitializeAdvertise(gcomp, importState, exportState, clock, rc)
609609
if (tfrz_option_driver /= tfrz_option) then
610610
write(errmsg,'(a)') trim(subname)//'WARNING: tfrz_option from driver '//trim(tfrz_option_driver)//&
611611
' is overwriting tfrz_option from cice namelist '//trim(tfrz_option)
612-
write(nu_diag,*) trim(errmsg)
612+
if (mastertask) write(nu_diag,*) trim(errmsg)
613613
call icepack_warnings_flush(nu_diag)
614614
call icepack_init_parameters(tfrz_option_in=tfrz_option_driver)
615615
endif
@@ -624,7 +624,7 @@ subroutine InitializeAdvertise(gcomp, importState, exportState, clock, rc)
624624
if (atmiter_conv_driver /= atmiter_conv) then
625625
write(errmsg,'(a,d13.5,a,d13.5)') trim(subname)//'WARNING: atmiter_ from driver ',&
626626
atmiter_conv_driver,' is overwritting atmiter_conv from cice namelist ',atmiter_conv
627-
write(nu_diag,*) trim(errmsg)
627+
if(mastertask) write(nu_diag,*) trim(errmsg)
628628
call icepack_warnings_flush(nu_diag)
629629
call icepack_init_parameters(atmiter_conv_in=atmiter_conv_driver)
630630
end if

0 commit comments

Comments
 (0)