fix GPU device deallocation with OpenMP

Author: jaimesouza

simwave/kernel/backend/c_code/forward/constant_density/2d/wave.c

@@ -53,11 +53,11 @@ double forward(f_type *u, f_type *velocity, f_type *damp,
 
     #ifdef GPU_OPENMP
 
-    // select the device 
+    // select the device
     #ifdef DEVICEID
     omp_set_default_device(DEVICEID);
     #endif
-    
+
     size_t shot_record_size = wavelet_size * num_receivers;
     size_t u_size = num_snapshots * domain_size;
 
@@ -433,8 +433,6 @@ double forward(f_type *u, f_type *velocity, f_type *damp,
     #pragma omp target exit data map(delete: rec_points_values[:rec_points_values_size])
     #pragma omp target exit data map(delete: rec_points_values_offset[:num_receivers])
     #pragma omp target exit data map(delete: wavelet[:wavelet_size * wavelet_count])
-    #pragma omp target exit data map(delete: receivers[:shot_record_size])
-    #pragma omp target exit data map(delete: u[:u_size])
     #endif
 
     // get the end time

simwave/kernel/backend/c_code/forward/constant_density/3d/wave.c

@@ -54,11 +54,11 @@ double forward(f_type *u, f_type *velocity, f_type *damp,
 
     #ifdef GPU_OPENMP
 
-    // select the device 
+    // select the device
     #ifdef DEVICEID
     omp_set_default_device(DEVICEID);
     #endif
-    
+
     size_t shot_record_size = wavelet_size * num_receivers;
     size_t u_size = num_snapshots * domain_size;
 
@@ -519,8 +519,6 @@ double forward(f_type *u, f_type *velocity, f_type *damp,
     #pragma omp target exit data map(delete: rec_points_values[:rec_points_values_size])
     #pragma omp target exit data map(delete: rec_points_values_offset[:num_receivers])
     #pragma omp target exit data map(delete: wavelet[:wavelet_size * wavelet_count])
-    #pragma omp target exit data map(delete: receivers[:shot_record_size])
-    #pragma omp target exit data map(delete: u[:u_size])
     #endif
 
     // get the end time

simwave/kernel/backend/c_code/forward/variable_density/2d/wave.c

@@ -454,9 +454,7 @@ double forward(f_type *u, f_type *velocity, f_type *density, f_type *damp,
     #pragma omp target exit data map(delete: rec_points_interval[:rec_points_interval_size])
     #pragma omp target exit data map(delete: rec_points_values[:rec_points_values_size])
     #pragma omp target exit data map(delete: rec_points_values_offset[:num_receivers])
-    #pragma omp target exit data map(delete: wavelet[:wavelet_size * wavelet_count])
-    #pragma omp target exit data map(delete: receivers[:shot_record_size])
-    #pragma omp target exit data map(delete: u[:u_size])
+    #pragma omp target exit data map(delete: wavelet[:wavelet_size * wavelet_count])    
     #endif
 
     // get the end time

simwave/kernel/backend/c_code/forward/variable_density/3d/wave.c

@@ -545,8 +545,6 @@ double forward(f_type *u, f_type *velocity, f_type *density, f_type *damp,
     #pragma omp target exit data map(delete: rec_points_values[:rec_points_values_size])
     #pragma omp target exit data map(delete: rec_points_values_offset[:num_receivers])
     #pragma omp target exit data map(delete: wavelet[:wavelet_size * wavelet_count])
-    #pragma omp target exit data map(delete: receivers[:shot_record_size])
-    #pragma omp target exit data map(delete: u[:u_size])
     #endif
 
     // get the end time