Changeset 3149 for palm

Timestamp:

Jul 19, 2018 5:48:09 AM (6 years ago)

Author:

maronga

Message:

correct accidental commit

File:

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

palm/trunk/SOURCE/surface_layer_fluxes_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Correct accidental last commit
+! 
+! 3148 2018-07-19 05:45:25Z maronga
 ! Major bugfix in calculation of Obukhov length
 ! 
@@ -984 +987 @@
                                            ) * ibit                            &
                                          )                                     &
-                              )**2 +                                           &
-                              ( g / surf%pt1(m) * surf%z_mo(m) * surf%shf(m)   &
-                              )**(2.0_wp/3.0_wp)                               &
+                              )**2                                             &
                                 )