component_type_mod Module


Uses


Variables

Type Visibility Attributes Name Initial
type(component_type), public, target :: atm(num_inst_atm)
type(component_type), public, target :: lnd(num_inst_lnd)
type(component_type), public, target :: rof(num_inst_rof)
type(component_type), public, target :: ocn(num_inst_ocn)
type(component_type), public, target :: ice(num_inst_ice)
type(component_type), public, target :: glc(num_inst_glc)
type(component_type), public, target :: wav(num_inst_wav)
type(component_type), public, target :: esp(num_inst_esp)

Derived Types

type, public ::  component_type

Components

Type Visibility Attributes Name Initial
type(GeneralGrid), public, pointer :: dom_cx => null()
type(GlobalSegMap), public, pointer :: gsMap_cx => null()
type(AttrVect), public, pointer :: x2c_cx => null()
type(AttrVect), public, pointer :: c2x_cx => null()
type(seq_cdata), public, pointer :: cdata_cc => null()
type(GeneralGrid), public, pointer :: dom_cc => null()
type(GlobalSegMap), public, pointer :: gsMap_cc => null()
type(AttrVect), public, pointer :: x2c_cc => null()
type(AttrVect), public, pointer :: c2x_cc => null()
real(kind=r8), public, pointer :: drv2mdl(:) => null()
real(kind=r8), public, pointer :: mdl2drv(:) => null()
type(seq_map), public, pointer :: mapper_Cc2x => null()
type(seq_map), public, pointer :: mapper_Cx2c => null()
integer, public :: compid
integer, public :: cplcompid
integer, public :: cplallcompid
integer, public :: mpicom_compid
integer, public :: mpicom_cplcompid
integer, public :: mpicom_cplallcompid
logical, public :: iamin_compid
logical, public :: iamin_cplcompid
logical, public :: iamin_cplallcompid
logical, public :: iamroot_compid
logical, public :: present
integer, public :: nthreads_compid
integer, public :: instn
character(len=CL), public :: suffix
character(len=1), public :: oneletterid
character(len=3), public :: ntype
character(len=seq_comm_namelen), public :: name

Functions

public function component_get_c2x_cc(comp)

Arguments

Type IntentOptional Attributes Name
type(component_type), intent(in), target :: comp

Return Value type(AttrVect), pointer

public function component_get_c2x_cx(comp)

Arguments

Type IntentOptional Attributes Name
type(component_type), intent(in), target :: comp

Return Value type(AttrVect), pointer

public function component_get_x2c_cc(comp)

Arguments

Type IntentOptional Attributes Name
type(component_type), intent(in), target :: comp

Return Value type(AttrVect), pointer

public function component_get_x2c_cx(comp)

Arguments

Type IntentOptional Attributes Name
type(component_type), intent(in), target :: comp

Return Value type(AttrVect), pointer

public function component_get_name(comp)

Arguments

Type IntentOptional Attributes Name
type(component_type), intent(in), target :: comp

Return Value character(len=seq_comm_namelen)

public function component_get_iamin_compid(comp)

Arguments

Type IntentOptional Attributes Name
type(component_type), intent(in), target :: comp

Return Value logical

public function component_get_iamroot_compid(comp)

Arguments

Type IntentOptional Attributes Name
type(component_type), intent(in), target :: comp

Return Value logical

public function component_get_suffix(comp)

Arguments

Type IntentOptional Attributes Name
type(component_type), intent(in), target :: comp

Return Value character(len=CL)

public function component_get_dom_cx(comp)

Arguments

Type IntentOptional Attributes Name
type(component_type), intent(in), target :: comp

Return Value type(GeneralGrid), pointer

public function component_get_dom_cc(comp)

Arguments

Type IntentOptional Attributes Name
type(component_type), intent(in), target :: comp

Return Value type(GeneralGrid), pointer

public function component_get_gsmap_cx(comp)

Arguments

Type IntentOptional Attributes Name
type(component_type), intent(in), target :: comp

Return Value type(GlobalSegMap), pointer

public function component_get_gsmap_cc(comp)

Arguments

Type IntentOptional Attributes Name
type(component_type), intent(in), target :: comp

Return Value type(GlobalSegMap), pointer

public function component_get_cdata_cc(comp)

Arguments

Type IntentOptional Attributes Name
type(component_type), intent(in), target :: comp

Return Value type(seq_cdata), pointer

public function component_get_drv2mdl(comp)

Arguments

Type IntentOptional Attributes Name
type(component_type), intent(in), target :: comp

Return Value real(kind=r8), pointer, (:)

public function component_get_mdl2drv(comp)

Arguments

Type IntentOptional Attributes Name
type(component_type), intent(in), target :: comp

Return Value real(kind=r8), pointer, (:)

public function component_get_mapper_Cc2x(comp)

Arguments

Type IntentOptional Attributes Name
type(component_type), intent(in), target :: comp

Return Value type(seq_map), pointer

public function component_get_mapper_Cx2c(comp)

Arguments

Type IntentOptional Attributes Name
type(component_type), intent(in), target :: comp

Return Value type(seq_map), pointer


Subroutines

public subroutine check_fields(comp, comp_index)

Arguments

Type IntentOptional Attributes Name
type(component_type), intent(in) :: comp
integer(kind=in), intent(in) :: comp_index