Changeset 2267 for palm/trunk/SOURCE

Timestamp:

Jun 9, 2017 9:33:25 AM (7 years ago)

Author:

gronemeier

Message:

Bugfix: remove skipping of namelists in case of omitted d3par

File:

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

palm/trunk/SOURCE/parin.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix: removed skipping of reading namelists in case of omitted d3par
+! 
+! 2259 2017-06-08 09:09:11Z gronemeier
 ! Implemented synthetic turbulence generator
 !
@@ -578 +581 @@
 !--       values are used for the parameters.
           READ ( 11, d3par, END=20 )
+ 20       CONTINUE
 
 !
@@ -601 +605 @@
 !
 !--       Read control parameters for optionally used model software packages
- 20       CALL package_parin
+          CALL package_parin
 
 !