[cig-commits] [commit] master: Tidying up (7b7289c)

[cig_noreply at geodynamics.org]

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

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

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

commit 7b7289c7dbd6c6f7e20177c657193146d6e0b70e
Author: Simon Stähler <staehler at geophysik.uni-muenchen.de>
Date:   Mon Aug 25 16:49:48 2014 +0200

    Tidying up


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

7b7289c7dbd6c6f7e20177c657193146d6e0b70e
 SOLVER/nc_routines.F90 | 14 ++++++++------
 SOLVER/seismograms.f90 |  4 ++--
 2 files changed, 10 insertions(+), 8 deletions(-)

diff --git a/SOLVER/nc_routines.F90 b/SOLVER/nc_routines.F90
index df19faf..2cb91ed 100644
--- a/SOLVER/nc_routines.F90
+++ b/SOLVER/nc_routines.F90
@@ -26,7 +26,7 @@ module nc_routines
 #ifdef unc
     use netcdf
 #endif
-    use data_io,    only : verbose, deflate_level, nseismo
+    use data_io,    only : verbose, deflate_level
     use data_proc,  only : mynum, nproc, lpr
     use global_parameters
     use commun,     only : barrier, comm_elem_number
@@ -563,8 +563,9 @@ subroutine nc_dump_rec(recfield, iseismo)
     integer, intent(in)                        :: iseismo
 #ifdef unc
    
-    recdumpvar(iseismo,:,:) = 0.0
-    where(abs(recfield)>epsi) recdumpvar(iseismo,:,:) = recfield(:,:)
+    !recdumpvar(iseismo,:,:) = 0.0
+    !where(abs(recfield)>epsi) recdumpvar(iseismo,:,:) = recfield(:,:)
+    recdumpvar(iseismo,:,:) = recfield(:,:)
 
 #endif
 end subroutine
@@ -576,8 +577,8 @@ subroutine nc_dump_rec_to_disk
     use data_mesh, only: loc2globrec, num_rec
     use data_io,   only: datapath, lfdata, nseismo
 
-    real                              :: tick, tack
-    integer                           :: irec, dumpsize, icomp
+    real              :: tick, tack
+    integer           :: irec, dumpsize, icomp
 
     call cpu_time(tick)
 
@@ -589,7 +590,8 @@ subroutine nc_dump_rec_to_disk
     dumpsize = 0
     do irec = 1, num_rec
         do icomp = 1, 3
-            call putvar_real3d(ncid   = ncid_recout, varid=nc_disp_varid, &
+            call putvar_real3d(ncid   = ncid_recout,  &
+                               varid  = nc_disp_varid, &
                                start  = [1, icomp, loc2globrec(irec)], &
                                count  = [nseismo, 1, 1], &
                                values = reshape(recdumpvar(:,icomp,irec), [nseismo, 1, 1]) )
diff --git a/SOLVER/seismograms.f90 b/SOLVER/seismograms.f90
index 382ae5e..5db68c8 100644
--- a/SOLVER/seismograms.f90
+++ b/SOLVER/seismograms.f90
@@ -899,7 +899,7 @@ subroutine nc_compute_recfile_seis_bare(disp, iseismo)
 
   use data_source, only : src_type
   use nc_routines, only : nc_dump_rec
-  use data_mesh,   only : recfile_el, num_rec, jsurfel
+  use data_mesh,   only : recfile_el, num_rec
   implicit none
   real(kind=realkind), intent(in)  :: disp(0:,0:,:,:)
   integer,             intent(in)  :: iseismo
@@ -930,7 +930,7 @@ subroutine nc_compute_recfile_seis_bare(disp, iseismo)
      enddo
   end if !src_type(1)
 
-call nc_dump_rec(disp_rec, iseismo) 
+  call nc_dump_rec(disp_rec, iseismo) 
 
 end subroutine nc_compute_recfile_seis_bare
 !=============================================================================