Changeset 1639 for palm/trunk/SOURCE

Timestamp:

Aug 31, 2015 2:46:48 PM (9 years ago)

Author:

knoop

Message:

Bugfix: gfortran expects LEN=13 to be matched

File:

• palm/trunk/SOURCE/modules.f90 (modified) (3 diffs)

palm/trunk/SOURCE/modules.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! Bugfix: string 'unknown' extended to match LEN=13 
 !
 ! Former revisions:
@@ -1153 +1153 @@
              'w"u"0        ', 'w"v"0        ', 'w"q"0        ',                &
              'mo_L         ', 'q*           ',                                 &
-             ( 'unknown', i9 = 1, dots_max-23 ) /)
+             ( 'unknown      ', i9 = 1, dots_max-23 ) /)
 
     CHARACTER (LEN=13), DIMENSION(dots_max) :: dots_unit =                     &
@@ -1164 +1164 @@
              'm2/s2        ', 'm2/s2        ', 'kg m/s       ',                &
              'm            ', 'kg/kg        ',                                 &
-             ( 'unknown', i9 = 1, dots_max-23 ) /)
+             ( 'unknown      ', i9 = 1, dots_max-23 ) /)
 
     CHARACTER (LEN=9), DIMENSION(300) ::  dopr_unit = 'unknown'