ocean_epbl_exit_data_impl Subroutine

   subroutine ocean_epbl_exit_data_impl(this)
      type(ocean_epbl_t), intent(inout) :: this
      call scratch_3d_buffer_exit_data_impl(this%ctke_sw)
      call scratch_3d_buffer_exit_data_impl(this%dcolht_s)
      call scratch_3d_buffer_exit_data_impl(this%dcolht_t)
      call scratch_3d_buffer_exit_data_impl(this%dpe_s)
      call scratch_3d_buffer_exit_data_impl(this%dpe_t)
      call scratch_3d_buffer_exit_data_impl(this%s0)
      call scratch_3d_buffer_exit_data_impl(this%t0)
      if (allocated(this%tke_conv_decay)) then
         !$acc exit data delete(this%tke_conv_decay)
      end if
      if (allocated(this%tke_mech_decay)) then
         !$acc exit data delete(this%tke_mech_decay)
      end if
      if (allocated(this%tke_mixing)) then
         !$acc exit data delete(this%tke_mixing)
      end if
      if (allocated(this%tke_forcing)) then
         !$acc exit data delete(this%tke_forcing)
      end if
      if (allocated(this%tke_conv)) then
         !$acc exit data delete(this%tke_conv)
      end if
      if (allocated(this%tke_wind)) then
         !$acc exit data delete(this%tke_wind)
      end if
      if (allocated(this%la)) then
         !$acc exit data delete(this%la)
      end if
      if (allocated(this%kd_int)) then
         !$acc exit data delete(this%kd_int)
      end if
      if (allocated(this%mld)) then
         !$acc exit data delete(this%mld)
      end if
      if (allocated(this%b0)) then
         !$acc exit data delete(this%b0)
      end if
      if (allocated(this%f_centre)) then
         !$acc exit data delete(this%f_centre)
      end if
   end subroutine ocean_epbl_exit_data_impl