Ensure printing out the "PASS: fcstRUN phase ..." in the same line, s…

…o that one can easily check/track the wallclock time for each time step.
NOAA-EMC · Apr 8, 2022 · dc75c9c · dc75c9c
1 parent f4056a4
commit dc75c9c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/module_fcst_grid_comp.F90 b/module_fcst_grid_comp.F90
@@ -1170,7 +1170,7 @@ subroutine fcst_run_phase_1(fcst_comp, importState, exportState,clock,rc)
       call atmos_model_exchange_phase_1 (Atmos, rc=rc)
       if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, line=__LINE__, file=__FILE__)) return
 
-      if (mype == 0) write(*,*)"PASS: fcstRUN phase 1, n_atmsteps = ",n_atmsteps, ' time is ', mpi_wtime()-tbeg1
+      if (mype == 0) write(*,'(A,I,A,F)')"PASS: fcstRUN phase 1, n_atmsteps = ",n_atmsteps, ' time is ', mpi_wtime()-tbeg1
 !
 !-----------------------------------------------------------------------
 !
@@ -1247,7 +1247,7 @@ subroutine fcst_run_phase_2(fcst_comp, importState, exportState,clock,rc)
         endif
       endif
 
-      if (mype == 0) write(*,*)"PASS: fcstRUN phase 2, n_atmsteps = ",n_atmsteps, ' time is ', mpi_wtime()-tbeg1
+      if (mype == 0) write(*,'(A,I,A,F)')"PASS: fcstRUN phase 2, n_atmsteps = ",n_atmsteps, ' time is ', mpi_wtime()-tbeg1
 !
 !-----------------------------------------------------------------------
 !