[cig-commits] [commit] master: Write 't_c_source' adios variable in the same case than its definition (a82e18a)

[cig_noreply at geodynamics.org]

Repository : https://github.com/geodynamics/specfem3d_globe

On branch  : master
Link       : https://github.com/geodynamics/specfem3d_globe/compare/1300e56709140f2d98f36f4b2c1f35c562e62f78...1a49be3c5a995861d4986a4639d36c23e27e3980

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

commit a82e18a1dc155f45c8d6ddccfa7fbf0d35887333
Author: Matthieu Lefebvre <ml15 at princeton.edu>
Date:   Thu Jan 29 14:51:32 2015 -0500

    Write 't_c_source' adios variable in the same case than its definition


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

a82e18a1dc155f45c8d6ddccfa7fbf0d35887333
 src/meshfem3D/save_arrays_solver_adios.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/meshfem3D/save_arrays_solver_adios.F90 b/src/meshfem3D/save_arrays_solver_adios.F90
index 411390e..e435fb7 100644
--- a/src/meshfem3D/save_arrays_solver_adios.F90
+++ b/src/meshfem3D/save_arrays_solver_adios.F90
@@ -791,7 +791,7 @@ subroutine save_arrays_solver_adios(myrank,nspec,nglob,idoubling,ibool, &
     if (adios_err /= 0 ) stop 'Error calling adios_group_size() routine failed'
 
     !--- Schedule writes for the previously defined ADIOS variables
-    call adios_write(handle, trim(region_name) // "T_c_source", T_c_source, adios_err)
+    call adios_write(handle, trim(region_name) // "t_c_source", T_c_source, adios_err)
 
     local_dim = size (tau_s)
     call write_adios_global_1d_array(handle, myrank, sizeprocs, local_dim, &