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 ! !----------------------------------------------------------------------- !