FV3 Bundle
crtm_surface_define Module Reference

Data Types

interface  crtm_surface_readfile
 
type  crtm_surface_type
 
interface  crtm_surface_writefile
 
interface  operator(+)
 
interface  operator(-)
 
interface  operator(==)
 

Functions/Subroutines

elemental logical function, public crtm_surface_associated (Sfc)
 
elemental subroutine, public crtm_surface_destroy (Sfc)
 
elemental subroutine, public crtm_surface_create (Sfc, n_Channels)
 
elemental subroutine, public crtm_surface_zero (Sfc)
 
logical function, public crtm_surface_isvalid (Sfc)
 
subroutine, public crtm_surface_inspect (Sfc, Unit)
 
logical function, public crtm_surface_iscoveragevalid (Sfc)
 
elemental integer function, public crtm_surface_coveragetype (sfc)
 
subroutine, public crtm_surface_defineversion (Id)
 
elemental logical function, public crtm_surface_compare (x, y, n_SigFig)
 
integer function, public crtm_surface_inquirefile (Filename, n_Channels, n_Profiles)
 
integer function read_surface_rank1 (Filename, Surface, Quiet, n_Channels, n_Profiles, Debug)
 
integer function read_surface_rank2 (Filename, Surface, Quiet, n_Channels, n_Profiles, Debug)
 
integer function write_surface_rank1 (Filename, Surface, Quiet, Debug)
 
integer function write_surface_rank2 (Filename, Surface, Quiet, Debug)
 
elemental logical function crtm_surface_equal (x, y)
 
elemental type(crtm_surface_type) function crtm_surface_add (sfc1, sfc2)
 
elemental type(crtm_surface_type) function crtm_surface_subtract (sfc1, sfc2)
 
elemental subroutine crtm_landsurface_zero (Sfc)
 
logical function crtm_landsurface_isvalid (Sfc)
 
subroutine crtm_landsurface_inspect (Sfc, Unit)
 
elemental logical function crtm_landsurface_compare (x, y, n_SigFig)
 
elemental logical function crtm_landsurface_equal (x, y)
 
elemental subroutine crtm_watersurface_zero (Sfc)
 
logical function crtm_watersurface_isvalid (Sfc)
 
subroutine crtm_watersurface_inspect (Sfc, Unit)
 
elemental logical function crtm_watersurface_compare (x, y, n_SigFig)
 
elemental logical function crtm_watersurface_equal (x, y)
 
elemental subroutine crtm_snowsurface_zero (Sfc)
 
logical function crtm_snowsurface_isvalid (Sfc)
 
subroutine crtm_snowsurface_inspect (Sfc, Unit)
 
elemental logical function crtm_snowsurface_compare (x, y, n_SigFig)
 
elemental logical function crtm_snowsurface_equal (x, y)
 
elemental subroutine crtm_icesurface_zero (Sfc)
 
logical function crtm_icesurface_isvalid (Sfc)
 
subroutine crtm_icesurface_inspect (Sfc, Unit)
 
elemental logical function crtm_icesurface_compare (x, y, n_SigFig)
 
elemental logical function crtm_icesurface_equal (x, y)
 
integer function read_record (fid, sfc, Quiet, Debug)
 
integer function write_record (fid, sfc, Quiet, Debug)
 

Variables

character(*), parameter module_version_id = '$Id: CRTM_Surface_Define.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $'
 
real(fp), parameter zero = 0.0_fp
 
real(fp), parameter one = 1.0_fp
 
integer, parameter ml = 256
 
character(*), parameter write_error_status = 'DELETE'
 
integer, parameter, public invalid_surface = 0
 
integer, parameter, public land_surface = 1
 
integer, parameter, public water_surface = 2
 
integer, parameter, public snow_surface = 4
 
integer, parameter, public ice_surface = 8
 
integer, parameter, public n_valid_surface_types = LAND_SURFACE + WATER_SURFACE + SNOW_SURFACE + ICE_SURFACE
 
character(*), dimension(0:n_valid_surface_types), parameter, public 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 default_land_type = 1
 
real(fp), parameter default_land_temperature = 283.0_fp
 
real(fp), parameter default_soil_moisture_content = 0.05_fp
 
real(fp), parameter default_canopy_water_content = 0.05_fp
 
real(fp), parameter default_vegetation_fraction = 0.3_fp
 
real(fp), parameter default_soil_temperature = 283.0_fp
 
real(fp), parameter default_lai = 3.5
 
integer, parameter default_soil_type = 1
 
