test_one Subroutine

public subroutine test_one(this)

Arguments

Type IntentOptional Attributes Name
class(ESMF_TestMethod), intent(inout) :: this

Calls

proc~~test_one~~CallsGraph proc~test_one test_one ESMF_VMGet ESMF_VMGet proc~test_one->ESMF_VMGet none~getvm ESMF_TestCase%getVM proc~test_one->none~getvm ESMF_GridCompGet ESMF_GridCompGet none~getvm->ESMF_GridCompGet

Source Code

   subroutine test_one(this)
      class (ESMF_TestMethod), intent(inout) :: this

      type (ESMF_VM) :: vm
      integer :: localPet, petCount


      vm = this%getVM()
      call ESMF_VMGet(vm, localPet=localPet, petCount=petCount)

   end subroutine test_one