Data Types
interface	crtm_surface_define::operator(==)

interface	crtm_surface_define::operator(+)

interface	crtm_surface_define::operator(-)

interface	crtm_surface_define::crtm_surface_readfile

interface	crtm_surface_define::crtm_surface_writefile

type	crtm_surface_define::crtm_surface_type

Modules
module	crtm_surface_define

Functions/Subroutines
elemental logical function, public	crtm_surface_define::crtm_surface_associated (Sfc)

elemental subroutine, public	crtm_surface_define::crtm_surface_destroy (Sfc)

elemental subroutine, public	crtm_surface_define::crtm_surface_create (Sfc, n_Channels)

elemental subroutine, public	crtm_surface_define::crtm_surface_zero (Sfc)

logical function, public	crtm_surface_define::crtm_surface_isvalid (Sfc)

subroutine, public	crtm_surface_define::crtm_surface_inspect (Sfc, Unit)

logical function, public	crtm_surface_define::crtm_surface_iscoveragevalid (Sfc)

logical function	iscoveragevalid (Coverage, Name)

elemental integer function, public	crtm_surface_define::crtm_surface_coveragetype (sfc)

subroutine, public	crtm_surface_define::crtm_surface_defineversion (Id)

elemental logical function, public	crtm_surface_define::crtm_surface_compare (x, y, n_SigFig)

integer function, public	crtm_surface_define::crtm_surface_inquirefile (Filename, n_Channels, n_Profiles)

subroutine	inquire_cleanup ()

integer function	crtm_surface_define::read_surface_rank1 (Filename, Surface, Quiet, n_Channels, n_Profiles, Debug)

subroutine	read_cleanup ()

integer function	crtm_surface_define::read_surface_rank2 (Filename, Surface, Quiet, n_Channels, n_Profiles, Debug)

integer function	crtm_surface_define::write_surface_rank1 (Filename, Surface, Quiet, Debug)

subroutine	write_cleanup ()

integer function	crtm_surface_define::write_surface_rank2 (Filename, Surface, Quiet, Debug)

elemental logical function	crtm_surface_define::crtm_surface_equal (x, y)

elemental type(crtm_surface_type) function	crtm_surface_define::crtm_surface_add (sfc1, sfc2)

elemental type(crtm_surface_type) function	crtm_surface_define::crtm_surface_subtract (sfc1, sfc2)

elemental subroutine	crtm_surface_define::crtm_landsurface_zero (Sfc)

logical function	crtm_surface_define::crtm_landsurface_isvalid (Sfc)

subroutine	crtm_surface_define::crtm_landsurface_inspect (Sfc, Unit)

elemental logical function	crtm_surface_define::crtm_landsurface_compare (x, y, n_SigFig)

elemental logical function	crtm_surface_define::crtm_landsurface_equal (x, y)

elemental subroutine	crtm_surface_define::crtm_watersurface_zero (Sfc)

logical function	crtm_surface_define::crtm_watersurface_isvalid (Sfc)

subroutine	crtm_surface_define::crtm_watersurface_inspect (Sfc, Unit)

elemental logical function	crtm_surface_define::crtm_watersurface_compare (x, y, n_SigFig)

elemental logical function	crtm_surface_define::crtm_watersurface_equal (x, y)

elemental subroutine	crtm_surface_define::crtm_snowsurface_zero (Sfc)

logical function	crtm_surface_define::crtm_snowsurface_isvalid (Sfc)

subroutine	crtm_surface_define::crtm_snowsurface_inspect (Sfc, Unit)

elemental logical function	crtm_surface_define::crtm_snowsurface_compare (x, y, n_SigFig)

elemental logical function	crtm_surface_define::crtm_snowsurface_equal (x, y)

elemental subroutine	crtm_surface_define::crtm_icesurface_zero (Sfc)

logical function	crtm_surface_define::crtm_icesurface_isvalid (Sfc)