integer, parameter default_vegetation_type = 1
 
integer, parameter default_water_type = 1
 
real(fp), parameter default_water_temperature = 283.0_fp
 
real(fp), parameter default_wind_speed = 5.0_fp
 
real(fp), parameter default_wind_direction = 0.0_fp
 
real(fp), parameter default_salinity = 33.0_fp
 
integer, parameter default_snow_type = 1
 
real(fp), parameter default_snow_temperature = 263.0_fp
 
real(fp), parameter default_snow_depth = 50.0_fp
 
real(fp), parameter default_snow_density = 0.2_fp
 
real(fp), parameter default_snow_grain_size = 2.0_fp
 
integer, parameter default_ice_type = 1
 
real(fp), parameter default_ice_temperature = 263.0_fp
 
real(fp), parameter default_ice_thickness = 10.0_fp
 
real(fp), parameter default_ice_density = 0.9_fp
 
real(fp), parameter default_ice_roughness = ZERO
 

Function/Subroutine Documentation

◆ crtm_icesurface_compare()

elemental logical function crtm_surface_define::crtm_icesurface_compare ( type(crtm_surface_type), intent(in)  x,
type(crtm_surface_type), intent(in)  y,
integer, intent(in), optional  n_SigFig 
)
private

Definition at line 2094 of file CRTM_Surface_Define.f90.

Here is the caller graph for this function:

◆ crtm_icesurface_equal()

elemental logical function crtm_surface_define::crtm_icesurface_equal ( type(crtm_surface_type), intent(in)  x,
type(crtm_surface_type), intent(in)  y 
)
private

Definition at line 2124 of file CRTM_Surface_Define.f90.

Here is the caller graph for this function:

◆ crtm_icesurface_inspect()

subroutine crtm_surface_define::crtm_icesurface_inspect ( type(crtm_surface_type), intent(in)  Sfc,
integer, intent(in), optional  Unit 
)
private

Definition at line 2078 of file CRTM_Surface_Define.f90.

Here is the caller graph for this function:

◆ crtm_icesurface_isvalid()

logical function crtm_surface_define::crtm_icesurface_isvalid ( type(crtm_surface_type), intent(in)  Sfc)
private

Definition at line 2051 of file CRTM_Surface_Define.f90.

Here is the call graph for this function:
Here is the caller graph for this function:

◆ crtm_icesurface_zero()

elemental subroutine crtm_surface_define::crtm_icesurface_zero ( type(crtm_surface_type), intent(inout)  Sfc)
private

Definition at line 2041 of file CRTM_Surface_Define.f90.

Here is the caller graph for this function:

◆ crtm_landsurface_compare()

elemental logical function crtm_surface_define::crtm_landsurface_compare ( type(crtm_surface_type), intent(in)  x,
type(crtm_surface_type), intent(in)  y,
integer, intent(in), optional  n_SigFig 
)
private

Definition at line 1795 of file CRTM_Surface_Define.f90.

Here is the caller graph for this function:

◆ crtm_landsurface_equal()

elemental logical function crtm_surface_define::crtm_landsurface_equal ( type(crtm_surface_type), intent(in)  x,
type(crtm_surface_type), intent(in)  y 
)
private

Definition at line 1829 of file CRTM_Surface_Define.f90.

Here is the caller graph for this function:

◆ crtm_landsurface_inspect()

subroutine crtm_surface_define::crtm_landsurface_inspect ( type(crtm_surface_type), intent(in)  Sfc,
integer, intent(in), optional  Unit 
)
private

Definition at line 1775 of file CRTM_Surface_Define.f90.

Here is the caller graph for this function:

◆ crtm_landsurface_isvalid()

logical function crtm_surface_define::crtm_landsurface_isvalid ( type(crtm_surface_type), intent(in)  Sfc)
private

Definition at line 1746 of file CRTM_Surface_Define.f90.

Here is the call graph for this function:
Here is the caller graph for this function:

◆ crtm_landsurface_zero()

elemental subroutine crtm_surface_define::crtm_landsurface_zero ( type(crtm_surface_type), intent(inout)  Sfc)
private

Definition at line 1734 of file CRTM_Surface_Define.f90.

Here is the caller graph for this function:

◆ crtm_snowsurface_compare()

elemental logical function crtm_surface_define::crtm_snowsurface_compare ( type(crtm_surface_type), intent(in)  x,
type(crtm_surface_type), intent(in)  y,
integer, intent(in), optional  n_SigFig 
)
private

