Ignore:
Timestamp:
Jun 12, 2020 2:03:36 PM (10 months ago)
Author:
raasch
Message:

Vertical nesting method of Huq et al. (2019) removed

File:
1 edited

Legend:

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

    r4461 r4564  
    2525! -----------------
    2626! $Id$
     27! Vertical nesting method of Huq et al. (2019) removed
     28!
     29! 4461 2020-03-12 16:51:59Z raasch
    2730! communicator configurations for four virtual pe grids defined
    2831!
     
    139142    USE transpose_indices,                                                     &
    140143        ONLY:  nxl_yd, nxr_yd, nzb_yd, nzt_yd
    141 
    142     USE vertical_nesting_mod,                                                  &
    143         ONLY:  vnested, vnest_init_pegrid_domain, vnest_init_pegrid_rank
    144144#endif
    145145
     
    357357
    358358!
    359 !-- Vertical nesting: store four lists that identify partner ranks to exchange
    360 !-- data
    361     IF ( vnested )  CALL vnest_init_pegrid_rank
    362 
    363 !
    364359!-- Determine sub-topologies for transpositions
    365360!-- Transposition from z to x:
     
    666661    CALL MPI_TYPE_COMMIT( type_xy, ierr )
    667662
    668     IF ( TRIM( coupling_mode ) /= 'uncoupled' .AND. .NOT. vnested )  THEN
     663    IF ( TRIM( coupling_mode ) /= 'uncoupled' )  THEN
    669664   
    670665!
     
    766761
    767762    ENDIF
    768 
    769 !
    770 !-- Store partner grid point co-ordinates as lists.
    771 !-- Create custom MPI vector datatypes for contiguous data transfer
    772     IF ( vnested )  CALL vnest_init_pegrid_domain
    773763
    774764#else
Note: See TracChangeset for help on using the changeset viewer.