ocean_wave_speed_enter_data_impl Subroutine

private subroutine ocean_wave_speed_enter_data_impl(this)

Arguments

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

Called by

proc~~ocean_wave_speed_enter_data_impl~~CalledByGraph proc~ocean_wave_speed_enter_data_impl ocean_wave_speed_enter_data_impl proc~ocean_wave_speed_enter_data ocean_wave_speed_t%ocean_wave_speed_enter_data proc~ocean_wave_speed_enter_data->proc~ocean_wave_speed_enter_data_impl

Source Code

   subroutine ocean_wave_speed_enter_data_impl(this)
      type(ocean_wave_speed_t), intent(inout) :: this
      if (allocated(this%f_centre)) then
         !$acc enter data copyin(this%f_centre)
      end if
      if (allocated(this%beta_centre)) then
         !$acc enter data copyin(this%beta_centre)
      end if
      if (allocated(this%cg1)) then
         !$acc enter data copyin(this%cg1)
      end if
      if (allocated(this%rd)) then
         !$acc enter data copyin(this%rd)
      end if
      if (allocated(this%rd_over_dx)) then
         !$acc enter data copyin(this%rd_over_dx)
      end if
   end subroutine ocean_wave_speed_enter_data_impl