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/land_surface_model.f90

    r1586 r1590  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Bugfix: definition of character strings requires same length for all elements
    2323!
    2424! Former revisions:
     
    292292!-- Predefined Land surface classes (veg_type)
    293293    CHARACTER(26), DIMENSION(0:19), PARAMETER :: veg_type_name = (/ &
    294                                    'user defined',                  & ! 0
    295                                    'crops, mixed farming',          & !  1
    296                                    'short grass',                   & !  2
     294                                   'user defined              ',    & ! 0
     295                                   'crops, mixed farming      ',    & !  1
     296                                   'short grass               ',    & !  2
    297297                                   'evergreen needleleaf trees',    & !  3
    298298                                   'deciduous needleleaf trees',    & !  4
    299                                    'evergreen broadleaf trees' ,    & !  5
    300                                    'deciduous broadleaf trees',     & !  6
    301                                    'tall grass',                    & !  7
    302                                    'desert',                        & !  8
    303                                    'tundra',                        & !  9
    304                                    'irrigated crops',               & ! 10
    305                                    'semidesert',                    & ! 11
    306                                    'ice caps and glaciers' ,        & ! 12
    307                                    'bogs and marshes',              & ! 13
    308                                    'inland water',                  & ! 14
    309                                    'ocean',                         & ! 15
    310                                    'evergreen shrubs',              & ! 16
    311                                    'deciduous shrubs',              & ! 17
    312                                    'mixed forest/woodland',         & ! 18
    313                                    'interrupted forest'             & ! 19
     299                                   'evergreen broadleaf trees ',    & !  5
     300                                   'deciduous broadleaf trees ',    & !  6
     301                                   'tall grass                ',    & !  7
     302                                   'desert                    ',    & !  8
     303                                   'tundra                    ',    & !  9
     304                                   'irrigated crops           ',    & ! 10
     305                                   'semidesert                ',    & ! 11
     306                                   'ice caps and glaciers     ',    & ! 12
     307                                   'bogs and marshes          ',    & ! 13
     308                                   'inland water              ',    & ! 14
     309                                   'ocean                     ',    & ! 15
     310                                   'evergreen shrubs          ',    & ! 16
     311                                   'deciduous shrubs          ',    & ! 17
     312                                   'mixed forest/woodland     ',    & ! 18
     313                                   'interrupted forest        '     & ! 19
    314314                                                                 /)
    315315
     
    318318    CHARACTER(12), DIMENSION(0:7), PARAMETER :: soil_type_name = (/ &
    319319                                   'user defined',                  & ! 0
    320                                    'coarse',                        & ! 1
    321                                    'medium',                        & ! 2
    322                                    'medium-fine',                   & ! 3
    323                                    'fine',                          & ! 4
    324                                    'very fine' ,                    & ! 5
    325                                    'organic',                       & ! 6
    326                                    'loamy (CH)                   & ! 7
     320                                   'coarse      ',                  & ! 1
     321                                   'medium      ',                  & ! 2
     322                                   'medium-fine ',                  & ! 3
     323                                   'fine        ',                  & ! 4
     324                                   'very fine   ',                  & ! 5
     325                                   'organic     ',                  & ! 6
     326                                   'loamy (CH)  '                   & ! 7
    327327                                                                 /)
    328328!
Note: See TracChangeset for help on using the changeset viewer.