Skip to content
Snippets Groups Projects
Commit 9d04e33c authored by Petra Lasch-Born's avatar Petra Lasch-Born
Browse files

Update day_ini.f

parent e8ae3084
No related branches found
No related tags found
No related merge requests found
......@@ -50,11 +50,12 @@ if (hum .le. 0.) then
else if (hum .gt. 100.) then
hum = 100.
endif
if (press .gt. 0.) then
if (prs(i,j) .gt. 0.) then
press = prs(i,j)
else
press = 1013.
endif
rad = rd(i,j)
wind = wd(i,j)
if (wind .lt. 0.) wind = 0.5
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment