-
Notifications
You must be signed in to change notification settings - Fork 31
Closed
Labels
Description
@mvertens found this issue and does work on this in #74.
The FLOOD option currently can NOT be turned on because of the following logic in RtmMod.F90 where it aborts if it's turned on. But, more than that @mvertens found that it does NOT work if it's turned on. So it's a dead code option.
!-------------------------------------------------------
! Initialize mosart flood - rtmCTL%fthresh and evel
!-------------------------------------------------------
if (do_rtmflood) then
write(iulog,*) subname,' Flood not validated in this version, abort'
call shr_sys_abort(subname//' Flood feature unavailable')
call RtmFloodInit (frivinp_rtm, rtmCTL%begr, rtmCTL%endr, rtmCTL%fthresh, evel)
else
effvel(:) = effvel0 ! downstream velocity (m/s)
rtmCTL%fthresh(:) = abs(spval)
do nt = 1,nt_rtm
do nr = rtmCTL%begr,rtmCTL%endr
evel(nr,nt) = effvel(nt)
enddo
enddo
end ifWe definitely want to remove non-working code, but in further discussion with @swensosc and @slevis-lmwg there is a desire to have the FLOOD capability to still be part of the model, but reworked. I'll file that as a follow on issue to this one.