Changeset 4671 for palm/trunk/SOURCE/lagrangian_particle_model_mod.f90

Timestamp:

Sep 9, 2020 8:27:58 PM (4 years ago)

Author:

pavelkrc

Message:

Radiative transfer model RTM version 4.1

File:

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

palm/trunk/SOURCE/lagrangian_particle_model_mod.f90

@@ -24 +24 @@
 ! -----------------
 ! $Id$
+! Implementation of downward facing USM and LSM surfaces
+!
+! 4648 2020-08-25 07:52:08Z raasch
 ! file re-formatted to follow the PALM coding standard
 !
@@ -1055 +1058 @@
 !--    exact for heterogeneous z0.
 !--    However, sensitivity studies showed that the effect is negligible.
-       z0_av_local  = SUM( surf_def_h(0)%z0 ) + SUM( surf_lsm_h%z0 ) + SUM( surf_usm_h%z0 )
+       z0_av_local  = SUM( surf_def_h(0)%z0 ) + SUM( surf_lsm_h(0)%z0 ) + SUM( surf_usm_h(0)%z0 )
        z0_av_global = 0.0_wp