Definition at line 1997 of file CRTM_Surface_Define.f90.

Here is the caller graph for this function:

◆ crtm_snowsurface_equal()

elemental logical function crtm_surface_define::crtm_snowsurface_equal ( type(crtm_surface_type), intent(in)  x,
type(crtm_surface_type), intent(in)  y 
)
private

Definition at line 2027 of file CRTM_Surface_Define.f90.

Here is the caller graph for this function:

◆ crtm_snowsurface_inspect()

subroutine crtm_surface_define::crtm_snowsurface_inspect ( type(crtm_surface_type), intent(in)  Sfc,
integer, intent(in), optional  Unit 
)
private

Definition at line 1981 of file CRTM_Surface_Define.f90.

Here is the caller graph for this function:

◆ crtm_snowsurface_isvalid()

logical function crtm_surface_define::crtm_snowsurface_isvalid ( type(crtm_surface_type), intent(in)  Sfc)
private

Definition at line 1954 of file CRTM_Surface_Define.f90.

Here is the call graph for this function:
Here is the caller graph for this function:

◆ crtm_snowsurface_zero()

elemental subroutine crtm_surface_define::crtm_snowsurface_zero ( type(crtm_surface_type), intent(inout)  Sfc)
private

Definition at line 1944 of file CRTM_Surface_Define.f90.

Here is the caller graph for this function:

◆ crtm_surface_add()

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

Definition at line 1620 of file CRTM_Surface_Define.f90.

Here is the call graph for this function:

◆ crtm_surface_associated()

elemental logical function, public crtm_surface_define::crtm_surface_associated ( type(crtm_surface_type), intent(in)  Sfc)

Definition at line 291 of file CRTM_Surface_Define.f90.

Here is the call graph for this function:

◆ crtm_surface_compare()

elemental logical function, public crtm_surface_define::crtm_surface_compare ( type(crtm_surface_type), intent(in)  x,
type(crtm_surface_type), intent(in)  y,
integer, intent(in), optional  n_SigFig 
)

Definition at line 762 of file CRTM_Surface_Define.f90.

Here is the call graph for this function:

◆ crtm_surface_coveragetype()

elemental integer function, public crtm_surface_define::crtm_surface_coveragetype ( type(crtm_surface_type), intent(in)  sfc)

Definition at line 683 of file CRTM_Surface_Define.f90.

Here is the caller graph for this function:

◆ crtm_surface_create()

elemental subroutine, public crtm_surface_define::crtm_surface_create ( type(crtm_surface_type), intent(out)  Sfc,
integer, intent(in)  n_Channels 
)

Definition at line 364 of file CRTM_Surface_Define.f90.

Here is the call graph for this function:

◆ crtm_surface_defineversion()

subroutine, public crtm_surface_define::crtm_surface_defineversion ( character(*), intent(out)  Id)

Definition at line 717 of file CRTM_Surface_Define.f90.

◆ crtm_surface_destroy()

elemental subroutine, public crtm_surface_define::crtm_surface_destroy ( type(crtm_surface_type), intent(out)  Sfc)

Definition at line 324 of file CRTM_Surface_Define.f90.

Here is the caller graph for this function:

◆ crtm_surface_equal()

elemental logical function crtm_surface_define::crtm_surface_equal ( type(crtm_surface_type), intent(in)  x,
type(crtm_surface_type), intent(in)  y 
)
private

Definition at line 1552 of file CRTM_Surface_Define.f90.

Here is the call graph for this function:

◆ crtm_surface_inquirefile()

integer function, public crtm_surface_define::crtm_surface_inquirefile ( character(*), intent(in)  Filename,
integer, intent(out), optional  n_Channels,
integer, intent(out), optional  n_Profiles 
)

Definition at line 861 of file CRTM_Surface_Define.f90.

Here is the call graph for this function:

◆ crtm_surface_inspect()

subroutine, public crtm_surface_define::crtm_surface_inspect ( type(crtm_surface_type), intent(in)  Sfc,
integer, intent(in), optional  Unit 
)

Definition at line 530 of file CRTM_Surface_Define.f90.

Here is the call graph for this function:

◆ crtm_surface_iscoveragevalid()

logical function, public crtm_surface_define::crtm_surface_iscoveragevalid ( type(crtm_surface_type), intent(in)  Sfc)

Definition at line 595 of file CRTM_Surface_Define.f90.

Here is the call graph for this function:
Here is the caller graph for this function:

◆ crtm_surface_isvalid()

