From 9d04e33cd398792661d4e2450198e8b5313dbeec Mon Sep 17 00:00:00 2001
From: Petra Lasch <lasch@pik-potsdam.de>
Date: Thu, 28 Mar 2019 11:21:22 +0100
Subject: [PATCH] Update day_ini.f
---
source_code/version2.2_windows/day_ini.f | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/source_code/version2.2_windows/day_ini.f b/source_code/version2.2_windows/day_ini.f
index cb15271..80d0650 100755
--- a/source_code/version2.2_windows/day_ini.f
+++ b/source_code/version2.2_windows/day_ini.f
@@ -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
--
GitLab