Changeset 2849


Ignore:
Timestamp:
Mar 5, 2018 10:49:33 AM (7 years ago)
Author:
Giersch
Message:

Position of d3par namelist in parameter file is unimportant now

File:
1 edited

Legend:

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

    r2826 r2849  
    2525! -----------------
    2626! $Id$
     27! Position of d3par namelist in parameter file is unimportant now
     28!
     29! 2826 2018-02-21 12:39:28Z Giersch
    2730! Bugfix in setting the default boundary conditions for nest domains
    28 ! 
     31!
    2932! 2817 2018-02-19 16:32:21Z knoop
    3033! Preliminary gust module interface implemented
    31 ! 
     34!
    3235! 2773 2018-01-30 14:12:54Z suehring
    3336! Nesting for chemical species implemented
     
    427430
    428431    IMPLICIT NONE
     432
     433    CHARACTER (LEN=80) ::  line  !< dummy string that contains the current line of the parameter file
    429434
    430435    INTEGER(iwp) ::  global_id      !< process id with respect to MPI_COMM_WORLD
     
    715720
    716721!
    717 !--       Read runtime parameters given by the user for this run (namelist
    718 !--       "d3par"). The namelist "d3par" can be omitted. In that case, default
    719 !--       values are used for the parameters.
    720           READ ( 11, d3par, END=20 )
     722!--       Try to read runtime parameters given by the user for this run
     723!--       (namelist "d3par"). The namelist "d3par" can be omitted. In that case
     724!--       default values are used for the parameters.
     725          line = ' '
     726
     727          REWIND ( 11 )
     728          line = ' '
     729          DO   WHILE ( INDEX( line, '&d3par' ) == 0 )
     730             READ ( 11, '(A)', END=20 )  line
     731          ENDDO
     732          BACKSPACE ( 11 )
     733
     734!
     735!--       Read namelist
     736          READ ( 11, d3par )
     737
    721738 20       CONTINUE
    722739
Note: See TracChangeset for help on using the changeset viewer.