[cig-commits] r21510 - seismo/3D/SPECFEM3D_GLOBE/branches/SUNFLOWER_ADIOS/src/specfem3D

[lefebvre at geodynamics.org]

Author: lefebvre
Date: 2013-03-12 13:39:10 -0700 (Tue, 12 Mar 2013)
New Revision: 21510

Modified:
   seismo/3D/SPECFEM3D_GLOBE/branches/SUNFLOWER_ADIOS/src/specfem3D/adios_manager.F90
Log:
Change adios_init to call the non xml API.
	modified:   ../../src/specfem3D/adios_manager.F90

Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SUNFLOWER_ADIOS/src/specfem3D/adios_manager.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SUNFLOWER_ADIOS/src/specfem3D/adios_manager.F90	2013-03-12 19:34:42 UTC (rev 21509)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SUNFLOWER_ADIOS/src/specfem3D/adios_manager.F90	2013-03-12 20:39:10 UTC (rev 21510)
@@ -30,9 +30,11 @@
   use adios_write_mod, only: adios_init
 
   implicit none
-  integer :: adios_err
+  integer :: adios_err, sizeMB
 
-  call adios_init ("./DATA/par_header.xml", adios_err);
+  call adios_init_noxml (adios_err);
+  sizeMB = 200 ! TODO 200MB is surely not the right size for the adios buffer
+  call adios_allocate_buffer (sizeMB , adios_err)
 end subroutine adios_setup
 
 !> @brief Finalize ADIOS. Must be called once everything is written down.