Ignore:
Timestamp:
Aug 13, 2018 12:26:14 PM (3 years ago)
Author:
maronga
Message:

set maximum value for aerodynamic resistance over horiztonal surfaces

File:
1 edited

Legend:

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

    r3161 r3196  
    2525! -----------------
    2626! $Id$
     27! Added maximum aerodynamic resistance of 300.
     28!
     29! 3161 2018-07-23 09:30:10Z maronga
    2730! Increased roughness of asphalt surfaces to account for turbulence production
    2831! by traffic and other obstacles
     
    19151918!
    19161919!--    Make sure that the resistance does not drop to zero for neutral
    1917 !--    stratification.
    1918        IF ( surf%r_a(m) < 1.0_wp )  surf%r_a(m) = 1.0_wp
     1920!--    stratification. Also, set a maximum resistance to avoid the breakdown of
     1921!--    MOST for locations with zero wind speed
     1922       IF ( surf%r_a(m) <   1.0_wp )  surf%r_a(m) =   1.0_wp
     1923       IF ( surf%r_a(m) > 300.0_wp )  surf%r_a(m) = 300.0_wp       
    19191924!
    19201925!--    Second step: calculate canopy resistance r_canopy
Note: See TracChangeset for help on using the changeset viewer.