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)