Commit 3e71ce93 authored by dingwell's avatar dingwell
Browse files

Updated input check for sfc_option

parent 515712ef
......@@ -571,12 +571,18 @@ subroutine readinput
stop
endif
if ((sfc_option.ne.sfc_option_diagnosed) .and. &
(sfc_option.ne.sfc_option_wrf )) then
if (sfc_option.eq.sfc_option_diagnosed) then
if (option_verbose.ge.1) write(*,*) 'SFC_OPTION =',sfc_option
elseif (sfc_option.eq.sfc_option_wrf) then
write(*,*) ' #### FLEXPART MODEL ERROR! SFC_OPTION =',sfc_option
write(*,*) ' #### Reading from WRF no longer supported.'
write(*,*) ' #### ---------------------------------'
stop
else
write(*,*) ' #### FLEXPART MODEL ERROR! #### '
write(*,*) ' #### SFC_OPTION MUST BE ONE OF: #### '
write(*,'(5x,5i5)') sfc_option_diagnosed, sfc_option_wrf
write(*,*) ' #### --------------------------------- #### '
write(*,*) ' #### ---------------------------------'
stop
endif
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment