Changeset 707 for palm/trunk/SOURCE/modules.f90
- Timestamp:
- Mar 29, 2011 11:39:40 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/modules.f90
r684 r707 5 5 ! Current revisions: 6 6 ! ----------------- 7 ! 7 ! +bc_lr_dirrad, bc_lr_raddir, bc_ns_dirrad, bc_ns_raddir, left_border_pe, 8 ! north_border_pe, right_border_pe, south_border_pe 9 ! p_sub renamed p_loc 8 10 ! 9 11 ! Former revisions: … … 261 263 REAL, DIMENSION(:,:,:), ALLOCATABLE :: & 262 264 canopy_heat_flux, cdc, d, diss, lad_s, lad_u, lad_v, lad_w, lai, & 263 l_wall, p_ sub, sec, sls, tend, u_m_l, u_m_n, u_m_r, u_m_s, v_m_l, &265 l_wall, p_loc, sec, sls, tend, u_m_l, u_m_n, u_m_r, u_m_s, v_m_l, & 264 266 v_m_n, v_m_r, v_m_s, w_m_l, w_m_n, w_m_r, w_m_s 265 267 … … 481 483 482 484 LOGICAL :: adjust_mixing_length = .FALSE., avs_output = .FALSE., & 483 bc_lr_cyc =.TRUE., bc_ns_cyc = .TRUE., & 485 bc_lr_cyc =.TRUE., bc_lr_dirrad = .FALSE., & 486 bc_lr_raddir = .FALSE., bc_ns_cyc = .TRUE., & 487 bc_ns_dirrad = .FALSE., bc_ns_raddir = .FALSE., & 484 488 call_psolver_at_all_substeps = .TRUE., & 485 489 cloud_droplets = .FALSE., cloud_physics = .FALSE., & … … 1231 1235 INTEGER, DIMENSION(:), ALLOCATABLE :: ngp_yz, type_xz, type_yz 1232 1236 1233 LOGICAL :: collective_wait = .FALSE., reorder = .TRUE., & 1237 LOGICAL :: collective_wait = .FALSE., left_border_pe = .FALSE., & 1238 north_border_pe = .FALSE., reorder = .TRUE., & 1239 right_border_pe = .FALSE., south_border_pe = .TRUE., & 1234 1240 synchronous_exchange = .FALSE. 1241 1235 1242 LOGICAL, DIMENSION(2) :: cyclic = (/ .TRUE. , .TRUE. /), & 1236 1243 remain_dims
Note: See TracChangeset
for help on using the changeset viewer.