Ignore:
Timestamp:
Sep 7, 2018 12:21:44 PM (3 years ago)
Author:
raasch
Message:

references to mrun replaced by palmrun, and updated

File:
1 edited

Legend:

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

    r3083 r3232  
    2626! -----------------
    2727! $Id$
     28! references to mrun replaced by palmrun, and updated
     29!
     30! 3083 2018-06-19 14:03:12Z gronemeier
    2831! Error messages revised
    2932!
     
    9699    IMPLICIT NONE
    97100
    98     LOGICAL                                   ::  vnested = .FALSE.            !> set to true when
    99                                                                                !> mrun is called with -N option
     101    LOGICAL                                   ::  vnested = .FALSE.            !> set to true if palmrun
     102                                                                               !> provides specific information via stdin
    100103    LOGICAL                                   ::  vnest_init = .FALSE.         !> set to true when FG is initialized
    101104    REAL(wp)                                  ::  vnest_start_time = 9999999.9 !> simulated time when FG should be
     
    107110    INTEGER(iwp),DIMENSION(3,2)               :: bdims = 0        !> sub-domain grid topology of current PE
    108111    INTEGER(iwp),DIMENSION(3,2)               :: bdims_rem = 0    !> sub-domain grid topology of partner PE
    109     INTEGER(iwp)                              :: cg_nprocs        !> no. of PE in CG. Set by mrun -N
    110     INTEGER(iwp)                              :: fg_nprocs        !> no. of PE in FG. Set by mrun -N
     112    INTEGER(iwp)                              :: cg_nprocs        !> no. of PE in CG. Set by palmrun -Y
     113    INTEGER(iwp)                              :: fg_nprocs        !> no. of PE in FG. Set by palmrun -Y
    111114    INTEGER(iwp)                              :: TYPE_VNEST_BC    !> derived contiguous data type for interpolation
    112115    INTEGER(iwp)                              :: TYPE_VNEST_ANTER !> derived contiguous data type for anterpolation
Note: See TracChangeset for help on using the changeset viewer.