type_material_manager Derived Type

type, public :: type_material_manager


Inherits

type~~type_material_manager~~InheritsGraph type~type_material_manager type_material_manager holder_wrfs holder_wrfs type~type_material_manager->holder_wrfs wrf type~holder_dens holder_dens type~type_material_manager->type~holder_dens den type~holder_gccs holder_gccs type~type_material_manager->type~holder_gccs gcc type~holder_sphs holder_sphs type~type_material_manager->type~holder_sphs sph type~holder_thcs holder_thcs type~type_material_manager->type~holder_thcs thc type~holder_vhcs holder_vhcs type~type_material_manager->type~holder_vhcs vhc type~abst_den abst_den type~holder_dens->type~abst_den p type~abst_gcc abst_gcc type~holder_gccs->type~abst_gcc p type~abst_sph abst_sph type~holder_sphs->type~abst_sph p type~abst_thc abst_thc type~holder_thcs->type~abst_thc p type~abst_vhc abst_vhc type~holder_vhcs->type~abst_vhc p

Inherited by

type~~type_material_manager~~InheritedByGraph type~type_material_manager type_material_manager type~type_proereties_manager type_proereties_manager type~type_proereties_manager->type~type_material_manager materials type~type_ftdss type_ftdss type~type_ftdss->type~type_proereties_manager property

Components

Type Visibility Attributes Name Initial
type(holder_dens), private, allocatable :: den(:)
type(holder_gccs), private, allocatable :: gcc(:)
integer(kind=int32), private, allocatable :: region_id_map(:)
type(holder_sphs), private, allocatable :: sph(:)
type(holder_thcs), private, allocatable :: thc(:)
type(holder_vhcs), private, allocatable :: vhc(:)
type(holder_wrfs), private, allocatable :: wrf(:)

Type-Bound Procedures

generic, public :: get_den => get_den_holder, get_den_ptr

  • private subroutine get_den_holder(self, region_id, model_holder)

    Arguments

    Type IntentOptional Attributes Name
    class(type_material_manager), intent(inout) :: self
    integer(kind=int32), intent(in) :: region_id
    type(holder_dens), intent(inout) :: model_holder

  • private subroutine get_den_ptr(self, region_id, den_ptr)

    Arguments

    Type IntentOptional Attributes Name
    class(type_material_manager), intent(inout), target :: self
    integer(kind=int32), intent(in) :: region_id
    class(abst_den), intent(inout), pointer :: den_ptr

procedure, private, pass(self) :: get_den_holder

  • private subroutine get_den_holder(self, region_id, model_holder)

    Arguments

    Type IntentOptional Attributes Name
    class(type_material_manager), intent(inout) :: self
    integer(kind=int32), intent(in) :: region_id
    type(holder_dens), intent(inout) :: model_holder

procedure, private, pass(self) :: get_den_ptr

  • private subroutine get_den_ptr(self, region_id, den_ptr)

    Arguments

    Type IntentOptional Attributes Name
    class(type_material_manager), intent(inout), target :: self
    integer(kind=int32), intent(in) :: region_id
    class(abst_den), intent(inout), pointer :: den_ptr

generic, public :: get_gcc => get_gcc_holder, get_gcc_ptr

  • private subroutine get_gcc_holder(self, region_id, model_holder)

    Arguments

    Type IntentOptional Attributes Name
    class(type_material_manager), intent(inout) :: self
    integer(kind=int32), intent(in) :: region_id
    type(holder_gccs), intent(inout) :: model_holder

  • private subroutine get_gcc_ptr(self, region_id, gcc_ptr)

    Arguments

    Type IntentOptional Attributes Name
    class(type_material_manager), intent(inout), target :: self
    integer(kind=int32), intent(in) :: region_id
    class(abst_gcc), intent(inout), pointer :: gcc_ptr

procedure, private, pass(self) :: get_gcc_holder

  • private subroutine get_gcc_holder(self, region_id, model_holder)

    Arguments

    Type IntentOptional Attributes Name
    class(type_material_manager), intent(inout) :: self
    integer(kind=int32), intent(in) :: region_id
    type(holder_gccs), intent(inout) :: model_holder

procedure, private, pass(self) :: get_gcc_ptr

  • private subroutine get_gcc_ptr(self, region_id, gcc_ptr)

    Arguments

    Type IntentOptional Attributes Name
    class(type_material_manager), intent(inout), target :: self
    integer(kind=int32), intent(in) :: region_id
    class(abst_gcc), intent(inout), pointer :: gcc_ptr

generic, public :: get_sph => get_sph_holder, get_sph_ptr

  • private subroutine get_sph_holder(self, region_id, model_holder)

    Arguments

    Type IntentOptional Attributes Name
    class(type_material_manager), intent(inout) :: self
    integer(kind=int32), intent(in) :: region_id
    type(holder_sphs), intent(inout) :: model_holder

  • private subroutine get_sph_ptr(self, region_id, sph_ptr)

    Arguments

    Type IntentOptional Attributes Name
    class(type_material_manager), intent(inout), target :: self
    integer(kind=int32), intent(in) :: region_id
    class(abst_sph), intent(inout), pointer :: sph_ptr

