vcoord_enter_data Subroutine

private subroutine vcoord_enter_data(self)

Map read-only coordinate arrays to GPU.

Type Bound

vcoord_t

Arguments

Type IntentOptional Attributes Name
class(vcoord_t), intent(inout) :: self

Source Code

   subroutine vcoord_enter_data(self)
      !! Map read-only coordinate arrays to GPU.
      class(vcoord_t), intent(inout) :: self
      if (allocated(self%dsig_target)) then
         !$acc enter data copyin(self%dsig_target)
      end if
      if (allocated(self%z_ref)) then
         !$acc enter data copyin(self%z_ref)
      end if
   end subroutine vcoord_enter_data