Test_LatLonGridFactory Derived Type

type, public, extends(ESMF_TestCase) :: Test_LatLonGridFactory


Inherits

type~~test_latlongridfactory~~InheritsGraph type~test_latlongridfactory Test_LatLonGridFactory ESMF_Grid ESMF_Grid type~test_latlongridfactory->ESMF_Grid grid type~esmf_testcase ESMF_TestCase type~test_latlongridfactory->type~esmf_testcase type~latlongridfactory LatLonGridFactory type~test_latlongridfactory->type~latlongridfactory factory 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 ESMF_DELayout ESMF_DELayout type~latlongridfactory->ESMF_DELayout layout type~abstractgridfactory AbstractGridFactory type~latlongridfactory->type~abstractgridfactory type~realminmax RealMinMax type~latlongridfactory->type~realminmax lon_range, lat_range type~abstractgridfactory->ESMF_Grid grid type~wrapper Wrapper type~internalstate->type~wrapper wrapped type~wrapper->type~esmf_testcase testPtr

Components

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

Constructor

public interface Test_LatLonGridFactory


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

procedure, public :: tearDown

Source Code

   type, extends(ESMF_TestCase) :: Test_LatLonGridFactory
      integer :: numThreads
      type (LatLonGridFactory) :: factory
      type (ESMF_Grid) :: grid
   contains
      procedure :: setUp
      procedure :: tearDown
   end type Test_LatLonGridFactory