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

Timestamp:

Mar 26, 2018 9:39:22 AM (6 years ago)

Author:

maronga

Message:

renamed all Fortran NAMELISTS

File:

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

palm/trunk/SOURCE/pmc_handle_communicator_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! nestpar renamed to nesting_parameters
+! 
+! 2841 2018-02-27 15:02:57Z knoop
 ! Bugfix: wrong placement of include 'mpif.h' corrected
 ! 
@@ -146 +149 @@
 
     INTEGER, PARAMETER, PUBLIC ::  pmc_error_npes        = 1  !< illegal number of processes
-    INTEGER, PARAMETER, PUBLIC ::  pmc_namelist_error    = 2  !< error(s) in nestpar namelist
+    INTEGER, PARAMETER, PUBLIC ::  pmc_namelist_error    = 2  !< error(s) in nesting_parameters namelist
     INTEGER, PARAMETER, PUBLIC ::  pmc_no_namelist_found = 3  !< no couple layout namelist found
 
@@ -152 +155 @@
     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
+    INTEGER ::  m_ncpl        !< number of couplers given in nesting_parameters namelist
 
     TYPE(pmc_layout), PUBLIC, DIMENSION(pmc_max_models) ::  m_couplers  !< information of all couplers
@@ -268 +271 @@
 !--    comm2d have not yet been assigned at this point.
        IF ( m_world_rank == 0 )  THEN
-          message_string = 'errors in \$nestpar'
+          message_string = 'errors in \$nesting_parameters'
           CALL message( 'pmc_init_model', 'PA0223', 3, 2, 0, 6, 0 )
        ENDIF
@@ -484 +487 @@
     TYPE(pmc_layout), DIMENSION(pmc_max_models) ::  domain_layouts
 
-    NAMELIST /nestpar/  domain_layouts, nesting_datatransfer_mode, nesting_mode
-
+    NAMELIST /nesting_parameters/  domain_layouts, nesting_datatransfer_mode,  &
+                                   nesting_mode
+    
 !
 !-- Initialize some coupling variables
@@ -495 +499 @@
 !-- Open the NAMELIST-file and read the nesting layout
     CALL check_open( 11 )
-    READ ( 11, nestpar, IOSTAT=istat )
+    READ ( 11, nesting_parameters, IOSTAT=istat )
 !
 !-- Set filepointer to the beginning of the file. Otherwise process 0 will later
@@ -503 +507 @@
     IF ( istat < 0 )  THEN
 !
-!--    No nestpar-NAMELIST found
+!--    No nesting_parameters-NAMELIST found
        pmc_status = pmc_no_namelist_found
        RETURN
     ELSEIF ( istat > 0 )  THEN
 !
-!--    Errors in reading nestpar-NAMELIST
+!--    Errors in reading nesting_parameters-NAMELIST
        pmc_status = pmc_namelist_error
        RETURN
@@ -519 +523 @@
     m_couplers = domain_layouts
 !
-!-- Get the number of nested models given in the nestpar-NAMELIST
+!-- Get the number of nested models given in the nesting_parameters-NAMELIST
     DO  i = 1, pmc_max_models
 !