Changeset 2365 for palm/trunk/SOURCE/init_pegrid.f90
- Timestamp:
- Aug 21, 2017 2:59:59 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/init_pegrid.f90
r2300 r2365 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Vertical nesting implemented (SadiqHuq) 28 ! 29 ! 2300 2017-06-29 13:31:14Z raasch 27 30 ! host-specific settings removed 28 31 ! … … 228 231 ONLY: nxl_y, nxl_yd, nxl_z, nxr_y, nxr_yd, nxr_z, nyn_x, nyn_z, nys_x,& 229 232 nys_z, nzb_x, nzb_y, nzb_yd, nzt_x, nzt_yd, nzt_y 233 234 USE vertical_nesting_mod, & 235 ONLY: vnested, vnest_init_pegrid_domain, vnest_init_pegrid_rank 230 236 231 237 IMPLICIT NONE … … 335 341 336 342 ! 343 !-- Vertical nesting: store four lists that identify partner ranks to exchange 344 !-- data 345 IF ( vnested ) CALL vnest_init_pegrid_rank 346 347 ! 337 348 !-- Determine sub-topologies for transpositions 338 349 !-- Transposition from z to x: … … 642 653 CALL MPI_TYPE_COMMIT( type_xy, ierr ) 643 654 644 IF ( TRIM( coupling_mode ) /= 'uncoupled' ) THEN655 IF ( TRIM( coupling_mode ) /= 'uncoupled' .AND. .NOT. vnested ) THEN 645 656 646 657 ! … … 743 754 ENDIF 744 755 756 ! 757 !-- Store partner grid point co-ordinates as lists. 758 !-- Create custom MPI vector datatypes for contiguous data transfer 759 IF ( vnested ) CALL vnest_init_pegrid_domain 745 760 746 761 #endif
Note: See TracChangeset
for help on using the changeset viewer.