Ignore:
Timestamp:
Apr 10, 2019 9:31:22 AM (2 years ago)
Author:
suehring
Message:

Make level 3 initialization of urban-surfaces consistent to input data standard; revise flagging of ground-floor level surfaces at buidlings; bugfixes in level 3 initialization of albedo; bugfix in OpenMP directive; check for zero output timestep in surface output; assure that Obukhov lenght does not become zero

File:
1 edited

Legend:

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

    r3834 r3881  
    2626! -----------------
    2727! $Id$
     28! Assure that Obukhov length does not become zero
     29!
     30! 3834 2019-03-28 15:40:15Z forkel
    2831! added USE chem_gasphase_mod
    2932!
     
    11881191                CYCLE
    11891192             ENDIF
     1193!
     1194!--          Assure that Obukhov length does not become zero
     1195             IF ( ABS( surf%ol(m) ) < 1E-6_wp )                                &
     1196                surf%ol(m) = SIGN( 10E-6_wp, surf%ol(m) )             
    11901197
    11911198          ENDDO
Note: See TracChangeset for help on using the changeset viewer.