Changeset 1590 for palm/trunk/SOURCE/radiation_model.f90

Timestamp:

May 8, 2015 1:56:27 PM (7 years ago)

Author:

maronga

Message:

bugfix in definition of character arrays within the LSM and radiation code

File:

• palm/trunk/SOURCE/radiation_model.f90 (modified) (2 diffs)

palm/trunk/SOURCE/radiation_model.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Bugfix: definition of character strings requires same length for all elements
 ! 
 ! Former revisions:
@@ -111 +111 @@
 !
 !-- Predefined Land surface classes (albedo_type) after Briegleb (1992)
-    CHARACTER(37), DIMENSION(0:16), PARAMETER :: albedo_type_name = (/    &
-                                   'user defined',                         & !  0 
-                                   'ocean',                                & !  1
-                                   'mixed farming, tall grassland',        & !  2
-                                   'tall/medium grassland',                & !  3 
-                                   'evergreen shrubland',                  & !  4
-                                   'short grassland/meadow/shrubland',     & !  5
-                                   'evergreen needleleaf forest',          & !  6
-                                   'mixed deciduous evergreen forest',     & !  7
-                                   'deciduous forest',                     & !  8
-                                   'tropical evergreen broadleaved forest',& !  9
-                                   'medium/tall grassland/woodland',       & ! 10
-                                   'desert, sandy',                        & ! 11 
-                                   'desert, rocky',                        & ! 12 
-                                   'tundra',                               & ! 13
-                                   'land ice',                             & ! 14 
-                                   'sea ice',                              & ! 15 
-                                   'snow'                                  & ! 16
+    CHARACTER(37), DIMENSION(0:16), PARAMETER :: albedo_type_name = (/      &
+                                   'user defined                         ', & !  0 
+                                   'ocean                                ', & !  1
+                                   'mixed farming, tall grassland        ', & !  2
+                                   'tall/medium grassland                ', & !  3 
+                                   'evergreen shrubland                  ', & !  4
+                                   'short grassland/meadow/shrubland     ', & !  5
+                                   'evergreen needleleaf forest          ', & !  6
+                                   'mixed deciduous evergreen forest     ', & !  7
+                                   'deciduous forest                     ', & !  8
+                                   'tropical evergreen broadleaved forest', & !  9
+                                   'medium/tall grassland/woodland       ', & ! 10
+                                   'desert, sandy                        ', & ! 11 
+                                   'desert, rocky                        ', & ! 12 
+                                   'tundra                               ', & ! 13
+                                   'land ice                             ', & ! 14 
+                                   'sea ice                              ', & ! 15 
+                                   'snow                                 '  & ! 16
                                                          /)