[cig-commits] r22801 - in seismo/3D/SPECFEM3D/trunk: DATA src/specfem3D

[lefebvre at geodynamics.org]

Author: lefebvre
Date: 2013-09-18 07:35:40 -0700 (Wed, 18 Sep 2013)
New Revision: 22801

Modified:
   seismo/3D/SPECFEM3D/trunk/DATA/Par_file
   seismo/3D/SPECFEM3D/trunk/src/specfem3D/specfem3D_adios_stubs.f90
Log:
adios stubs for the solver modified to take forward arrays routines.

Modified: seismo/3D/SPECFEM3D/trunk/DATA/Par_file
===================================================================
--- seismo/3D/SPECFEM3D/trunk/DATA/Par_file	2013-09-18 14:35:34 UTC (rev 22800)
+++ seismo/3D/SPECFEM3D/trunk/DATA/Par_file	2013-09-18 14:35:40 UTC (rev 22801)
@@ -120,8 +120,8 @@
 GPU_MODE                        = .false.
 
 # ADIOS Options for I/Os
-ADIOS_ENABLED                   = .true.
-ADIOS_FOR_DATABASES             = .true.
-ADIOS_FOR_MESH                  = .true.
-ADIOS_FOR_FORWARD_ARRAYS        = .true.
-ADIOS_FOR_KERNELS               = .true.
+ADIOS_ENABLED                   = .false.
+ADIOS_FOR_DATABASES             = .false.
+ADIOS_FOR_MESH                  = .false.
+ADIOS_FOR_FORWARD_ARRAYS        = .false.
+ADIOS_FOR_KERNELS               = .false.

Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/specfem3D_adios_stubs.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/specfem3D_adios_stubs.f90	2013-09-18 14:35:34 UTC (rev 22800)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/specfem3D_adios_stubs.f90	2013-09-18 14:35:40 UTC (rev 22801)
@@ -69,3 +69,24 @@
 
   call no_adios_err()  
 end subroutine save_kernels_hessian_adios
+
+!------------------------------------------------.
+! Subroutines from save_forward_arrays_adios.F90 |
+!------------------------------------------------'
+
+subroutine save_forward_arrays_adios()
+  use adios_manager_mod
+
+  call no_adios_err()  
+end subroutine save_forward_arrays_adios
+
+!------------------------------------------------.
+! Subroutines from read_forward_arrays_adios.F90 |
+!------------------------------------------------'
+
+subroutine read_forward_arrays_adios()
+  use adios_manager_mod
+
+  call no_adios_err()  
+end subroutine read_forward_arrays_adios
+