Changeset 4690 for palm/trunk


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/surface_layer_fluxes_mod.f90

    r4671 r4690  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Bugfix for commit 4593 in vector branch of calc_ol
    2323!
    2424! Former revisions:
     
    12021202!
    12031203!--             Calculate f = Ri - [...]/[...]^2 = 0
    1204                 f = surf%rib(m) - ( z_mo_vec(m) / ol_m ) * ( surf%ln_z_z0(m)                       &
     1204                f = surf%rib(m) - ( z_mo_vec(m) / ol_m ) * ( surf%ln_z_z0h(m)                      &
    12051205                                                           - psi_h( z_mo_vec(m) / ol_m )           &
    12061206                                                           + psi_h( surf%z0h(m) / ol_m )           &
Note: See TracChangeset for help on using the changeset viewer.