Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
integer, | public | :: | val | = | 3 | ||
procedure(esmfMethod), | public, | pointer | :: | userMethod | => | null() | |
procedure(esmfMethod), | public, | pointer | :: | userSetUp | => | null() | |
procedure(esmfMethod), | public, | pointer | :: | userTearDown | => | null() | |
type(ESMF_GridComp), | public, | pointer | :: | gc | => | null() | |
type(InternalState), | public, | pointer | :: | wrapped |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character(len=*), | intent(in) | :: | name | |||
procedure(runMethod) | :: | userMethod | ||||
integer, | intent(in) | :: | numPETs |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character(len=*), | intent(in) | :: | name | |||
procedure(runMethod) | :: | userMethod | ||||
integer, | intent(in) | :: | numPETs | |||
procedure(runMethod) | :: | setUp | ||||
procedure(runMethod) | :: | tearDown |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(ESMF_TestCase), | intent(in) | :: | this |
$ call ESMF_GridCompDestroy(gc, rc=status) $ if (status /= ESMF_SUCCESS) then $ rc = status $ return $ end if
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(ESMF_TestCase), | intent(inout) | :: | this | |||
type(ESMF_GridComp), | intent(inout) | :: | gc | |||
integer, | intent(out) | :: | rc |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(ESMF_TestCase), | intent(in) | :: | this |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(ESMF_TestCase), | intent(in) | :: | this |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(ESMF_TestCase), | intent(in) | :: | this |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(ESMF_TestCase), | intent(in) | :: | this |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(ESMF_TestCase), | intent(inout) | :: | this |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(ESMF_TestMethod), | intent(inout) | :: | this |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(ESMF_TestCase), | intent(inout), | target | :: | this | ||
type(ESMF_GridComp), | intent(inout) | :: | gc | |||
integer, | intent(out) | :: | rc |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(ESMF_TestMethod), | intent(inout) | :: | this |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(ESMF_TestMethod), | intent(inout) | :: | this |
type, extends(ESMF_TestCase) :: ESMF_TestMethod procedure(esmfMethod), pointer :: userMethod => null() procedure(esmfMethod), pointer :: userSetUp => null() procedure(esmfMethod), pointer :: userTearDown => null() contains procedure :: runMethod procedure :: setUp procedure :: tearDown end type ESMF_TestMethod