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

Timestamp:

Sep 22, 2020 9:27:28 AM (4 years ago)

Author:

suehring

Message:

Bugfix for commit 4593 in vector branch of calc_ol

File:

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

palm/trunk/SOURCE/surface_layer_fluxes_mod.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! Bugfix for commit 4593 in vector branch of calc_ol
 !
 ! Former revisions:
@@ -1202 +1202 @@
 !
 !--             Calculate f = Ri - [...]/[...]^2 = 0
-                f = surf%rib(m) - ( z_mo_vec(m) / ol_m ) * ( surf%ln_z_z0(m)                       &
+                f = surf%rib(m) - ( z_mo_vec(m) / ol_m ) * ( surf%ln_z_z0h(m)                      &
                                                            - psi_h( z_mo_vec(m) / ol_m )           &
                                                            + psi_h( surf%z0h(m) / ol_m )           &