surface_type Derived Type

type, public :: surface_type


Contents

Variables

Type-Bound Procedures


Components

Type Visibility Attributes Name Initial
real(kind=jprb), public, allocatable :: skin_temperature(:,:)
real(kind=jprb), public, allocatable :: canopy_temperature(:,:)
real(kind=jprb), public, allocatable, dimension(:,:,:) :: sw_albedo
real(kind=jprb), public, allocatable, dimension(:,:,:) :: sw_albedo_direct
real(kind=jprb), public, allocatable, dimension(:,:,:) :: lw_emissivity
integer(kind=jpim), public, allocatable, dimension(:) :: i_representation
integer(kind=jpim), public, allocatable, dimension(:,:) :: i_ground_facet
integer(kind=jpim), public, allocatable, dimension(:,:) :: i_roof_facet
integer(kind=jpim), public, allocatable, dimension(:,:) :: i_wall_facet
integer(kind=jpim), public, allocatable, dimension(:,:) :: i_region_1
real(kind=jprb), public, allocatable, dimension(:,:) :: tile_fraction
real(kind=jprb), public, allocatable, dimension(:,:) :: canopy_depth
real(kind=jprb), public, allocatable, dimension(:,:) :: building_fraction
real(kind=jprb), public, allocatable, dimension(:,:) :: building_normalized_perimeter
real(kind=jprb), public, allocatable, dimension(:,:) :: vegetation_optical_depth
real(kind=jprb), public, allocatable, dimension(:,:) :: vegetation_fractional_std
real(kind=jprb), public, allocatable, dimension(:,:,:) :: vegetation_sw_albedo
real(kind=jprb), public, allocatable, dimension(:,:,:) :: vegetation_lw_emissivity
integer(kind=jpim), public :: ntile
integer(kind=jpim), public :: ncol
integer(kind=jpim), public :: nfacet
integer(kind=jpim), public :: nregion
integer(kind=jpim), public :: nalbedobands
integer(kind=jpim), public :: nemissbands
logical, public :: is_simple = .true.

Type-Bound Procedures

procedure, public :: allocate => allocate_surface

  • public subroutine allocate_surface(this, ncol, nalbedobands, nemissbands, i_representation, use_sw_albedo_direct)

    Arguments

    Type IntentOptional Attributes Name
    class(surface_type), intent(inout) :: this
    integer(kind=jpim), intent(in) :: ncol
    integer(kind=jpim), intent(in) :: nalbedobands
    integer(kind=jpim), intent(in) :: nemissbands
    integer(kind=jpim), intent(in), optional :: i_representation(:)
    logical(kind=jpim), intent(in), optional :: use_sw_albedo_direct

procedure, public :: deallocate => deallocate_surface

procedure, public :: read => read_from_netcdf

procedure, public :: set_facet_indices