logical function, public crtm_surface_define::crtm_surface_isvalid ( type(crtm_surface_type), intent(in)  Sfc)

Definition at line 471 of file CRTM_Surface_Define.f90.

Here is the call graph for this function:
Here is the caller graph for this function:

◆ crtm_surface_subtract()

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

Definition at line 1687 of file CRTM_Surface_Define.f90.

Here is the call graph for this function:

◆ crtm_surface_zero()

elemental subroutine, public crtm_surface_define::crtm_surface_zero ( type(crtm_surface_type), intent(inout)  Sfc)

Definition at line 410 of file CRTM_Surface_Define.f90.

Here is the call graph for this function:

◆ crtm_watersurface_compare()

elemental logical function crtm_surface_define::crtm_watersurface_compare ( type(crtm_surface_type), intent(in)  x,
type(crtm_surface_type), intent(in)  y,
integer, intent(in), optional  n_SigFig 
)
private

Definition at line 1900 of file CRTM_Surface_Define.f90.

Here is the caller graph for this function:

◆ crtm_watersurface_equal()

elemental logical function crtm_surface_define::crtm_watersurface_equal ( type(crtm_surface_type), intent(in)  x,
type(crtm_surface_type), intent(in)  y 
)
private

Definition at line 1930 of file CRTM_Surface_Define.f90.

Here is the caller graph for this function:

◆ crtm_watersurface_inspect()

subroutine crtm_surface_define::crtm_watersurface_inspect ( type(crtm_surface_type), intent(in)  Sfc,
integer, intent(in), optional  Unit 
)
private

Definition at line 1884 of file CRTM_Surface_Define.f90.

Here is the caller graph for this function:

◆ crtm_watersurface_isvalid()

logical function crtm_surface_define::crtm_watersurface_isvalid ( type(crtm_surface_type), intent(in)  Sfc)
private

Definition at line 1857 of file CRTM_Surface_Define.f90.

Here is the call graph for this function:
Here is the caller graph for this function:

◆ crtm_watersurface_zero()

elemental subroutine crtm_surface_define::crtm_watersurface_zero ( type(crtm_surface_type), intent(inout)  Sfc)
private

Definition at line 1847 of file CRTM_Surface_Define.f90.

Here is the caller graph for this function:

◆ read_record()

integer function crtm_surface_define::read_record ( integer, intent(in)  fid,
type(crtm_surface_type), intent(out)  sfc,
logical, intent(in), optional  Quiet,
logical, intent(in), optional  Debug 
)
private

Definition at line 2148 of file CRTM_Surface_Define.f90.

Here is the call graph for this function:
Here is the caller graph for this function:

◆ read_surface_rank1()

integer function crtm_surface_define::read_surface_rank1 ( character(*), intent(in)  Filename,
type(crtm_surface_type), dimension(:), intent(out), allocatable  Surface,
logical, intent(in), optional  Quiet,
integer, intent(out), optional  n_Channels,
integer, intent(out), optional  n_Profiles,
logical, intent(in), optional  Debug 
)
private

Definition at line 1015 of file CRTM_Surface_Define.f90.

Here is the call graph for this function:

◆ read_surface_rank2()

integer function crtm_surface_define::read_surface_rank2 ( character(*), intent(in)  Filename,
type(crtm_surface_type), dimension(:,:), intent(out), allocatable  Surface,
logical, intent(in), optional  Quiet,
integer, intent(out), optional  n_Channels,
integer, intent(out), optional  n_Profiles,
logical, intent(in), optional  Debug 
)
private

Definition at line 1135 of file CRTM_Surface_Define.f90.

Here is the call graph for this function:

◆ write_record()

integer function crtm_surface_define::write_record ( integer, intent(in)  fid,
type(crtm_surface_type), intent(in)  sfc,
logical, intent(in), optional  Quiet,
logical, intent(in), optional  Debug 
)
private

Definition at line 2316 of file CRTM_Surface_Define.f90.

Here is the call graph for this function:

◆ write_surface_rank1()

integer function crtm_surface_define::write_surface_rank1 ( character(*), intent(in)  Filename,
type(crtm_surface_type), dimension(:), intent(in)  Surface,
logical, intent(in), optional  Quiet,
logical, intent(in), optional  Debug 
)
private

Definition at line 1322 of file CRTM_Surface_Define.f90.

Here is the call graph for this function:

◆ write_surface_rank2()

