Changeset 4571 for palm/trunk/SOURCE

Timestamp:

Jun 24, 2020 8:59:06 AM (4 years ago)

Author:

sebschub

Message:

Bugfix in vertical lad_s coordinate in radiation_model_mod

File:

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

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $Id$
+! Bugfix in vertical lad_s coordinate
+! 
+! 4558 2020-06-10 16:27:30Z moh.hefny
 ! Bugfix: - reset RTM output average values after each averaging timestep to zero
 !         - correct calculation of rtm_rad_net_av
@@ -6133 +6136 @@
              j = pcbl(iy,ipcgb)
              k = pcbl(iz,ipcgb)
+             kk = k - topo_top_ind(j,i,0)  !- lad arrays are defined flat
              isurfsrc = csfsurf(2, icsf)
 
@@ -6158 +6162 @@
                 IF ( cos_zenith > 0 )  THEN
 !--                Estimate directed box absorption
-                   pc_abs_frac = 1.0_wp - exp(pc_abs_eff * lad_s(k,j,i))
+                   pc_abs_frac = 1.0_wp - exp(pc_abs_eff * lad_s(kk,j,i))
 !
 !--                isd has already been established, see (1)