Changeset 2801 for palm/trunk/SOURCE/pmc_handle_communicator_mod.f90

Timestamp:

Feb 14, 2018 4:01:55 PM (6 years ago)

Author:

thiele

Message:

Introduce particle transfer in nested models

File:

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

palm/trunk/SOURCE/pmc_handle_communicator_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Introduce particle transfer in nested models.
+! 
+! 2718 2018-01-02 08:49:38Z maronga
 ! Corrected "Former revisions" section
 ! 
@@ -142 +145 @@
 
     INTEGER ::  m_world_comm  !< global nesting communicator
-    INTEGER ::  m_my_cpl_id   !< coupler id of this modelfortran return
+    INTEGER ::  m_my_cpl_id   !< coupler id of this model
     INTEGER ::  m_parent_id   !< coupler id of parent of this model
     INTEGER ::  m_ncpl        !< number of couplers given in nestpar namelist
 
-    TYPE(pmc_layout), DIMENSION(pmc_max_models) ::  m_couplers  !< information of all couplers
+    TYPE(pmc_layout), PUBLIC, DIMENSION(pmc_max_models) ::  m_couplers  !< information of all couplers
 
     INTEGER, PUBLIC ::  m_model_comm          !< communicator of this model
@@ -221 +224 @@
        THEN
 !
-!--       Determine the first process id of each model
+!--       Calculate start PE of every model
           start_pe(1) = 0
           DO  i = 2, m_ncpl+1