
<HTML> <BODY BGCOLOR=#ccccdd LINK=#0000aa VLINK=#0000ff ALINK=#ff0000 ><BASE TARGET="bottom_target"><PRE>
!
! CRTM_Land_Parameters
!
! Module of CRTM land parameter definitions.
!
! CREATION HISTORY:
!       Written by:     David Groff, 17-Jan-2013
!                       david.groff@noaa.gov
!

<A NAME='CRTM_LAND_PARAMETERS'><A href='../../html_code/crtm/CRTM_Land_Parameters.f90.html#CRTM_LAND_PARAMETERS' TARGET='top_target'><IMG SRC="../../gif/bar_purple.gif" border=0></A>

MODULE CRTM_Land_Parameters 2

  ! ------------------
  ! Default visibility
  ! ------------------
  PRIVATE
  
  ! ...Number of avaliable soil and vegetation types
  INTEGER, PUBLIC, PARAMETER :: N_VALID_SOIL_TYPES = 8
  INTEGER, PUBLIC, PARAMETER :: N_VALID_VEGETATION_TYPES = 12
  
  ! ...The soil type indices
  INTEGER, PUBLIC, PARAMETER :: INVALID_SOIL    =  0
  INTEGER, PUBLIC, PARAMETER :: COARSE          =  1
  INTEGER, PUBLIC, PARAMETER :: MEDIUM          =  2
  INTEGER, PUBLIC, PARAMETER :: FINE            =  3
  INTEGER, PUBLIC, PARAMETER :: COARSE_MEDIUM   =  4
  INTEGER, PUBLIC, PARAMETER :: COARSE_FINE     =  5
  INTEGER, PUBLIC, PARAMETER :: MEDIUM_FINE     =  6
  INTEGER, PUBLIC, PARAMETER :: COARSE_MED_FINE =  7
  INTEGER, PUBLIC, PARAMETER :: ORGANIC         =  8
  ! ...Soil type names
  CHARACTER(*), PUBLIC, PARAMETER, DIMENSION( 0:N_VALID_SOIL_TYPES ) :: &amp;
    SOIL_TYPE_NAME = (/ 'Invalid soil type', &amp;
                        'Coarse           ', &amp;
                        'Medium           ', &amp;
                        'Fine             ', &amp;
                        'Coarse-Medium    ', &amp;
                        'Coarse-Fine      ', &amp;
                        'Medium-Fine      ', &amp;
                        'Coarse-Med-Fine  ', &amp;
                        'Organic          ' /)
  ! ...The vegetation type indices
  INTEGER, PUBLIC, PARAMETER :: INVALID_VEGETATION             =  0
  INTEGER, PUBLIC, PARAMETER :: BROADLEAF_EVERGREEN_TREES      =  1
  INTEGER, PUBLIC, PARAMETER :: BROADLEAF_DECIDUOUS_TREES      =  2
  INTEGER, PUBLIC, PARAMETER :: BROADLEAF_NEEDLELEAF_TREES     =  3
  INTEGER, PUBLIC, PARAMETER :: NEEDLELEAF_EVERGREEN_TREES     =  4
  INTEGER, PUBLIC, PARAMETER :: NEEDLELEAF_DECIDUOUS_TREES     =  5
  INTEGER, PUBLIC, PARAMETER :: BROADLEAF_TREES_GROUNDCOVER    =  6
  INTEGER, PUBLIC, PARAMETER :: GROUNDCOVER                    =  7
  INTEGER, PUBLIC, PARAMETER :: GROADLEAF_SHRUBS_GROUNDCOVER   =  8
  INTEGER, PUBLIC, PARAMETER :: BROADLEAF_SHRUBS_BARE_SOIL     =  9
  INTEGER, PUBLIC, PARAMETER :: DWARF_TREES_SHRUBS_GROUNDCOVER = 10
  INTEGER, PUBLIC, PARAMETER :: BARE_SOIL                      = 11
  INTEGER, PUBLIC, PARAMETER :: CULTIVATIONS                   = 12
  ! ...Vegetation type names
  CHARACTER(*), PUBLIC, PARAMETER, DIMENSION( 0:N_VALID_VEGETATION_TYPES ) :: &amp;
    VEGETATION_TYPE_NAME=(/'Invalid vegetation surface type         ', &amp;
                           'Broadleaf-Evergreen Trees               ', &amp;
                           'Broadleaf-Deciduous Trees               ', &amp;
                           'Broadleaf &amp; Needleleaf Trees            ', &amp;
                           'Needleleaf-Evergreen Trees              ', &amp;
                           'Needleleaf-Deciduous Trees              ', &amp;
                           'Broadleaf Trees with Groundcover        ', &amp;
                           'Groundcover only                        ', &amp;
                           'Broadlead Shrubs + Perennial Groundcover', &amp;
                           'Broadlead Shrubs with Bare Soil         ', &amp;
                           'Dwarf Trees &amp; Shrubs with Groundcover   ', &amp;
                           'Bare Soil                               ', &amp;
                           'Cultivations                            ' /)
                           
END MODULE CRTM_Land_Parameters