Changeset 785 for palm/trunk/UTIL


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/UTIL/interpret_config.f90

    r556 r785  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Character length extended to 1000 in order to account for long lines in the
     7! configuration file
    78!
    89! Former revisions:
     
    3233    IMPLICIT NONE
    3334
    34     CHARACTER (LEN=1)   ::  bs = ACHAR( 92 )   ! backslash (auf vpp sonst n.
     35    CHARACTER (LEN=1)    ::  bs = ACHAR( 92 )   ! backslash (auf vpp sonst n.
    3536                                               ! druckbar)
    36     CHARACTER (LEN=20)  ::  do_remote, do_trace, host, localhost
    37     CHARACTER (LEN=100) ::  config_file, icf
    38     CHARACTER (LEN=300) ::  cond1, cond2, empty = REPEAT( ' ', 240 ),       &
    39                             for_cond1, for_cond2, for_host, input_list,     &
    40                             iolist, output_list, s1, s2, s2a, s2b, s2c, s3, &
    41                             s3cond, s4, s5, s6, value, value_mrun, var, zeile
     37    CHARACTER (LEN=20)   ::  do_remote, do_trace, host, localhost
     38    CHARACTER (LEN=100)  ::  config_file, icf
     39    CHARACTER (LEN=1000) ::  cond1, cond2, empty = REPEAT( ' ', 240 ),       &
     40                             for_cond1, for_cond2, for_host, input_list,     &
     41                             iolist, output_list, s1, s2, s2a, s2b, s2c, s3, &
     42                             s3cond, s4, s5, s6, value, value_mrun, var, zeile
    4243
    4344    INTEGER ::  dummy, i, icomment = 0, icond1, icond2, idatver = 0, iec = 0,  &
Note: See TracChangeset for help on using the changeset viewer.