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

Timestamp:

Jun 12, 2017 3:23:44 PM (7 years ago)

Author:

suehring

Message:

Bugfix, set filepointer to the beginning of the file after namelist read

File:

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

palm/trunk/SOURCE/pmc_handle_communicator_mod.f90

@@ -21 +21 @@
 ! Current revisions:
 ! ------------------
-! 
+! Bugfix, set filepointer to the beginning of the file after namelist read, 
+! in order to assure that further namelists are also found.
 ! 
 ! Former revisions:
@@ -125 +126 @@
 
     INTEGER ::  m_world_comm  !< global nesting communicator
-    INTEGER ::  m_my_cpl_id   !< coupler id of this model
+    INTEGER ::  m_my_cpl_id   !< coupler id of this modelfortran return
     INTEGER ::  m_parent_id   !< coupler id of parent of this model
     INTEGER ::  m_ncpl        !< number of couplers given in nestpar namelist
@@ -479 +480 @@
     CALL check_open( 11 )
     READ ( 11, nestpar, IOSTAT=istat )
+!
+!-- Set filepointer to the beginning of the file. Otherwise PE0 will later
+!-- be unable to read the inipar-NAMELIST
+    REWIND ( 11 )
 
     IF ( istat < 0 )  THEN
@@ -486 +491 @@
        pmc_status = pmc_no_namelist_found
 
-!
-!--    Set filepointer to the beginning of the file. Otherwise PE0 will later
-!--    be unable to read the inipar-NAMELIST
-       REWIND ( 11 )
        RETURN