[cig-commits] r21494 - seismo/3D/SPECFEM3D_GLOBE/branches/SUNFLOWER_ADIOS/src/shared

[lefebvre at geodynamics.org]

Author: lefebvre
Date: 2013-03-11 15:16:39 -0700 (Mon, 11 Mar 2013)
New Revision: 21494

Modified:
   seismo/3D/SPECFEM3D_GLOBE/branches/SUNFLOWER_ADIOS/src/shared/broadcast_compute_parameters.f90
   seismo/3D/SPECFEM3D_GLOBE/branches/SUNFLOWER_ADIOS/src/shared/read_parameter_file.f90
Log:
Read and Broadcast the "ADIOS_ENABLED" flags from the Par_file
	modified:   src/shared/broadcast_compute_parameters.f90
	modified:   src/shared/read_parameter_file.f90

Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SUNFLOWER_ADIOS/src/shared/broadcast_compute_parameters.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SUNFLOWER_ADIOS/src/shared/broadcast_compute_parameters.f90	2013-03-11 22:16:33 UTC (rev 21493)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SUNFLOWER_ADIOS/src/shared/broadcast_compute_parameters.f90	2013-03-11 22:16:39 UTC (rev 21494)
@@ -342,3 +342,25 @@
   if( ier /= 0 ) call exit_MPI(myrank,'error broadcasting GPU_MODE')
 
   end subroutine broadcast_gpu_parameters
+!
+!-------------------------------------------------------------------------------------------------
+!
+
+  subroutine broadcast_adios_parameters(myrank,ADIOS_ENABLED)
+
+  implicit none
+
+! standard include of the MPI library
+  include 'mpif.h'
+  include "constants.h"
+  include "precision.h"
+
+  integer:: myrank
+  logical:: ADIOS_ENABLED 
+  ! local parameters
+  integer :: ier
+
+  call MPI_BCAST(ADIOS_ENABLED,1,MPI_LOGICAL,0,MPI_COMM_WORLD,ier)
+  if( ier /= 0 ) call exit_MPI(myrank,'error broadcasting ADIOS_ENABLED')
+
+  end subroutine broadcast_adios_parameters

Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SUNFLOWER_ADIOS/src/shared/read_parameter_file.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SUNFLOWER_ADIOS/src/shared/read_parameter_file.f90	2013-03-11 22:16:33 UTC (rev 21493)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SUNFLOWER_ADIOS/src/shared/read_parameter_file.f90	2013-03-11 22:16:39 UTC (rev 21494)
@@ -48,7 +48,7 @@
 
   include "constants.h"
 
-! parameters read from parameter file
+  ! parameters read from parameter file
   integer NTSTEP_BETWEEN_OUTPUT_SEISMOS,NTSTEP_BETWEEN_READ_ADJSRC,NTSTEP_BETWEEN_FRAMES, &
           NTSTEP_BETWEEN_OUTPUT_INFO,NUMBER_OF_RUNS,NUMBER_OF_THIS_RUN,NCHUNKS,SIMULATION_TYPE, &
           MOVIE_VOLUME_TYPE,MOVIE_START,MOVIE_STOP, &
@@ -232,3 +232,27 @@
   call close_parameter_file()
 
   end subroutine read_gpu_mode
+
+
+!-------------------------------------------------------------------------------------------------
+!
+
+  subroutine read_adios_enabled(ADIOS_ENABLED)
+
+  implicit none
+  include "constants.h"
+
+  logical :: ADIOS_ENABLED 
+
+  ! initializes flags
+  ADIOS_ENABLED = .false.
+
+  ! opens file Par_file
+  call open_parameter_file()
+
+  call read_value_logical(ADIOS_ENABLED, 'solver.ADIOS_ENABLED')
+
+  ! close parameter file
+  call close_parameter_file()
+
+  end subroutine read_adios_enabled