ESMF_TestCase Derived Type

type, public, extends(MpiTestCase) :: ESMF_TestCase


Inherits

type~~esmf_testcase~~InheritsGraph type~esmf_testcase ESMF_TestCase ESMF_GridComp ESMF_GridComp type~esmf_testcase->ESMF_GridComp gc MpiTestCase MpiTestCase type~esmf_testcase->MpiTestCase type~internalstate InternalState type~esmf_testcase->type~internalstate wrapped type~wrapper Wrapper type~internalstate->type~wrapper wrapped type~wrapper->type~esmf_testcase testPtr

Inherited by

type~~esmf_testcase~~InheritedByGraph type~esmf_testcase ESMF_TestCase type~internalstate InternalState type~esmf_testcase->type~internalstate wrapped type~esmf_testmethod ESMF_TestMethod type~esmf_testmethod->type~esmf_testcase type~scenario Scenario type~scenario->type~esmf_testcase type~test_latloncorners Test_LatLonCorners type~test_latloncorners->type~esmf_testcase type~test_latlongridfactory Test_LatLonGridFactory type~test_latlongridfactory->type~esmf_testcase type~wrapper Wrapper type~wrapper->type~esmf_testcase testPtr type~internalstate->type~wrapper wrapped

Components

Type Visibility Attributes Name Initial
integer, public :: val = 3
type(ESMF_GridComp), public, pointer :: gc => null()
type(InternalState), public, pointer :: wrapped

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

Source Code

   type, extends(MpiTestCase) :: ESMF_TestCase
      type (InternalState), pointer :: wrapped
      type (ESMF_GridComp), pointer :: gc => null()
      integer :: val = 3
   contains
      procedure :: runBare
      procedure :: setInternalState
      procedure :: clearInternalState
      procedure :: getVM
      procedure :: getPetCount
      procedure :: getLocalPET
      procedure :: barrier
      procedure :: getNumPETsRequested
   end type ESMF_TestCase