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

palm/trunk/SOURCE/local_stop.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Vertical nesting method of Huq et al. (2019) removed
+! 
+! 4444 2020-03-05 15:59:50Z raasch
 ! bugfix: misplaced cpp-directive moved
 ! 
@@ -57 +60 @@
 
     IF ( coupling_mode == 'uncoupled' )  THEN
+
        IF ( nested_run )  THEN
 !
@@ -72 +76 @@
           ENDIF
        ENDIF
-    ELSEIF ( coupling_mode(1:8) == 'vnested_' )  THEN
 
-       PRINT*, '+++ local_stop:'
-       PRINT*, '     model "', TRIM( coupling_mode ), '" terminated'
-!
-!--    Abort both coarse and fine grid
-       CALL MPI_ABORT( MPI_COMM_WORLD, 9999, ierr )
     ELSE