Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
integer, | public | :: | val | = | 3 | ||
type(ESMF_GridComp), | public, | pointer | :: | gc | => | null() | |
type(InternalState), | public, | pointer | :: | wrapped |
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_TestCase), | intent(inout), | target | :: | this | ||
type(ESMF_GridComp), | intent(inout) | :: | gc | |||
integer, | intent(out) | :: | rc |
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