Changeset 2017 for palm/trunk/UTIL/interpret_config.f90

Timestamp:

Sep 29, 2016 6:22:33 AM (8 years ago)

Author:

raasch

Message:

Bugfix in case of # of output files > 100

File:

• palm/trunk/UTIL/interpret_config.f90 (modified) (2 diffs)

palm/trunk/UTIL/interpret_config.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-!
+! Bugfix in case of # of output files > 100
 !
 ! Former revisions:
@@ -493 +493 @@
                            '"; typeout[',I1,']="',A,'"'/'pathout[',I1,']="',A, &
                            '"; endout[',I1,']="',A,'"; extout[',I1,']="',A,'"')
-                ELSEIF ( iin < 100 )  THEN
+                ELSEIF ( iout < 100 )  THEN
                       WRITE (2,2004)  iout, s1(1:is1), iout, s2c(1:is2c), &
                                       iout, s3(1:is3), iout, s4(1:is4), &