Ignore:
Timestamp:
Aug 21, 2017 2:59:59 PM (4 years ago)
Author:
kanani
Message:

Vertical nesting implemented (SadiqHuq?)

File:
1 edited

Legend:

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

    r2101 r2365  
    2525! -----------------
    2626! $Id$
     27! Vertical nesting implemented (SadiqHuq)
     28!
     29! 2101 2017-01-05 16:42:31Z suehring
    2730!
    2831! 2000 2016-08-20 18:09:15Z knoop
     
    7578        ONLY:  nested_run
    7679
     80    USE vertical_nesting_mod,                                                  &
     81        ONLY:  vnested
     82
    7783#if defined( __parallel )
    7884    IF ( coupling_mode == 'uncoupled' )  THEN
     
    9298          ENDIF
    9399       ENDIF
     100    ELSEIF ( coupling_mode(1:8) == 'vnested_' )  THEN
     101
     102       PRINT*, '+++ local_stop:'
     103       PRINT*, '     model "', TRIM( coupling_mode ), '" terminated'
     104!
     105!--    Abort both coarse and fine grid
     106       CALL MPI_ABORT( MPI_COMM_WORLD, 9999, ierr )
    94107    ELSE
    95108
Note: See TracChangeset for help on using the changeset viewer.