Changeset 3122 for palm

Timestamp:

Jul 11, 2018 9:46:41 PM (6 years ago)

Author:

maronga

Message:

bugfix in radiation model that inhibited surface reflections

File:

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

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $Id$
+! Bugfix: maximum distance for raytracing was set to  -999 m by default,
+! effectively switching off all surface reflections when max_raytracing_dist
+! was not explicitly set in namelist
+! 
+! 3117 2018-07-11 09:59:11Z maronga
 ! Bugfix: water vapor was not transfered to RRTMG when cloud_physics = .F.
 ! Bugfix: changed the calculation of RRTMG boundary conditions (Mohamed Salim)
@@ -5166 +5171 @@
 !
 !--    check max_raytracing_dist relative to urban surface layer height
-!        mrl = 2.0_wp * nzu * dz
+       mrl = 2.0_wp * nzu * dz(1)
+       IF ( max_raytracing_dist == -999.0_wp ) THEN
+          max_raytracing_dist = mrl
+       ENDIF
 !        IF ( max_raytracing_dist <= mrl ) THEN
 !           IF ( max_raytracing_dist /= -999.0_wp ) THEN