Changeset 2365 for palm/trunk/SOURCE/boundary_conds.f90
- Timestamp:
- Aug 21, 2017 2:59:59 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/boundary_conds.f90
r2320 r2365 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Vertical grid nesting implemented: exclude setting vertical velocity to zero 28 ! on fine grid (SadiqHuq) 29 ! 30 ! 2320 2017-07-21 12:47:43Z suehring 27 31 ! Remove unused control parameter large_scale_forcing from only-list 28 32 ! … … 166 170 USE control_parameters, & 167 171 ONLY: bc_pt_t_val, bc_q_t_val, bc_s_t_val, constant_diffusion, & 168 cloud_physics, dt_3d, humidity,&172 cloud_physics, coupling_mode, dt_3d, humidity, & 169 173 ibc_pt_b, ibc_pt_t, ibc_q_b, ibc_q_t, ibc_s_b, ibc_s_t, & 170 174 ibc_sa_t, ibc_uv_b, ibc_uv_t, inflow_l, inflow_n, inflow_r, & … … 237 241 ENDIF 238 242 239 IF ( .NOT. nest_domain ) THEN 240 w_p(nzt:nzt+1,:,:) = 0.0_wp ! nzt is not a prognostic level (but cf. pres) 243 ! 244 !-- Vertical nesting: Vertical velocity not zero at the top of the fine grid 245 IF ( .NOT. nest_domain .AND. & 246 TRIM(coupling_mode) /= 'vnested_fine' ) THEN 247 w_p(nzt:nzt+1,:,:) = 0.0_wp !< nzt is not a prognostic level (but cf. pres) 241 248 ENDIF 242 249
Note: See TracChangeset
for help on using the changeset viewer.