[cig-commits] [commit] master: fixing a bug in fluid strain output (48c6609)

[cig_noreply at geodynamics.org]

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

On branch  : master
Link       : https://github.com/geodynamics/axisem/compare/ca4b3002407f17f95bbf7013f7622a43ceb4db35...7a0ed4115e0445ccb0219c894eedf4bf157d8689

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

commit 48c66096b812fa7eaae02d682c835ca58032683f
Author: martinvandriel <martin at vandriel.de>
Date:   Mon Oct 13 17:37:25 2014 +0200

    fixing a bug in fluid strain output


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

48c66096b812fa7eaae02d682c835ca58032683f
 SOLVER/wavefields_io.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/SOLVER/wavefields_io.f90 b/SOLVER/wavefields_io.f90
index 25eac1c..3341fb1 100644
--- a/SOLVER/wavefields_io.f90
+++ b/SOLVER/wavefields_io.f90
@@ -797,7 +797,7 @@ subroutine dump_field_1d(f, filename, appisnap, n)
        elseif (n==nel_fluid) then
           if (dump_type == 'strain_only') then
              if (npoint_fluid_kwf > 0) &
-                call nc_dump_field_fluid(kwf_mapping_sol(floc), filename(2:))
+                call nc_dump_field_fluid(kwf_mapping_flu(floc), filename(2:))
           else
              call nc_dump_field_fluid(pack(floc(ibeg:iend,ibeg:iend,:), .true.), &
                                     filename(2:))