Changeset 4564 for palm/trunk/SOURCE/init_grid.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_grid.f90 (modified) (3 diffs)

palm/trunk/SOURCE/init_grid.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Vertical nesting method of Huq et al. (2019) removed
+! 
+! 4543 2020-05-20 14:12:22Z gronemeier
 ! Remove non-required check for canyon height
 ! 
@@ -184 +187 @@
 
     USE pegrid
-
-#if defined( __parallel )
-    USE vertical_nesting_mod,                                                  &
-        ONLY:  vnested, vnest_init_grid
-#endif
 
     IMPLICIT NONE
@@ -766 +764 @@
        ENDDO
     ENDIF
-
-#if defined( __parallel )
-!
-!-- Vertical nesting: communicate vertical grid level arrays between fine and
-!-- coarse grid
-    IF ( vnested )  CALL vnest_init_grid
-#endif
 
  END SUBROUTINE init_grid