Changeset 3152 for palm/trunk/SOURCE/land_surface_model_mod.f90
- Timestamp:
- Jul 19, 2018 1:26:52 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/land_surface_model_mod.f90
r3147 r3152 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Further adjustments for q_surface 28 ! 29 ! 3147 2018-07-18 22:38:11Z maronga 27 30 ! Adjustments for new surface structure 28 31 ! … … 2321 2324 q(k,j,i) 2322 2325 ENDIF 2326 2327 surf%q_surface(m) = q(k+k_off,j+j_off,i+i_off) 2323 2328 ! 2324 2329 !-- Update virtual potential temperature 2325 surf%vpt_surface(m) = surf%pt_surface(m) * &2326 ( 1.0_wp + 0.61_wp * q(k+k_off,j+j_off,i+i_off) )2330 surf%vpt_surface(m) = surf%pt_surface(m) * & 2331 ( 1.0_wp + 0.61_wp * surf%q_surface(m) ) 2327 2332 2328 2333
Note: See TracChangeset
for help on using the changeset viewer.