ozone_base_type Derived Type

type, public, abstract :: ozone_base_type


Components

Type Visibility Attributes Name Initial
real(kind=r8), public, pointer :: o3coefvsha_patch(:)
real(kind=r8), public, pointer :: o3coefvsun_patch(:)
real(kind=r8), public, pointer :: o3coefgsha_patch(:)
real(kind=r8), public, pointer :: o3coefgsun_patch(:)

Type-Bound Procedures

procedure(Init_interface), public, deferred :: Init

  • subroutine Init_interface(this, bounds) Prototype

    Arguments

    Type IntentOptional Attributes Name
    class(ozone_base_type), intent(inout) :: this
    type(bounds_type), intent(in) :: bounds

procedure(Restart_interface), public, deferred :: Restart

  • subroutine Restart_interface(this, bounds, ncid, flag) Prototype

    Arguments

    Type IntentOptional Attributes Name
    class(ozone_base_type) :: this
    type(bounds_type), intent(in) :: bounds
    type(file_desc_t), intent(inout) :: ncid
    character(len=*), intent(in) :: flag

procedure(CalcOzoneStress_interface), public, deferred :: CalcOzoneStress

  • subroutine CalcOzoneStress_interface(this, bounds, num_exposedvegp, filter_exposedvegp, forc_pbot, forc_th, rssun, rssha, rb, ram, tlai) Prototype

    Arguments

    Type IntentOptional Attributes Name
    class(ozone_base_type), intent(inout) :: this
    type(bounds_type), intent(in) :: bounds
    integer, intent(in) :: num_exposedvegp
    integer, intent(in) :: filter_exposedvegp(:)
    real(kind=r8), intent(in) :: forc_pbot(bounds%begc:)
    real(kind=r8), intent(in) :: forc_th(bounds%begc:)
    real(kind=r8), intent(in) :: rssun(bounds%begp:)
    real(kind=r8), intent(in) :: rssha(bounds%begp:)
    real(kind=r8), intent(in) :: rb(bounds%begp:)
    real(kind=r8), intent(in) :: ram(bounds%begp:)
    real(kind=r8), intent(in) :: tlai(bounds%begp:)

procedure, public :: InitAllocateBase

  • private subroutine InitAllocateBase(this, bounds)

    Arguments

    Type IntentOptional Attributes Name
    class(ozone_base_type), intent(inout) :: this
    type(bounds_type), intent(in) :: bounds

procedure, public :: InitColdBase

  • private subroutine InitColdBase(this, bounds)

    Arguments

    Type IntentOptional Attributes Name
    class(ozone_base_type), intent(inout) :: this
    type(bounds_type), intent(in) :: bounds