[cig-commits] [commit] master: fixing index bug from previous commit (d5f53bf)

[cig_noreply at geodynamics.org]

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

On branch  : master
Link       : https://github.com/geodynamics/axisem/compare/0661c3b200d42c88acd94351f610be9bf52b934c...d5f53bf9c3506c77131176349d5694c0618b5edc

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

commit d5f53bf9c3506c77131176349d5694c0618b5edc
Author: martinvandriel <martin at vandriel.de>
Date:   Thu Aug 21 14:46:18 2014 +0200

    fixing index bug from previous commit


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

d5f53bf9c3506c77131176349d5694c0618b5edc
 SOLVER/nc_routines.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/SOLVER/nc_routines.F90 b/SOLVER/nc_routines.F90
index d793774..c993323 100644
--- a/SOLVER/nc_routines.F90
+++ b/SOLVER/nc_routines.F90
@@ -543,7 +543,7 @@ subroutine nc_dump_stf(stf)
             ! Dumping the STF in the coarse time stepping of the strain (KERNER) output
             if ( mod(i,strain_it) == 0) then
                stf_dump_dumpvar(it_d) = stf(i) 
-               stf_d_dump_dumpvar(it_s) = stf_d_dumpvar(i)
+               stf_d_dump_dumpvar(it_d) = stf_d_dumpvar(i)
                it_d = it_d + 1
             end if
         end if