Ignore:
Timestamp:
Oct 16, 2017 1:18:20 PM (4 years ago)
Author:
schwenkel
Message:

Bugfix for r2547

File:
1 edited

Legend:

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

    r2547 r2548  
    19561956!
    19571957!--       Calculate specific humidity at saturation
    1958           q_s = 0.622_wp * e_s / surface_pressure - e_s
     1958          q_s = 0.622_wp * e_s / surface_pressure
    19591959
    19601960          resistance = surf%r_a(m) / ( surf%r_a(m) + surf%r_s(m) )
Note: See TracChangeset for help on using the changeset viewer.