Changeset 785 for palm/trunk/UTIL

Timestamp:

Nov 28, 2011 9:47:19 AM (13 years ago)

Author:

raasch

Message:

scalar quantities can be excluded from Rayleigh damping; bugfix for long lines in configuration file with more than 300 characters

File:

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

palm/trunk/UTIL/interpret_config.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Character length extended to 1000 in order to account for long lines in the
+! configuration file
 !
 ! Former revisions:
@@ -32 +33 @@
     IMPLICIT NONE
 
-    CHARACTER (LEN=1)   ::  bs = ACHAR( 92 )   ! backslash (auf vpp sonst n.
+    CHARACTER (LEN=1)    ::  bs = ACHAR( 92 )   ! backslash (auf vpp sonst n.
                                                ! druckbar)
-    CHARACTER (LEN=20)  ::  do_remote, do_trace, host, localhost
-    CHARACTER (LEN=100) ::  config_file, icf
-    CHARACTER (LEN=300) ::  cond1, cond2, empty = REPEAT( ' ', 240 ),       &
-                            for_cond1, for_cond2, for_host, input_list,     &
-                            iolist, output_list, s1, s2, s2a, s2b, s2c, s3, &
-                            s3cond, s4, s5, s6, value, value_mrun, var, zeile
+    CHARACTER (LEN=20)   ::  do_remote, do_trace, host, localhost
+    CHARACTER (LEN=100)  ::  config_file, icf
+    CHARACTER (LEN=1000) ::  cond1, cond2, empty = REPEAT( ' ', 240 ),       &
+                             for_cond1, for_cond2, for_host, input_list,     &
+                             iolist, output_list, s1, s2, s2a, s2b, s2c, s3, &
+                             s3cond, s4, s5, s6, value, value_mrun, var, zeile
 
     INTEGER ::  dummy, i, icomment = 0, icond1, icond2, idatver = 0, iec = 0,  &