[cig-commits] [commit] devel, master: improve OCL cleanups (a35d9a3)

[cig_noreply at geodynamics.org]

Repository : https://github.com/geodynamics/specfem3d_globe

On branches: devel,master
Link       : https://github.com/geodynamics/specfem3d_globe/compare/bc58e579b3b0838a0968725a076f5904845437ca...be63f20cbb6f462104e949894dbe205d2398cd7f

>---------------------------------------------------------------

commit a35d9a3c74565715994cf11b690f5513c8f18c66
Author: Kevin Pouget <kevin.pouget at imag.fr>
Date:   Wed Jun 4 15:20:23 2014 +0200

    improve OCL cleanups


>---------------------------------------------------------------

a35d9a3c74565715994cf11b690f5513c8f18c66
 DATA                                 |  2 +-
 src/gpu/prepare_mesh_constants_gpu.c | 10 +++++++++-
 2 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/DATA b/DATA
index 9f21cd3..414b996 160000
--- a/DATA
+++ b/DATA
@@ -1 +1 @@
-Subproject commit 9f21cd3879ab26f8b8164aa218ccbeca0ddb2bf5
+Subproject commit 414b9967a8db10aaddbcda86322e651a49a4f9c3
diff --git a/src/gpu/prepare_mesh_constants_gpu.c b/src/gpu/prepare_mesh_constants_gpu.c
index 4b9b1c8..e280d1b 100644
--- a/src/gpu/prepare_mesh_constants_gpu.c
+++ b/src/gpu/prepare_mesh_constants_gpu.c
@@ -3515,6 +3515,14 @@ void FC_FUNC_ (prepare_cleanup_device,
   //------------------------------------------
 #ifdef USE_OPENCL
   if (run_opencl) {
+    clReleaseMemObject (mp->d_hprime_xx.ocl);
+    clReleaseMemObject (mp->d_hprimewgll_xx.ocl);
+
+    clReleaseMemObject (mp->d_wgllwgll_xy.ocl);
+    clReleaseMemObject (mp->d_wgllwgll_xz.ocl);
+    clReleaseMemObject (mp->d_wgllwgll_yz.ocl);
+    clReleaseMemObject (mp->d_wgll_cube.ocl);
+    
     if (mp->simulation_type == 1 || mp->simulation_type == 3) {
       clReleaseMemObject (mp->d_sourcearrays.ocl);
       clReleaseMemObject (mp->d_stf_pre_compute.ocl);
@@ -4048,8 +4056,8 @@ void FC_FUNC_ (prepare_cleanup_device,
     clFinish (mocl.command_queue);
     release_kernels();
     clReleaseCommandQueue (mocl.command_queue);
+    clReleaseCommandQueue (mocl.copy_queue);
     clReleaseContext (mocl.context);
-   
   }
 #endif