Ignore:
Timestamp:
Aug 21, 2017 2:59:59 PM (7 years ago)
Author:
kanani
Message:

Vertical nesting implemented (SadiqHuq?)

File:
1 edited

Legend:

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

    r2320 r2365  
    2525! -----------------
    2626! $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
    2731! Remove unused control parameter large_scale_forcing from only-list
    2832!
     
    166170    USE control_parameters,                                                    &
    167171        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,                  &
    169173               ibc_pt_b, ibc_pt_t, ibc_q_b, ibc_q_t, ibc_s_b, ibc_s_t,         &
    170174               ibc_sa_t, ibc_uv_b, ibc_uv_t, inflow_l, inflow_n, inflow_r,     &
     
    237241    ENDIF
    238242
    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)
    241248    ENDIF
    242249
Note: See TracChangeset for help on using the changeset viewer.