Skip to content

Commit

Permalink
Remove extraneous spaces
Browse files Browse the repository at this point in the history
  • Loading branch information
LarissaReames-NOAA committed Feb 12, 2025
1 parent 7f55155 commit 9a2527b
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion io/fv3atm_history_io.F90
Original file line number Diff line number Diff line change
Expand Up @@ -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)
Expand Down

0 comments on commit 9a2527b

Please sign in to comment.