diff --git a/io/fv3atm_history_io.F90 b/io/fv3atm_history_io.F90 index 45de91ac9..2e1aeb59e 100644 --- a/io/fv3atm_history_io.F90 +++ b/io/fv3atm_history_io.F90 @@ -329,7 +329,8 @@ subroutine history_type_output(hist, time, diag, atm_block, nx, ny, levs, ntcw, 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) + !lcnvfac = lcnvfac*min(max(rtime_radsw,rtime_radlw),rtime_int) + lcnvfac = lcnvfac*max(rtime_radsw,rtime_radlw)/int(time_int/dtatmos) ! if(mpp_pe()==mpp_root_pe())print *,'in,fv3atm_io. rad swlw min avg, field=',trim(Diag(idx)%name),' time=',time_radlw,time_radsw,time_int else lcnvfac = lcnvfac*rtime_int