subroutine	crtm_surface_define::crtm_icesurface_inspect (Sfc, Unit)

elemental logical function	crtm_surface_define::crtm_icesurface_compare (x, y, n_SigFig)

elemental logical function	crtm_surface_define::crtm_icesurface_equal (x, y)

integer function	crtm_surface_define::read_record (fid, sfc, Quiet, Debug)

subroutine	read_record_cleanup ()

integer function	crtm_surface_define::write_record (fid, sfc, Quiet, Debug)

subroutine	write_record_cleanup ()

Variables
character(*), parameter	crtm_surface_define::module_version_id = '$Id: CRTM_Surface_Define.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $'

real(fp), parameter	crtm_surface_define::zero = 0.0_fp

real(fp), parameter	crtm_surface_define::one = 1.0_fp

integer, parameter	crtm_surface_define::ml = 256

character(*), parameter	crtm_surface_define::write_error_status = 'DELETE'

integer, parameter, public	crtm_surface_define::invalid_surface = 0

integer, parameter, public	crtm_surface_define::land_surface = 1

integer, parameter, public	crtm_surface_define::water_surface = 2

integer, parameter, public	crtm_surface_define::snow_surface = 4

integer, parameter, public	crtm_surface_define::ice_surface = 8

integer, parameter, public	crtm_surface_define::n_valid_surface_types = LAND_SURFACE + WATER_SURFACE + SNOW_SURFACE + ICE_SURFACE

character(*), dimension(0:n_valid_surface_types), parameter, public	crtm_surface_define::surface_type_name = (/ 'Invalid surface type ', 'Land ', 'Water ', 'Land + water ', 'Snow ', 'Land + snow ', 'Water + snow ', 'Land + water + snow ', 'Ice ', 'Land + ice ', 'Water + ice ', 'Land + water + ice ', 'Snow + ice ', 'Land + snow + ice ', 'Water + snow + ice ', 'Land + water + snow + ice' /)

integer, parameter	crtm_surface_define::default_land_type = 1

real(fp), parameter	crtm_surface_define::default_land_temperature = 283.0_fp

real(fp), parameter	crtm_surface_define::default_soil_moisture_content = 0.05_fp

real(fp), parameter	crtm_surface_define::default_canopy_water_content = 0.05_fp

real(fp), parameter	crtm_surface_define::default_vegetation_fraction = 0.3_fp

real(fp), parameter	crtm_surface_define::default_soil_temperature = 283.0_fp

real(fp), parameter	crtm_surface_define::default_lai = 3.5

integer, parameter	crtm_surface_define::default_soil_type = 1

integer, parameter	crtm_surface_define::default_vegetation_type = 1

integer, parameter	crtm_surface_define::default_water_type = 1

real(fp), parameter	crtm_surface_define::default_water_temperature = 283.0_fp

real(fp), parameter	crtm_surface_define::default_wind_speed = 5.0_fp

real(fp), parameter	crtm_surface_define::default_wind_direction = 0.0_fp

real(fp), parameter	crtm_surface_define::default_salinity = 33.0_fp

integer, parameter	crtm_surface_define::default_snow_type = 1

real(fp), parameter	crtm_surface_define::default_snow_temperature = 263.0_fp

real(fp), parameter	crtm_surface_define::default_snow_depth = 50.0_fp

real(fp), parameter	crtm_surface_define::default_snow_density = 0.2_fp

real(fp), parameter	crtm_surface_define::default_snow_grain_size = 2.0_fp

integer, parameter	crtm_surface_define::default_ice_type = 1

real(fp), parameter	crtm_surface_define::default_ice_temperature = 263.0_fp

real(fp), parameter	crtm_surface_define::default_ice_thickness = 10.0_fp

real(fp), parameter	crtm_surface_define::default_ice_density = 0.9_fp

real(fp), parameter	crtm_surface_define::default_ice_roughness = ZERO

Function/Subroutine Documentation