ocean_data_input_enter_data_impl Subroutine

private subroutine ocean_data_input_enter_data_impl(this)

Arguments

Type IntentOptional Attributes Name
type(ocean_data_input_t), intent(inout) :: this

Called by

proc~~ocean_data_input_enter_data_impl~~CalledByGraph proc~ocean_data_input_enter_data_impl ocean_data_input_enter_data_impl proc~ocean_data_input_enter_data ocean_data_input_t%ocean_data_input_enter_data proc~ocean_data_input_enter_data->proc~ocean_data_input_enter_data_impl

Variables

Type Visibility Attributes Name Initial
integer, private :: i

Source Code

   subroutine ocean_data_input_enter_data_impl(this)
      type(ocean_data_input_t), intent(inout) :: this
      integer :: i
      if (.not. this%is_init) return
      do i = 1, this%nfields
         if (.not. allocated(this%fields(i)%f0)) cycle
         !$acc enter data copyin(this%fields(i)%f0, this%fields(i)%f1)
         ! Rule (2): create-mapped arrays do NOT carry the host values
         ! read at registration time — push them explicitly.
         !$acc update device(this%fields(i)%f0, this%fields(i)%f1)
      end do
   end subroutine ocean_data_input_enter_data_impl