Changeset 2548 for palm/trunk
- Timestamp:
- Oct 16, 2017 1:18:20 PM (7 years ago)
- File:
-
- 1 edited
-
palm/trunk/SOURCE/land_surface_model_mod.f90 (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/land_surface_model_mod.f90
r2547 r2548 1956 1956 ! 1957 1957 !-- Calculate specific humidity at saturation 1958 q_s = 0.622_wp * e_s / surface_pressure - e_s1958 q_s = 0.622_wp * e_s / surface_pressure 1959 1959 1960 1960 resistance = surf%r_a(m) / ( surf%r_a(m) + surf%r_s(m) )
Note: See TracChangeset
for help on using the changeset viewer.
