Changeset 2279 for palm/trunk/SOURCE


Ignore:
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:
1 edited

Legend:

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

    r2271 r2279  
    2121! Current revisions:
    2222! ------------------
    23 !
     23! Bugfix, set filepointer to the beginning of the file after namelist read,
     24! in order to assure that further namelists are also found.
    2425!
    2526! Former revisions:
     
    125126
    126127    INTEGER ::  m_world_comm  !< global nesting communicator
    127     INTEGER ::  m_my_cpl_id   !< coupler id of this model
     128    INTEGER ::  m_my_cpl_id   !< coupler id of this modelfortran return
    128129    INTEGER ::  m_parent_id   !< coupler id of parent of this model
    129130    INTEGER ::  m_ncpl        !< number of couplers given in nestpar namelist
     
    479480    CALL check_open( 11 )
    480481    READ ( 11, nestpar, IOSTAT=istat )
     482!
     483!-- Set filepointer to the beginning of the file. Otherwise PE0 will later
     484!-- be unable to read the inipar-NAMELIST
     485    REWIND ( 11 )
    481486
    482487    IF ( istat < 0 )  THEN
     
    486491       pmc_status = pmc_no_namelist_found
    487492
    488 !
    489 !--    Set filepointer to the beginning of the file. Otherwise PE0 will later
    490 !--    be unable to read the inipar-NAMELIST
    491        REWIND ( 11 )
    492493       RETURN
    493494
Note: See TracChangeset for help on using the changeset viewer.