Changeset 1590 for palm/trunk/SOURCE/land_surface_model.f90
- Timestamp:
- May 8, 2015 1:56:27 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/land_surface_model.f90
r1586 r1590 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! Bugfix: definition of character strings requires same length for all elements 23 23 ! 24 24 ! Former revisions: … … 292 292 !-- Predefined Land surface classes (veg_type) 293 293 CHARACTER(26), DIMENSION(0:19), PARAMETER :: veg_type_name = (/ & 294 'user defined ',& ! 0295 'crops, mixed farming ',& ! 1296 'short grass ',& ! 2294 'user defined ', & ! 0 295 'crops, mixed farming ', & ! 1 296 'short grass ', & ! 2 297 297 'evergreen needleleaf trees', & ! 3 298 298 'deciduous needleleaf trees', & ! 4 299 'evergreen broadleaf trees ', & ! 5300 'deciduous broadleaf trees ',& ! 6301 'tall grass ',& ! 7302 'desert ',& ! 8303 'tundra ',& ! 9304 'irrigated crops ',& ! 10305 'semidesert ',& ! 11306 'ice caps and glaciers ' ,& ! 12307 'bogs and marshes ',& ! 13308 'inland water ',& ! 14309 'ocean ',& ! 15310 'evergreen shrubs ',& ! 16311 'deciduous shrubs ',& ! 17312 'mixed forest/woodland ',& ! 18313 'interrupted forest '& ! 19299 '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 314 314 /) 315 315 … … 318 318 CHARACTER(12), DIMENSION(0:7), PARAMETER :: soil_type_name = (/ & 319 319 'user defined', & ! 0 320 'coarse ',& ! 1321 'medium ',& ! 2322 'medium-fine ',& ! 3323 'fine ',& ! 4324 'very fine ' ,& ! 5325 'organic ',& ! 6326 'loamy (CH) '& ! 7320 'coarse ', & ! 1 321 'medium ', & ! 2 322 'medium-fine ', & ! 3 323 'fine ', & ! 4 324 'very fine ', & ! 5 325 'organic ', & ! 6 326 'loamy (CH) ' & ! 7 327 327 /) 328 328 !
Note: See TracChangeset
for help on using the changeset viewer.