Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

abort model when external surface emissivity file not existing for iemslw=1 #807

Closed
wants to merge 5 commits into from
Closed

abort model when external surface emissivity file not existing for iemslw=1 #807

Changes from 2 commits
Commits
Show all changes
5 commits
Select commit Hold shift + click to select a range
a59aeac
abort model when external surface emissivity file not existing for ie…
JiliDong-NOAA Dec 10, 2021
ec6bbb9
aligned with if block
JiliDong-NOAA Dec 10, 2021
f85a601
Merge branch 'NCAR:main' into update_rad_ems
JiliDong-NOAA Dec 13, 2021
4c0b05e
Merge branch 'NCAR:main' into update_rad_ems
JiliDong-NOAA Dec 17, 2021
9f64dc7
Merge branch 'NCAR:main' into update_rad_ems
JiliDong-NOAA Dec 20, 2021
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
6 changes: 4 additions & 2 deletions physics/radiation_surface.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -247,10 +247,12 @@ subroutine sfc_init &
if ( me == 0 ) then
print *,' - Using Varying Surface Emissivity for lw'
print *,' Requested data file "',semis_file,'" not found!'
print *,' Change to fixed surface emissivity = 1.0 !'
endif
errmsg = 'module_radiation_surface: surface emissivity
& file not provided'
errflg = 1
return

iemslw = 0
else
close(NIRADSF)
open (NIRADSF,file=semis_file,form='formatted',status='old')
Expand Down