Update bucket radiation scaling for rad_swlw_min variables

NOAA-EMC · Dec 17, 2024 · e602edb · e602edb
1 parent a53ddba
commit e602edb
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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