[cig-commits] [commit] devel, master: updates gpu stubs for calling prepare_lddrk_device() routine (6034d34)

[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 6034d3445ce173fc6a0a1cfd5c31dfd2558a2eaf
Author: daniel peter <peterda at ethz.ch>
Date:   Tue Sep 16 16:29:02 2014 +0200

    updates gpu stubs for calling prepare_lddrk_device() routine


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

6034d3445ce173fc6a0a1cfd5c31dfd2558a2eaf
 src/specfem3D/get_cmt.f90                  | 0
 src/specfem3D/prepare_timerun.f90          | 2 +-
 src/specfem3D/specfem3D_gpu_method_stubs.c | 7 +++++--
 3 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/src/specfem3D/prepare_timerun.f90 b/src/specfem3D/prepare_timerun.f90
index a1bc00a..6bcee32 100644
--- a/src/specfem3D/prepare_timerun.f90
+++ b/src/specfem3D/prepare_timerun.f90
@@ -2092,7 +2092,7 @@
   if (USE_LDDRK) then
     if (myrank == 0 ) write(IMAIN,*) "  loading LDDRK arrays"
     stop 'prepare_lddrk_device not implemented yet'
-    call prepare_lddrk_device(Mesh_pointer)
+    !call prepare_lddrk_device(Mesh_pointer)
   endif
 
   ! crust/mantle region
diff --git a/src/specfem3D/specfem3D_gpu_method_stubs.c b/src/specfem3D/specfem3D_gpu_method_stubs.c
index 0547ebe..4cd36b4 100644
--- a/src/specfem3D/specfem3D_gpu_method_stubs.c
+++ b/src/specfem3D/specfem3D_gpu_method_stubs.c
@@ -69,7 +69,7 @@ void FC_FUNC_ (transfer_asmbl_accel_to_device,
 
 void FC_FUNC_(transfer_buffer_to_device_async,
               TRANSFER_BUFFER_TO_DEVICE_ASYNC)(long* Mesh_pointer_f,
-                                               realw* buffer,
+                                               realw* buffer_f,
                                                int* IREGION,
                                                int* FORWARD_OR_ADJOINT) {}
 
@@ -260,7 +260,7 @@ void FC_FUNC_ (compute_stacey_elastic_undoatt_gpu,
 //
 
 void FC_FUNC_ (compute_strain_gpu,
-               COMPUTE_STRAIN_GPU) (long *Mesh_pointer_f, realw *deltat_f, int *FORWARD_OR_ADJOINT_f) {}
+               COMPUTE_STRAIN_GPU) (long *Mesh_pointer_f, realw *deltat_f, int *FORWARD_OR_ADJOINT) {}
 
 
 //
@@ -485,6 +485,9 @@ void FC_FUNC_ (prepare_oceans_device,
                                        realw *h_rmass_ocean_load_selected,
                                        realw *h_normal_ocean_load) {}
 
+void FC_FUNC_ (prepare_lddrk_device,
+               PREPARE_LDDRK_DEVICE) (long *Mesh_pointer_f) {}
+
 void FC_FUNC_ (prepare_crust_mantle_device,
                PREPARE_CRUST_MANTLE_DEVICE) (long *Mesh_pointer_f,
                                              realw *h_xix, realw *h_xiy, realw *h_xiz,