Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(ESMF_GridComp) | :: | comp | ||||
type(ESMF_State) | :: | importState | ||||
type(ESMF_State) | :: | exportState | ||||
type(ESMF_Clock) | :: | clock | ||||
integer, | intent(out) | :: | rc |
subroutine user_run(comp, importState, exportState, clock, rc) type(ESMF_GridComp) :: comp type(ESMF_State) :: importState, exportState type(ESMF_Clock) :: clock integer, intent(out) :: rc ! Local variables type(ESMF_VM) :: vm integer :: petCount ! local test variables character(ESMF_MAXSTR) :: failMsg character(ESMF_MAXSTR) :: name integer :: result = 0 ! Local variables ! Initialize return code rc = ESMF_SUCCESS print * print *, "User Comp1 Run starting" !------------------------------------------------------------------------ !NEX_disable_UTest ! Verifing that a ESMF Component Web Service can be registered write(failMsg, *) "Return not equal to ESMF_SUCCESS" write(name, *) "ESMF Run GridCompGet" call ESMF_GridCompGet(comp, vm=vm, rc=rc) call ESMF_Test((rc.eq.ESMF_SUCCESS), name, failMsg, result, ESMF_SRCLINE) !------------------------------------------------------------------------ !------------------------------------------------------------------------ !NEX_disable_UTest ! Verifing that a ESMF Component Web Service can be registered rc = ESMF_SUCCESS write(failMsg, *) "Return not equal to ESMF_SUCCESS" write(name, *) "ESMF Run VMGet" call ESMF_VMGet(vm, petCount=petCount, rc=rc) call ESMF_Test((rc.eq.ESMF_SUCCESS), name, failMsg, result, ESMF_SRCLINE) !------------------------------------------------------------------------ print *, "User Comp1 Run returning" print * end subroutine user_run