initInterpMindist Module



Derived Types

type, public ::  subgrid_special_indices_type

Components

Type Visibility Attributes Name Initial
integer, public :: ipft_not_vegetated
integer, public :: icol_vegetated_or_bare_soil
integer, public :: ilun_vegetated_or_bare_soil
integer, public :: ilun_crop
integer, public :: ilun_landice_multiple_elevation_classes

Type-Bound Procedures

procedure, public :: is_vegetated_landunit

type, public ::  subgrid_type

Components

Type Visibility Attributes Name Initial
character(len=16), public :: name
integer, public, pointer :: ptype(:) => null()
integer, public, pointer :: ctype(:) => null()
integer, public, pointer :: ltype(:) => null()
real(kind=r8), public, pointer :: topoglc(:) => null()
real(kind=r8), public, pointer :: lat(:)
real(kind=r8), public, pointer :: lon(:)
real(kind=r8), public, pointer :: coslat(:)

Type-Bound Procedures

procedure, public :: print_point

Subroutines

public subroutine set_mindist(begi, endi, bego, endo, activei, activeo, subgridi, subgrido, subgrid_special_indices, glc_behavior, glc_elevclasses_same, fill_missing_with_natveg, mindist_index)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: begi
integer, intent(in) :: endi
integer, intent(in) :: bego
integer, intent(in) :: endo
logical, intent(in) :: activei(begi:endi)
logical, intent(in) :: activeo(bego:endo)
type(subgrid_type), intent(in) :: subgridi
type(subgrid_type), intent(in) :: subgrido
type(subgrid_special_indices_type), intent(in) :: subgrid_special_indices
type(glc_behavior_type), intent(in) :: glc_behavior
logical, intent(in) :: glc_elevclasses_same
logical, intent(in) :: fill_missing_with_natveg
integer, intent(out) :: mindist_index(bego:endo)

public subroutine set_single_match(begi, endi, bego, endo, activeo, subgridi, subgrido, subgrid_special_indices, glc_behavior, glc_elevclasses_same, mindist_index)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: begi
integer, intent(in) :: endi
integer, intent(in) :: bego
integer, intent(in) :: endo
logical, intent(in) :: activeo(bego:endo)
type(subgrid_type), intent(in) :: subgridi
type(subgrid_type), intent(in) :: subgrido
type(subgrid_special_indices_type), intent(in) :: subgrid_special_indices
type(glc_behavior_type), intent(in) :: glc_behavior
logical, intent(in) :: glc_elevclasses_same
integer, intent(out) :: mindist_index(bego:endo)