Remove write call (#291)

NOAA-GFDL · Oct 10, 2023 · be7343c · be7343c
2 parents 3b584df + 2d48fde
commit be7343c
Showing 1 changed file with 0 additions and 1 deletion.
diff --git a/driver/GFDL/atmosphere.F90 b/driver/GFDL/atmosphere.F90
@@ -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 )
-   if (mpp_pe() == 0) write(0,"('atmosphere_init: current_time_seconds = ',f9.1)")current_time_in_seconds
 
    allocate(pelist(mpp_npes()))
    call mpp_get_current_pelist(pelist)