procedure, private, pass(self) :: get_sph_holder

  • private subroutine get_sph_holder(self, region_id, model_holder)

    Arguments

    Type IntentOptional Attributes Name
    class(type_material_manager), intent(inout) :: self
    integer(kind=int32), intent(in) :: region_id
    type(holder_sphs), intent(inout) :: model_holder

procedure, private, pass(self) :: get_sph_ptr

  • private subroutine get_sph_ptr(self, region_id, sph_ptr)

    Arguments

    Type IntentOptional Attributes Name
    class(type_material_manager), intent(inout), target :: self
    integer(kind=int32), intent(in) :: region_id
    class(abst_sph), intent(inout), pointer :: sph_ptr

generic, public :: get_thc => get_thc_holder, get_thc_ptr

  • private subroutine get_thc_holder(self, region_id, model_holder)

    Arguments

    Type IntentOptional Attributes Name
    class(type_material_manager), intent(inout) :: self
    integer(kind=int32), intent(in) :: region_id
    type(holder_thcs), intent(inout) :: model_holder

  • private subroutine get_thc_ptr(self, region_id, thc_ptr)

    Arguments

    Type IntentOptional Attributes Name
    class(type_material_manager), intent(inout), target :: self
    integer(kind=int32), intent(in) :: region_id
    class(abst_thc), intent(inout), pointer :: thc_ptr

procedure, private, pass(self) :: get_thc_holder

  • private subroutine get_thc_holder(self, region_id, model_holder)

    Arguments

    Type IntentOptional Attributes Name
    class(type_material_manager), intent(inout) :: self
    integer(kind=int32), intent(in) :: region_id
    type(holder_thcs), intent(inout) :: model_holder

procedure, private, pass(self) :: get_thc_ptr

  • private subroutine get_thc_ptr(self, region_id, thc_ptr)

    Arguments

    Type IntentOptional Attributes Name
    class(type_material_manager), intent(inout), target :: self
    integer(kind=int32), intent(in) :: region_id
    class(abst_thc), intent(inout), pointer :: thc_ptr

generic, public :: get_vhc => get_vhc_holder, get_vhc_ptr

  • private subroutine get_vhc_holder(self, region_id, model_holder)

    Arguments

    Type IntentOptional Attributes Name
    class(type_material_manager), intent(inout) :: self
    integer(kind=int32), intent(in) :: region_id
    type(holder_vhcs), intent(inout) :: model_holder

  • private subroutine get_vhc_ptr(self, region_id, vhc_ptr)

    Arguments

    Type IntentOptional Attributes Name
    class(type_material_manager), intent(inout), target :: self
    integer(kind=int32), intent(in) :: region_id
    class(abst_vhc), intent(inout), pointer :: vhc_ptr

procedure, private, pass(self) :: get_vhc_holder

  • private subroutine get_vhc_holder(self, region_id, model_holder)

    Arguments

    Type IntentOptional Attributes Name
    class(type_material_manager), intent(inout) :: self
    integer(kind=int32), intent(in) :: region_id
    type(holder_vhcs), intent(inout) :: model_holder

procedure, private, pass(self) :: get_vhc_ptr

  • private subroutine get_vhc_ptr(self, region_id, vhc_ptr)

    Arguments

    Type IntentOptional Attributes Name
    class(type_material_manager), intent(inout), target :: self
    integer(kind=int32), intent(in) :: region_id
    class(abst_vhc), intent(inout), pointer :: vhc_ptr

generic, public :: get_wrf => get_wrf_holder, get_wrf_ptr

  • private subroutine get_wrf_holder(self, region_id, model_holder)

    Arguments

    Type IntentOptional Attributes Name
    class(type_material_manager), intent(inout) :: self
    integer(kind=int32), intent(in) :: region_id
    type(holder_wrfs), intent(inout) :: model_holder

  • private subroutine get_wrf_ptr(self, region_id, wrf_ptr)

    Arguments

    Type IntentOptional Attributes Name
    class(type_material_manager), intent(inout), target :: self
    integer(kind=int32), intent(in) :: region_id
    class(abst_wrf), intent(inout), pointer :: wrf_ptr

procedure, private, pass(self) :: get_wrf_holder

  • private subroutine get_wrf_holder(self, region_id, model_holder)

    Arguments

    Type IntentOptional Attributes Name
    class(type_material_manager), intent(inout) :: self
    integer(kind=int32), intent(in) :: region_id
    type(holder_wrfs), intent(inout) :: model_holder

procedure, private, pass(self) :: get_wrf_ptr

  • private subroutine get_wrf_ptr(self, region_id, wrf_ptr)

    Arguments

    Type IntentOptional Attributes Name
    class(type_material_manager), intent(inout), target :: self
    integer(kind=int32), intent(in) :: region_id
    class(abst_wrf), intent(inout), pointer :: wrf_ptr

procedure, public, pass(self) :: initialize

  • private subroutine initialize(self, input, ierr)

    Arguments

    Type IntentOptional Attributes Name
    class(type_material_manager), intent(inout) :: self
    type(type_input), intent(in) :: input
    integer(kind=int32), intent(inout) :: ierr