[cig-commits] [commit] master: Blocked unnecessary netcdf dump in first time step (3d3aa44)

[cig_noreply at geodynamics.org]

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

On branch  : master
Link       : https://github.com/geodynamics/axisem/compare/4fdc3be0b9163702cd293f978f30a53c8313fa17...7b7289c7dbd6c6f7e20177c657193146d6e0b70e

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

commit 3d3aa440b2d698e517eeed9212bdaec7af04a74f
Author: Simon Stähler <staehler at geophysik.uni-muenchen.de>
Date:   Mon Aug 25 15:59:00 2014 +0200

    Blocked unnecessary netcdf dump in first time step


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

3d3aa440b2d698e517eeed9212bdaec7af04a74f
 SOLVER/time_evol_wave.F90 | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/SOLVER/time_evol_wave.F90 b/SOLVER/time_evol_wave.F90
index b2214de..85add94 100644
--- a/SOLVER/time_evol_wave.F90
+++ b/SOLVER/time_evol_wave.F90
@@ -1044,8 +1044,7 @@ subroutine dump_stuff(iter, iseismo, istrain, isnap,     &
   !^-^-^-^-^-^- Time series^-^-^-^-^-^-^^-^-^-^-^-^-^-^-^-^-^-^-^^-^-^-^
   !^-^-^-^-^-^-^-^-^-^-^-^^-^-^-^-^-^-^-^-^-^-^-^^-^-^-^-^-^-^-^-^-^-^-^
   
-  if ( mod(iter,seis_it)==0) then
-     ! receiver locations read in from file (only 3-comp. displacements)
+  if (mod(iter,seis_it)==0) then
 
      iseismo = iseismo + 1
      if (use_netcdf) then
@@ -1059,7 +1058,7 @@ subroutine dump_stuff(iter, iseismo, istrain, isnap,     &
 
   endif
 
-  if (mod(iter, check_it)==0) then
+  if ((mod(iter, check_it)==0).and.(iter>0)) then
      if (checkpointing.and.use_netcdf) then
         call nc_rec_checkpoint()
      end if