ocean_tides_enter_data_impl Subroutine

private subroutine ocean_tides_enter_data_impl(this)

Arguments

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

Called by

proc~~ocean_tides_enter_data_impl~~CalledByGraph proc~ocean_tides_enter_data_impl ocean_tides_enter_data_impl proc~ocean_tides_enter_data ocean_tides_t%ocean_tides_enter_data proc~ocean_tides_enter_data->proc~ocean_tides_enter_data_impl

Source Code

   subroutine ocean_tides_enter_data_impl(this)
      type(ocean_tides_t), intent(inout) :: this
      if (allocated(this%species_c)) then
         !$acc enter data copyin(this%species_c, this%omega_c, this%amp_c, &
         !$acc                   this%love_c, this%phase0, this%f_nodal, &
         !$acc                   this%u_nodal, this%amp_cos, this%amp_sin, &
         !$acc                   this%cos_struct, this%sin_struct, this%eta_eq, &
         !$acc                   this%eta_sal, this%eta_forcing)
      end if
   end subroutine ocean_tides_enter_data_impl