Changeset 2365 for palm/trunk/SOURCE/local_stop.f90

Timestamp:

Aug 21, 2017 2:59:59 PM (7 years ago)

Author:

kanani

Message:

Vertical nesting implemented (SadiqHuq?)

File:

• palm/trunk/SOURCE/local_stop.f90 (modified) (3 diffs)

palm/trunk/SOURCE/local_stop.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Vertical nesting implemented (SadiqHuq)
+! 
+! 2101 2017-01-05 16:42:31Z suehring
 !
 ! 2000 2016-08-20 18:09:15Z knoop
@@ -75 +78 @@
         ONLY:  nested_run
 
+    USE vertical_nesting_mod,                                                  &
+        ONLY:  vnested
+
 #if defined( __parallel )
     IF ( coupling_mode == 'uncoupled' )  THEN
@@ -92 +98 @@
           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