[cig-commits] r22131 - in seismo/3D/SPECFEM3D/trunk/src: cuda specfem3D

[danielpeter at geodynamics.org]

Author: danielpeter
Date: 2013-05-23 06:37:48 -0700 (Thu, 23 May 2013)
New Revision: 22131

Modified:
   seismo/3D/SPECFEM3D/trunk/src/cuda/save_and_compare_cpu_vs_gpu.c
   seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_acoustic_noDev.f90
Log:
bug fix in compute_forces_acoustic_noDev.f90 and save_and_compare_cpu_vs_gpu.c

Modified: seismo/3D/SPECFEM3D/trunk/src/cuda/save_and_compare_cpu_vs_gpu.c
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/cuda/save_and_compare_cpu_vs_gpu.c	2013-05-22 14:30:38 UTC (rev 22130)
+++ seismo/3D/SPECFEM3D/trunk/src/cuda/save_and_compare_cpu_vs_gpu.c	2013-05-23 13:37:48 UTC (rev 22131)
@@ -30,6 +30,7 @@
 #include <stdlib.h>
 #include <math.h>
 #include <errno.h>
+#include <string.h>
 
 #ifdef WITH_MPI
 #include <mpi.h>
@@ -111,6 +112,7 @@
   float* vector = (float*)malloc(nodes_per_iteration*sizeof(float));
   float max_val;
   int i;
+  max_val = 0.0;
   for(it=0;it<*NSTEP;it++) {
     int pos = (sizeof(float)*nodes_per_iteration)*(it);
     fseek(fp,pos,SEEK_SET);

Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_acoustic_noDev.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_acoustic_noDev.f90	2013-05-22 14:30:38 UTC (rev 22130)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_acoustic_noDev.f90	2013-05-23 13:37:48 UTC (rev 22131)
@@ -44,7 +44,7 @@
 !
   use specfem_par,only: CUSTOM_REAL,NGLLX,NGLLY,NGLLZ,TINYVAL_SNGL,&
                         STACEY_ABSORBING_CONDITIONS,PML_CONDITIONS
-  use pml_par, only: ELASTIC_SIMULATION,NSPEC_CPML,is_CPML, spec_to_CPML, &
+  use pml_par, only: NSPEC_CPML,is_CPML, spec_to_CPML, &
                      k_store_x,k_store_y,k_store_z,d_store_x,d_store_y,d_store_z,alpha_store,&
                      PML_dpotential_dxl,PML_dpotential_dyl,PML_dpotential_dzl,&
                      PML_dpotential_dxl_new,PML_dpotential_dyl_new,PML_dpotential_dzl_new,&