integer function crtm_surface_define::write_surface_rank2 ( character(*), intent(in)  Filename,
type(crtm_surface_type), dimension(:,:), intent(in)  Surface,
logical, intent(in), optional  Quiet,
logical, intent(in), optional  Debug 
)
private

Definition at line 1416 of file CRTM_Surface_Define.f90.

Here is the call graph for this function:

Variable Documentation

◆ default_canopy_water_content

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

Definition at line 172 of file CRTM_Surface_Define.f90.

◆ default_ice_density

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

Definition at line 194 of file CRTM_Surface_Define.f90.

◆ default_ice_roughness

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

Definition at line 195 of file CRTM_Surface_Define.f90.

◆ default_ice_temperature

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

Definition at line 192 of file CRTM_Surface_Define.f90.

◆ default_ice_thickness

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

Definition at line 193 of file CRTM_Surface_Define.f90.

◆ default_ice_type

integer, parameter crtm_surface_define::default_ice_type = 1
private

Definition at line 191 of file CRTM_Surface_Define.f90.

◆ default_lai

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

Definition at line 175 of file CRTM_Surface_Define.f90.

◆ default_land_temperature

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

Definition at line 170 of file CRTM_Surface_Define.f90.

◆ default_land_type

integer, parameter crtm_surface_define::default_land_type = 1
private

Definition at line 169 of file CRTM_Surface_Define.f90.

◆ default_salinity

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

Definition at line 183 of file CRTM_Surface_Define.f90.

◆ default_snow_density

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

Definition at line 188 of file CRTM_Surface_Define.f90.

◆ default_snow_depth

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

Definition at line 187 of file CRTM_Surface_Define.f90.

◆ default_snow_grain_size

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

Definition at line 189 of file CRTM_Surface_Define.f90.

◆ default_snow_temperature

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

Definition at line 186 of file CRTM_Surface_Define.f90.

◆ default_snow_type

integer, parameter crtm_surface_define::default_snow_type = 1
private

Definition at line 185 of file CRTM_Surface_Define.f90.

◆ default_soil_moisture_content

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

Definition at line 171 of file CRTM_Surface_Define.f90.

◆ default_soil_temperature

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

Definition at line 174 of file CRTM_Surface_Define.f90.

◆ default_soil_type

integer, parameter crtm_surface_define::default_soil_type = 1
private

Definition at line 176 of file CRTM_Surface_Define.f90.

◆ default_vegetation_fraction

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

Definition at line 173 of file CRTM_Surface_Define.f90.

◆ default_vegetation_type

integer, parameter crtm_surface_define::default_vegetation_type = 1
private

Definition at line 177 of file CRTM_Surface_Define.f90.

◆ default_water_temperature

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

Definition at line 180 of file CRTM_Surface_Define.f90.

◆ default_water_type

integer, parameter crtm_surface_define::default_water_type = 1
private

Definition at line 179 of file CRTM_Surface_Define.f90.

◆ default_wind_direction

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

Definition at line 182 of file CRTM_Surface_Define.f90.

◆ default_wind_speed

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

Definition at line 181 of file CRTM_Surface_Define.f90.

◆ ice_surface

integer, parameter, public crtm_surface_define::ice_surface = 8

Definition at line 144 of file CRTM_Surface_Define.f90.

◆ invalid_surface

integer, parameter, public crtm_surface_define::invalid_surface = 0

Definition at line 140 of file CRTM_Surface_Define.f90.

◆ land_surface

integer, parameter, public crtm_surface_define::land_surface = 1

Definition at line 141 of file CRTM_Surface_Define.f90.

◆ ml

integer, parameter crtm_surface_define::ml = 256
private

Definition at line 133 of file CRTM_Surface_Define.f90.

◆ module_version_id

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

Definition at line 127 of file CRTM_Surface_Define.f90.

◆ n_valid_surface_types

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

Definition at line 145 of file CRTM_Surface_Define.f90.

◆ one

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

Definition at line 131 of file CRTM_Surface_Define.f90.

◆ snow_surface

integer, parameter, public crtm_surface_define::snow_surface = 4

Definition at line 143 of file CRTM_Surface_Define.f90.

◆ surface_type_name

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' /)

Definition at line 149 of file CRTM_Surface_Define.f90.

◆ water_surface

integer, parameter, public crtm_surface_define::water_surface = 2

Definition at line 142 of file CRTM_Surface_Define.f90.

◆ write_error_status

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

Definition at line 135 of file CRTM_Surface_Define.f90.

◆ zero

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

Definition at line 130 of file CRTM_Surface_Define.f90.