Changeset 4586 for palm/trunk/SOURCE/surface_mod.f90

Timestamp:

Jul 1, 2020 4:16:43 PM (4 years ago)

Author:

gronemeier

Message:

renamed Richardson flux number into gradient Richardson number (model_1d_mod.f90, turbulence_closure_mod.f90, header.f90, surface_mod.f90) and zeta (header.f90);
do not add whitespaces at current-revision section (document_changes)

File:

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

palm/trunk/SOURCE/surface_mod.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
-! 
+!
+!
 ! Former revisions:
 ! -----------------
 ! $Id$
+! renamed Richardson flux number into gradient Richardson number (1D model)
+!
+! 4559 2020-06-11 08:51:48Z raasch
 ! File re-formatted to follow the PALM coding standard
 !
@@ -166 +169 @@
 
     USE model_1d_mod,                                                                              &
-        ONLY:  rif1d,                                                                              &
+        ONLY:  ri1d,                                                                               &
                us1d,                                                                               &
                usws1d,                                                                             &
@@ -2535 +2538 @@
        IF ( .NOT. constant_diffusion )  THEN
           IF ( constant_flux_layer )  THEN
-             surf%ol(num_h)   = surf%z_mo(num_h) / ( rif1d(nzb+1) + 1.0E-20_wp )
+             surf%ol(num_h)   = surf%z_mo(num_h) / ( ri1d(nzb+1) + 1.0E-20_wp )
              surf%us(num_h)   = us1d
              surf%usws(num_h) = usws1d