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

Legend:

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

    r1588 r1590  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Bugfix: definition of character strings requires same length for all elements
    2323!
    2424! Former revisions:
     
    111111!
    112112!-- Predefined Land surface classes (albedo_type) after Briegleb (1992)
    113     CHARACTER(37), DIMENSION(0:16), PARAMETER :: albedo_type_name = (/    &
    114                                    'user defined',                        & !  0
    115                                    'ocean',                                & !  1
    116                                    'mixed farming, tall grassland',        & !  2
    117                                    'tall/medium grassland',                & !  3
    118                                    'evergreen shrubland',                  & !  4
    119                                    'short grassland/meadow/shrubland',    & !  5
    120                                    'evergreen needleleaf forest',          & !  6
    121                                    'mixed deciduous evergreen forest',    & !  7
    122                                    'deciduous forest',                    & !  8
    123                                    'tropical evergreen broadleaved forest',& !  9
    124                                    'medium/tall grassland/woodland',      & ! 10
    125                                    'desert, sandy',                        & ! 11
    126                                    'desert, rocky',                        & ! 12
    127                                    'tundra',                              & ! 13
    128                                    'land ice',                            & ! 14
    129                                    'sea ice',                              & ! 15
    130                                    'snow'                                  & ! 16
     113    CHARACTER(37), DIMENSION(0:16), PARAMETER :: albedo_type_name = (/      &
     114                                   'user defined                         ', & !  0
     115                                   'ocean                                ', & !  1
     116                                   'mixed farming, tall grassland        ', & !  2
     117                                   'tall/medium grassland                ', & !  3
     118                                   'evergreen shrubland                  ', & !  4
     119                                   'short grassland/meadow/shrubland     ', & !  5
     120                                   'evergreen needleleaf forest          ', & !  6
     121                                   'mixed deciduous evergreen forest     ', & !  7
     122                                   'deciduous forest                     ', & !  8
     123                                   'tropical evergreen broadleaved forest', & !  9
     124                                   'medium/tall grassland/woodland       ', & ! 10
     125                                   'desert, sandy                        ', & ! 11
     126                                   'desert, rocky                        ', & ! 12
     127                                   'tundra                               ', & ! 13
     128                                   'land ice                             ', & ! 14
     129                                   'sea ice                              ', & ! 15
     130                                   'snow                                 '  & ! 16
    131131                                                         /)
    132132
Note: See TracChangeset for help on using the changeset viewer.