fixes OpenMP statements

danielpeter · Apr 6, 2024 · a4600a8 · a4600a8
1 parent 105b6bd
commit a4600a8
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 2 deletions.
diff --git a/src/specfem2D/compute_forces_viscoelastic.F90 b/src/specfem2D/compute_forces_viscoelastic.F90
@@ -161,7 +161,7 @@ subroutine compute_forces_viscoelastic(accel_elastic,veloc_elastic,displ_elastic
 !$OMP num_elements,ibool,ispec_is_elastic,ispec_is_anisotropic, &
 !$OMP phase_ispec_inner_elastic,iphase, &
 !$OMP displ_elastic,veloc_elastic,accel_elastic, &
-!$OMP xix,xiz,gammax,gammaz,jacobian, &
+!$OMP deriv_mapping,gammaz,jacobian, &
 !$OMP rho_vpstore,mustore,rhostore,qkappa_attenuation_store,qmu_attenuation_store, &
 !$OMP c11store,c12store,c13store,c15store,c22store,c23store,c25store,c33store,c35store,c55store, &
 !$OMP AXISYM,is_on_the_axis,coord,iglob_is_forced, &

diff --git a/src/specfem2D/prepare_optimized_arrays.F90 b/src/specfem2D/prepare_optimized_arrays.F90
@@ -78,7 +78,6 @@ subroutine prepare_timerun_OpenMP()
   implicit none
 
   ! local parameters
-  integer :: ier
   integer :: max_threads
   integer,external :: OMP_GET_MAX_THREADS