Ignore:
Timestamp:
Aug 31, 2015 2:46:48 PM (6 years ago)
Author:
knoop
Message:

Bugfix: gfortran expects LEN=13 to be matched

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/modules.f90

    r1576 r1639  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Bugfix: string 'unknown' extended to match LEN=13
    2323!
    2424! Former revisions:
     
    11531153             'w"u"0        ', 'w"v"0        ', 'w"q"0        ',                &
    11541154             'mo_L         ', 'q*           ',                                 &
    1155              ( 'unknown', i9 = 1, dots_max-23 ) /)
     1155             ( 'unknown      ', i9 = 1, dots_max-23 ) /)
    11561156
    11571157    CHARACTER (LEN=13), DIMENSION(dots_max) :: dots_unit =                     &
     
    11641164             'm2/s2        ', 'm2/s2        ', 'kg m/s       ',                &
    11651165             'm            ', 'kg/kg        ',                                 &
    1166              ( 'unknown', i9 = 1, dots_max-23 ) /)
     1166             ( 'unknown      ', i9 = 1, dots_max-23 ) /)
    11671167
    11681168    CHARACTER (LEN=9), DIMENSION(300) ::  dopr_unit = 'unknown'
Note: See TracChangeset for help on using the changeset viewer.