From dc75c9c9d63648a09a9c1a4de94af63604a2e4b6 Mon Sep 17 00:00:00 2001
From: "Bin.Liu" <Bin.Liu@noaa.gov>
Date: Fri, 8 Apr 2022 00:15:12 +0000
Subject: [PATCH] Ensure printing out the "PASS: fcstRUN phase ..." in the same
 line, so that one can easily check/track the wallclock time for each time
 step.

---
 module_fcst_grid_comp.F90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/module_fcst_grid_comp.F90 b/module_fcst_grid_comp.F90
index 0b31815df..39ca4a098 100644
--- 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
 !
 !-----------------------------------------------------------------------
 !