ocean_vmix_exit_data_impl Subroutine

   subroutine ocean_vmix_exit_data_impl(this)
      type(ocean_vmix_t), intent(inout) :: this
      if (allocated(this%kv)) then
         !$acc exit data delete(this%kv)
      end if
      if (allocated(this%kt)) then
         !$acc exit data delete(this%kt)
      end if
      if (allocated(this%ks)) then
         !$acc exit data delete(this%ks)
      end if
      if (allocated(this%smooth_scratch)) then
         !$acc exit data delete(this%smooth_scratch)
      end if
      if (allocated(this%bl_depth)) then
         !$acc exit data delete(this%bl_depth)
      end if
      if (allocated(this%b0)) then
         !$acc exit data delete(this%b0)
      end if
      if (allocated(this%gamma_t)) then
         !$acc exit data delete(this%gamma_t)
      end if
      if (allocated(this%gamma_s)) then
         !$acc exit data delete(this%gamma_s)
      end if
      if (allocated(this%kd_bg)) then
         !$acc exit data delete(this%kd_bg)
      end if
   end subroutine ocean_vmix_exit_data_impl