From 00bcfa9db7658a0454b1baeb4594089b2cffb73f Mon Sep 17 00:00:00 2001 From: Uriel Ramirez Date: Wed, 4 Oct 2023 12:45:18 -0400 Subject: [PATCH 1/2] replace write command with a NOTE --- driver/GFDL/atmosphere.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/driver/GFDL/atmosphere.F90 b/driver/GFDL/atmosphere.F90 index 9a79bb95c..e5e8dc296 100644 --- a/driver/GFDL/atmosphere.F90 +++ b/driver/GFDL/atmosphere.F90 @@ -40,7 +40,7 @@ module atmosphere_mod write_version_number, & mpp_clock_id, mpp_clock_begin, & mpp_clock_end, CLOCK_SUBCOMPONENT, & - clock_flag_default + clock_flag_default, string use fms2_io_mod, only: file_exists use mpp_mod, only: mpp_error, FATAL, NOTE, input_nml_file, & mpp_npes, mpp_get_current_pelist, & @@ -206,7 +206,7 @@ subroutine atmosphere_init (Time_init, Time, Time_step, Surf_diff, Grid_box) !For regional a_step = 0 current_time_in_seconds = time_type_to_real( Time - Time_init ) - if (mpp_pe() == 0) write(0,"('atmosphere_init: current_time_seconds = ',f9.1)")current_time_in_seconds + call mpp_error(NOTE, 'atmosphere_init: current_time_seconds = '//string(current_time_in_seconds)) allocate(pelist(mpp_npes())) call mpp_get_current_pelist(pelist) From 2d48fde0f22b17b1d23882c72876036e174008fa Mon Sep 17 00:00:00 2001 From: Uriel Ramirez Date: Tue, 10 Oct 2023 12:54:42 -0400 Subject: [PATCH 2/2] Remove the write call instead of using mpp_error, Note --- driver/GFDL/atmosphere.F90 | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/driver/GFDL/atmosphere.F90 b/driver/GFDL/atmosphere.F90 index e5e8dc296..1b9f30925 100644 --- a/driver/GFDL/atmosphere.F90 +++ b/driver/GFDL/atmosphere.F90 @@ -40,7 +40,7 @@ module atmosphere_mod write_version_number, & mpp_clock_id, mpp_clock_begin, & mpp_clock_end, CLOCK_SUBCOMPONENT, & - clock_flag_default, string + clock_flag_default use fms2_io_mod, only: file_exists use mpp_mod, only: mpp_error, FATAL, NOTE, input_nml_file, & mpp_npes, mpp_get_current_pelist, & @@ -206,7 +206,6 @@ subroutine atmosphere_init (Time_init, Time, Time_step, Surf_diff, Grid_box) !For regional a_step = 0 current_time_in_seconds = time_type_to_real( Time - Time_init ) - call mpp_error(NOTE, 'atmosphere_init: current_time_seconds = '//string(current_time_in_seconds)) allocate(pelist(mpp_npes())) call mpp_get_current_pelist(pelist)