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

[cig_noreply at geodynamics.org]

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

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

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

commit 010149a676a1396bcb6bdfa8f2cc691a1f3cb343
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


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

010149a676a1396bcb6bdfa8f2cc691a1f3cb343
 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 44e2617..e9dd619 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, &