Changeset 3107 for palm

Timestamp:

Jul 6, 2018 3:55:51 PM (6 years ago)

Author:

suehring

Message:

Bugfix, missing index for dz

File:

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

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $Id$
+! Bugfix, missing index for dz
+! 
+! 3066 2018-06-12 08:55:55Z Giersch
 ! Error message revised 
 ! 
@@ -4381 +4384 @@
                      / (cp * hyp(nzub:nzut) * dx*dy*dz(1)) !< equals to 1 / (rho * c_p * Vbox * T)
          pctf_prep(:) = r_d * (hyp(nzub:nzut) / 100000.0_wp)**0.286_wp &
-                     / (l_v * hyp(nzub:nzut) * dx*dy*dz)
+                     / (l_v * hyp(nzub:nzut) * dx*dy*dz(1))
      ENDIF
 #endif