Changeset 2849 for palm/trunk

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:

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

palm/trunk/SOURCE/parin.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Position of d3par namelist in parameter file is unimportant now 
+! 
+! 2826 2018-02-21 12:39:28Z Giersch
 ! Bugfix in setting the default boundary conditions for nest domains
-! 
+!
 ! 2817 2018-02-19 16:32:21Z knoop
 ! Preliminary gust module interface implemented
-! 
+!
 ! 2773 2018-01-30 14:12:54Z suehring
 ! Nesting for chemical species implemented
@@ -427 +430 @@
 
     IMPLICIT NONE
+
+    CHARACTER (LEN=80) ::  line  !< dummy string that contains the current line of the parameter file 
 
     INTEGER(iwp) ::  global_id      !< process id with respect to MPI_COMM_WORLD
@@ -715 +720 @@
 
 !
-!--       Read runtime parameters given by the user for this run (namelist
-!--       "d3par"). The namelist "d3par" can be omitted. In that case, default
-!--       values are used for the parameters.
-          READ ( 11, d3par, END=20 )
+!--       Try to read runtime parameters given by the user for this run
+!--       (namelist "d3par"). The namelist "d3par" can be omitted. In that case
+!--       default values are used for the parameters.
+          line = ' '
+
+          REWIND ( 11 )
+          line = ' '
+          DO   WHILE ( INDEX( line, '&d3par' ) == 0 )
+             READ ( 11, '(A)', END=20 )  line
+          ENDDO
+          BACKSPACE ( 11 )
+
+!
+!--       Read namelist
+          READ ( 11, d3par )
+
  20       CONTINUE