Changeset 2706 for palm/trunk/SOURCE/radiation_model_mod.f90

Timestamp:

Dec 18, 2017 6:33:49 PM (6 years ago)

Author:

suehring

Message:

Bugfixes in radiation and restarts in LSM

File:

• palm/trunk/SOURCE/radiation_model_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Bugfix, in average radiation case calculate exner function before using it.
 ! 
 ! Former revisions:
@@ -2323 +2323 @@
           IF ( cloud_physics )  ql1 = ql1_l
 #endif
+ 
+          exn1 = ( hyp(nzut) / 100000.0_wp )**0.286_wp
           IF ( cloud_physics )  pt1 = pt1 + l_d_cp / exn1 * ql1
 !