Changeset 2017 for palm


Ignore:
Timestamp:
Sep 29, 2016 6:22:33 AM (8 years ago)
Author:
raasch
Message:

Bugfix in case of # of output files > 100

File:
1 edited

Legend:

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

    r1310 r2017  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Bugfix in case of # of output files > 100
    2323!
    2424! Former revisions:
     
    493493                           '"; typeout[',I1,']="',A,'"'/'pathout[',I1,']="',A, &
    494494                           '"; endout[',I1,']="',A,'"; extout[',I1,']="',A,'"')
    495                 ELSEIF ( iin < 100 )  THEN
     495                ELSEIF ( iout < 100 )  THEN
    496496                      WRITE (2,2004)  iout, s1(1:is1), iout, s2c(1:is2c), &
    497497                                      iout, s3(1:is3), iout, s4(1:is4), &
Note: See TracChangeset for help on using the changeset viewer.