Changeset 3881 for palm/trunk/SOURCE/surface_layer_fluxes_mod.f90

Timestamp:

Apr 10, 2019 9:31:22 AM (4 years ago)

Author:

suehring

Message:

Make level 3 initialization of urban-surfaces consistent to input data standard; revise flagging of ground-floor level surfaces at buidlings; bugfixes in level 3 initialization of albedo; bugfix in OpenMP directive; check for zero output timestep in surface output; assure that Obukhov lenght does not become zero

File:

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

palm/trunk/SOURCE/surface_layer_fluxes_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Assure that Obukhov length does not become zero
+! 
+! 3834 2019-03-28 15:40:15Z forkel
 ! added USE chem_gasphase_mod 
 ! 
@@ -1188 +1191 @@
                 CYCLE
              ENDIF
+!
+!--          Assure that Obukhov length does not become zero
+             IF ( ABS( surf%ol(m) ) < 1E-6_wp )                                &
+                surf%ol(m) = SIGN( 10E-6_wp, surf%ol(m) )              
 
           ENDDO