Scenario Derived Type

type, public, extends(ESMF_TestCase) :: Scenario


Inherits

type~~scenario~~InheritsGraph type~scenario Scenario ESMF_Grid ESMF_Grid type~scenario->ESMF_Grid grid ESMF_GridComp ESMF_GridComp type~scenario->ESMF_GridComp outer_gc ESMF_HConfig ESMF_HConfig type~scenario->ESMF_HConfig expectations type~esmf_testcase ESMF_TestCase type~scenario->type~esmf_testcase type~multistate MultiState type~scenario->type~multistate outer_states type~esmf_testcase->ESMF_GridComp gc MpiTestCase MpiTestCase type~esmf_testcase->MpiTestCase type~internalstate InternalState type~esmf_testcase->type~internalstate wrapped ESMF_State ESMF_State type~multistate->ESMF_State internalState, importState, exportState type~wrapper Wrapper type~internalstate->type~wrapper wrapped type~wrapper->type~esmf_testcase testPtr

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 interface Scenario


Type-Bound Procedures

procedure, public :: barrier

  • private subroutine barrier(this)

    Arguments

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

procedure, public :: clearInternalState

  • private subroutine clearInternalState(this, gc, rc)

    $ call ESMF_GridCompDestroy(gc, rc=status) $ if (status /= ESMF_SUCCESS) then $ rc = status $ return $ end if

    Arguments

    Type IntentOptional Attributes Name
    class(ESMF_TestCase), intent(inout) :: this
    type(ESMF_GridComp), intent(inout) :: gc
    integer, intent(out) :: rc

procedure, public :: getLocalPET

  • private function getLocalPET(this) result(localPET)

    Arguments

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

    Return Value integer

procedure, public :: getNumPETsRequested

  • private function getNumPETsRequested(this) result(numPETsRequested)

    Arguments

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

    Return Value integer

procedure, public :: getPetCount

  • private function getPetCount(this) result(petCount)

    Arguments

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

    Return Value integer

procedure, public :: getVM

  • private function getVM(this) result(vm)

    Arguments

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

    Return Value type(ESMF_VM)

procedure, public :: runBare

  • private recursive subroutine runBare(this)

    Arguments

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

procedure, public :: setInternalState

  • private subroutine setInternalState(this, gc, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(ESMF_TestCase), intent(inout), target :: this
    type(ESMF_GridComp), intent(inout) :: gc
    integer, intent(out) :: rc

procedure, public :: setup

  • public subroutine setup(this)

    Arguments

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

procedure, public :: tearDown => teardown

  • public subroutine teardown(this)

    Arguments

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

Source Code

   type, extends(ESMF_TestCase) :: Scenario
      character(:), allocatable :: scenario_name
      character(:), allocatable :: scenario_root
      character(:), allocatable :: check_name
      procedure(I_check_stateitem), nopass, pointer :: check_stateitem

      type(ESMF_HConfig), allocatable :: expectations
      type(ESMF_GridComp) :: outer_gc
      type(MultiState) :: outer_states
      type(ESMF_Grid) :: grid
   contains
      procedure :: setup
      procedure :: tearDown
   end type Scenario