Test_Scenarios Module


Uses


Interfaces

public interface Scenario

public interface ScenarioDescription

  • public function new_ScenarioDescription(name, root, check_name, check_stateitem) result(s)

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: name
    character(len=*), intent(in) :: root
    character(len=*), intent(in) :: check_name
    procedure(I_check_stateitem) :: check_stateitem

    Return Value type(ScenarioDescription)


Abstract Interfaces

abstract interface

  • public subroutine I_check_stateitem(expectations, state, short_name, description, rc)

    Arguments

    Type IntentOptional Attributes Name
    type(ESMF_HConfig), intent(in) :: expectations
    type(ESMF_State), intent(inout) :: state
    character(len=*), intent(in) :: short_name
    character(len=*), intent(in) :: description
    integer, intent(out) :: rc

Derived Types

type, public, extends(ESMF_TestCase) ::  Scenario

Components

Type Visibility Attributes Name Initial
character(len=:), public, allocatable :: check_name
character(len=:), public, allocatable :: scenario_name
character(len=:), public, allocatable :: scenario_root
integer, public :: val = 3
procedure(I_check_stateitem), public, nopass, pointer :: check_stateitem
type(ESMF_Grid), public :: grid
type(ESMF_GridComp), public, pointer :: gc => null()
type(ESMF_GridComp), public :: outer_gc
type(ESMF_HConfig), public, allocatable :: expectations
type(InternalState), public, pointer :: wrapped
type(MultiState), public :: outer_states

Constructor

public function new_Scenario (desc)

Type-Bound Procedures

procedure, public :: barrier
procedure, public :: clearInternalState
procedure, public :: getLocalPET
procedure, public :: getNumPETsRequested
procedure, public :: getPetCount
procedure, public :: getVM
procedure, public :: runBare
procedure, public :: setInternalState
procedure, public :: setup
procedure, public :: tearDown => teardown

type, public, extends(ESMF_TestParameter) ::  ScenarioDescription

Components

Type Visibility Attributes Name Initial
character(len=:), public, allocatable :: check_name
character(len=:), public, allocatable :: name
character(len=:), public, allocatable :: root
integer, public :: numPETsRequested
procedure(I_check_stateitem), public, nopass, pointer :: check_stateitem

Constructor

public function new_ScenarioDescription (name, root, check_name, check_stateitem)

Type-Bound Procedures

procedure, public :: getNumPetsRequested => getNumPETsRequested
procedure, public :: setNumPetsRequested => setNumPETsRequested
procedure, public :: toStringActual
procedure, public :: tostring => tostring_description

Functions

public function tostring_description(this) result(s)

Arguments

Type IntentOptional Attributes Name
class(ScenarioDescription), intent(in) :: this

Return Value character(len=:), allocatable

public recursive function num_fields(state, rc) result(n)

Arguments

Type IntentOptional Attributes Name
type(ESMF_State), intent(inout) :: state
integer, intent(out), optional :: rc

Return Value integer

public function get_itemtype(state, short_name, rc) result(itemtype)

Arguments

Type IntentOptional Attributes Name
type(ESMF_State) :: state
character(len=*), intent(in) :: short_name
integer, intent(out) :: rc

Return Value type(ESMF_StateItem_Flag)

public function new_Scenario(desc) result(s)

Arguments

Type IntentOptional Attributes Name
type(ScenarioDescription), intent(in) :: desc

Return Value type(Scenario)

public function get_parameters() result(params)

Arguments

None

Return Value type(ScenarioDescription), allocatable, (:)

public function new_ScenarioDescription(name, root, check_name, check_stateitem) result(s)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: name
character(len=*), intent(in) :: root
character(len=*), intent(in) :: check_name
procedure(I_check_stateitem) :: check_stateitem

Return Value type(ScenarioDescription)


Subroutines

public subroutine check_fieldCount(expectations, state, short_name, description, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_HConfig), intent(in) :: expectations
type(ESMF_State), intent(inout) :: state
character(len=*), intent(in) :: short_name
character(len=*), intent(in) :: description
integer, intent(out) :: rc

public subroutine check_field_rank(expectations, state, short_name, description, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_HConfig), intent(in) :: expectations
type(ESMF_State), intent(inout) :: state
character(len=*), intent(in) :: short_name
character(len=*), intent(in) :: description
integer, intent(out) :: rc

public subroutine check_field_status(expectations, state, short_name, description, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_HConfig), intent(in) :: expectations
type(ESMF_State), intent(inout) :: state
character(len=*), intent(in) :: short_name
character(len=*), intent(in) :: description
integer, intent(out) :: rc

public subroutine check_field_typekind(expectations, state, short_name, description, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_HConfig), intent(in) :: expectations
type(ESMF_State), intent(inout) :: state
character(len=*), intent(in) :: short_name
character(len=*), intent(in) :: description
integer, intent(out) :: rc

public subroutine check_field_value(expectations, state, short_name, description, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_HConfig), intent(in) :: expectations
type(ESMF_State), intent(inout) :: state
character(len=*), intent(in) :: short_name
character(len=*), intent(in) :: description
integer, intent(out) :: rc

public subroutine check_item_type(expectations, state, short_name, description, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_HConfig), intent(in) :: expectations
type(ESMF_State), intent(inout) :: state
character(len=*), intent(in) :: short_name
character(len=*), intent(in) :: description
integer, intent(out) :: rc

public recursive subroutine get_substates(gc, states, component_path, substates, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_GridComp), intent(inout), target :: gc
type(MultiState), intent(in) :: states
character(len=*), intent(in) :: component_path
type(MultiState), intent(out) :: substates
integer, intent(out) :: rc

public subroutine setup(this)

Arguments

Type IntentOptional Attributes Name
class(Scenario), intent(inout) :: this

public subroutine teardown(this)

Arguments

Type IntentOptional Attributes Name
class(Scenario), intent(inout) :: this

public subroutine test_anything(this)

Arguments

Type IntentOptional Attributes Name
class(Scenario), intent(inout) :: this