Ignore:
Timestamp:
Feb 14, 2018 4:01:55 PM (4 years ago)
Author:
thiele
Message:

Introduce particle transfer in nested models

File:
1 edited

Legend:

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

    r2718 r2801  
    2525! -----------------
    2626! $Id$
     27! Introduce particle transfer in nested models.
     28!
     29! 2718 2018-01-02 08:49:38Z maronga
    2730! Corrected "Former revisions" section
    2831!
     
    142145
    143146    INTEGER ::  m_world_comm  !< global nesting communicator
    144     INTEGER ::  m_my_cpl_id   !< coupler id of this modelfortran return
     147    INTEGER ::  m_my_cpl_id   !< coupler id of this model
    145148    INTEGER ::  m_parent_id   !< coupler id of parent of this model
    146149    INTEGER ::  m_ncpl        !< number of couplers given in nestpar namelist
    147150
    148     TYPE(pmc_layout), DIMENSION(pmc_max_models) ::  m_couplers  !< information of all couplers
     151    TYPE(pmc_layout), PUBLIC, DIMENSION(pmc_max_models) ::  m_couplers  !< information of all couplers
    149152
    150153    INTEGER, PUBLIC ::  m_model_comm          !< communicator of this model
     
    221224       THEN
    222225!
    223 !--       Determine the first process id of each model
     226!--       Calculate start PE of every model
    224227          start_pe(1) = 0
    225228          DO  i = 2, m_ncpl+1
Note: See TracChangeset for help on using the changeset viewer.