From 9a2527bf6fdb4f576d1b80a9cc448d8b02607a4c Mon Sep 17 00:00:00 2001 From: "larissa.reames@noaa.gov" Date: Wed, 12 Feb 2025 20:48:50 +0000 Subject: [PATCH] Remove extraneous spaces --- io/fv3atm_history_io.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/io/fv3atm_history_io.F90 b/io/fv3atm_history_io.F90 index 1e3de8c06..82af1beb2 100644 --- a/io/fv3atm_history_io.F90 +++ b/io/fv3atm_history_io.F90 @@ -326,7 +326,7 @@ subroutine history_type_output(hist, time, diag, atm_block, nx, ny, levs, ntcw, ! if(mpp_pe()==mpp_root_pe())print *,'in,fv3atm_io. rad longwave avg, field=',trim(Diag(idx)%name),' time=',time_radlw else if ( trim(diag(idx)%time_avg_kind) == 'rad_sw' ) then !lcnvfac = lcnvfac*min(rtime_radsw,rtime_int) - lcnvfac = lcnvfac*rtime_radsw/int(time_int/dt_atmos) + lcnvfac = lcnvfac*rtime_radsw/int(time_int/dt_atmos) ! if(mpp_pe()==mpp_root_pe())print *,'in,fv3atm_io. rad shortwave avg, field=',trim(Diag(idx)%name),' time=',time_radsw else if ( trim(diag(idx)%time_avg_kind) == 'rad_swlw_min' ) then !lcnvfac = lcnvfac*min(max(rtime_radsw,rtime_radlw),rtime_int)