Ignore:
Timestamp:
Jul 24, 2017 3:57:07 PM (7 years ago)
Author:
schwenkel
Message:

Bugfix for calculate ol via lookup table

File:
1 edited

Legend:

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

    r2299 r2321  
    2525! -----------------
    2626! $Id$
     27! Bugfix: Correct index in lookup table for Obukhov length
     28!
     29! 2299 2017-06-29 10:14:38Z suehring
    2730! Adjusted for allow separate spinups of LSM and atmosphere code
    2831!
     
    13461349!--          correct direction
    13471350             li = li_bnd
    1348              IF ( rib_tab(li) - surf%rib(m) > 1.0_wp )  THEN
    1349                 DO  WHILE ( rib_tab(li-1) - surf%rib(m) > 1.0_wp  .AND.  li > 1 )
     1351             IF ( rib_tab(li) - surf%rib(m) > 0.0_wp )  THEN
     1352                DO  WHILE ( rib_tab(li-1) - surf%rib(m) > 0.0_wp  .AND.  li > 0 )
    13501353                   li = li-1
    13511354                ENDDO
Note: See TracChangeset for help on using the changeset viewer.