Changeset 4564 for palm/trunk/SOURCE/init_coupling.f90

Timestamp:

Jun 12, 2020 2:03:36 PM (4 years ago)

Author:

raasch

Message:

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

File:

• palm/trunk/SOURCE/init_coupling.f90 (modified) (5 diffs)

palm/trunk/SOURCE/init_coupling.f90

@@ -25 +25 @@
 ! ------------------
 ! $Id$
+! Vertical nesting method of Huq et al. (2019) removed
+! 
+! 4444 2020-03-05 15:59:50Z raasch
 ! bugfix: cpp-directives for serial mode added
 ! 
@@ -50 +53 @@
     
     USE pegrid
-
-    USE vertical_nesting_mod
 
     IMPLICIT NONE
@@ -84 +85 @@
        IF ( TRIM( coupling_mode ) == 'coupled_run' )  THEN
           i = 1
-       ELSEIF ( TRIM( coupling_mode ) == 'vnested_twi' )  THEN
-          i = 9
        ELSE
           i = 0
@@ -111 +110 @@
           CLOSE ( 90 )
        ENDIF
-    ELSEIF ( i == 9 )  THEN
-
-!
-!--    Set a flag to identify runs with vertical nesting
-       vnested = .TRUE.
-       
-       comm_inter = MPI_COMM_WORLD
-       
-!
-!--    Split the total available PE's into two groups
-!--    numprocs for coarse and fine grid are read from stdin (see above, and
-!--    execution command in the palmrun script, numprocs are provided via
-!--    palmrun option -Y)
-       IF ( myid < bc_data(1) )  THEN
-          inter_color     = 0
-          numprocs        = bc_data(1)
-          coupling_mode   = 'vnested_crse'
-       ELSE
-          inter_color     = 1
-          numprocs        = bc_data(2)
-          coupling_mode   = 'vnested_fine'
-       ENDIF
-       
-       CALL MPI_COMM_SPLIT( MPI_COMM_WORLD, inter_color, 0, comm_palm, ierr )
-       comm2d = comm_palm
-       
-       OPEN( 90, FILE='VNESTING_PORT_OPENED', FORM='FORMATTED' )
-       WRITE ( 90, '(''TRUE'')' )
-       CLOSE ( 90 )
-      
     ELSE
        comm_inter = MPI_COMM_WORLD
@@ -174 +143 @@
     ENDIF
 
-    IF (  TRIM( coupling_mode ) == 'vnested_fine' )  THEN
-!
-!-- Set file extension for vertical nesting
-       coupling_char = '_NV'
-    ENDIF
-
  END SUBROUTINE init_coupling