Changeset 3361 for palm/trunk/SOURCE/surface_layer_fluxes_mod.f90
- Timestamp:
- Oct 16, 2018 8:39:37 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/surface_layer_fluxes_mod.f90
r3274 r3361 237 237 238 238 USE basic_constants_and_equations_mod, & 239 ONLY: g, kappa, lv_d_cp, pi 239 ONLY: g, kappa, lv_d_cp, pi, rd_d_rv 240 240 241 241 USE chem_modules, & … … 1818 1818 EXP( 0.07_wp * ( MIN(pt(k-1,j,i),pt(k,j,i)) & 1819 1819 - 273.15_wp ) ) 1820 q(k-1,j,i) = 0.622_wp* e_s / ( surface_pressure - e_s )1820 q(k-1,j,i) = rd_d_rv * e_s / ( surface_pressure - e_s ) 1821 1821 ENDDO 1822 1822 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.