Skip to content
Merged
Changes from 1 commit
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
4 changes: 2 additions & 2 deletions src/offline/cable_output.F90
Original file line number Diff line number Diff line change
Expand Up @@ -2012,8 +2012,8 @@ SUBROUTINE write_output(dels, ktau, met, canopy, casaflux, casapool, ssnow, &
END IF
IF (out_settings%writenow) THEN
!divide by number of records in average (dels*%interval/24/3600)
out%Tmx = REAL(86400, 4)*out%Tmx/REAL(output%interval*INT(dels), 4)
out%Tmn = REAL(86400, 4)*out%Tmn/REAL(output%interval*INT(dels), 4)
out%Tmx = out%Tmx/NINT(REAL(output%interval*INT(dels),4)/86400)
out%Tmn = out%Tmn/NINT(REAL(output%interval*INT(dels),4)/86400)
Comment thread
SeanBryan51 marked this conversation as resolved.
Outdated
!write to file
CALL check_and_write(ovid%Txx, 'Txx', &
out%Txx, out%Txx, ranges%Tscrn, patchout%Tex, out_settings)
Expand Down
Loading