[cig-commits] [commit] master: tidy up (435b55b)

[cig_noreply at geodynamics.org]

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

On branch  : master
Link       : https://github.com/geodynamics/axisem/compare/607f803cf074063627513d235f9ed0837fc1dd44...b6457db24acdde4a4e1c08935ae1b22adf87f5bf

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

commit 435b55bc9d9c6b5e22591d40cee7b36e1b04d9d0
Author: martinvandriel <martin at vandriel.de>
Date:   Wed Oct 15 20:34:16 2014 +0200

    tidy up


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

435b55bc9d9c6b5e22591d40cee7b36e1b04d9d0
 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 8aa9d72..7cdbcc9 100644
--- a/SOLVER/nc_routines.F90
+++ b/SOLVER/nc_routines.F90
@@ -446,7 +446,6 @@ subroutine nc_dump_strain_to_disk() bind(c, name="nc_dump_strain_to_disk")
 #endif
     
     call barrier
-    call getgrpid(ncid_out, "Snapshots", ncid_snapout) 
     isnap_loc = isnap_global
     if (verbose > 0) then
         if (ndumps == 0) then 
@@ -459,6 +458,7 @@ subroutine nc_dump_strain_to_disk() bind(c, name="nc_dump_strain_to_disk")
         end if
     end if
 
+    call getgrpid(ncid_out, "Snapshots", ncid_snapout) 
     do ivar=1, nvar/2
         call putvar_real2d(ncid   = ncid_snapout,   &
                            varid  = nc_field_varid(ivar), &