Changeset 3133 for palm


Ignore:
Timestamp:
Jul 16, 2018 11:46:50 AM (6 years ago)
Author:
maronga
Message:

bugfix for last commit

File:
1 edited

Legend:

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

    r3127 r3133  
    2525! -----------------
    2626! $Id$
     27! Bugfix for last commit.
     28!
     29! 3127 2018-07-15 08:01:25Z maronga
    2730! Some adjustments for pavement parameters
    2831! Limit magnus formula to avoid negative q_s (leads to model crash)
     
    22852288!
    22862289!--       Calculate water vapour pressure at saturation and convert to hPa
    2287           e_s = 0.01_wp * magnus( MIN(surf_t_surface%var_1d(m), 333.15_wp) )                   
     2290          e_s = 0.01_wp * magnus( MIN(surf_t_surface_p%var_1d(m), 333.15_wp) )                   
    22882291
    22892292!
Note: See TracChangeset for help on using the changeset viewer.