[cig-commits] r18015 - in seismo/2D/SPECFEM2D/trunk: . src/shared

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2011-03-03 10:22:19 -0800 (Thu, 03 Mar 2011)
New Revision: 18015

Modified:
   seismo/2D/SPECFEM2D/trunk/flags.guess
   seismo/2D/SPECFEM2D/trunk/src/shared/adj_seismogram.f90
Log:
fixed NO_CHECK flags for Intel ifort.
removed an unused variable.


Modified: seismo/2D/SPECFEM2D/trunk/flags.guess
===================================================================
--- seismo/2D/SPECFEM2D/trunk/flags.guess	2011-03-03 18:21:31 UTC (rev 18014)
+++ seismo/2D/SPECFEM2D/trunk/flags.guess	2011-03-03 18:22:19 UTC (rev 18015)
@@ -34,7 +34,7 @@
 
         fi
         if test x"$FLAGS_CHECK" = x; then
-            FLAGS_CHECK="\$(FLAGS_NO_CHECK) -traceback -ftrapuv -check all"
+            FLAGS_CHECK="-O1 -vec-report0 -std95 -implicitnone -warn truncated_source -warn argument_checking -warn unused -warn declarations -warn alignments -warn ignore_loc -warn usage -check all -align sequence -assume byterecl -fpe0 -ftz -traceback -ftrapuv"
             #FLAGS_CHECK="-O3 -assume byterecl -traceback -ftrapuv -ftz"
 
 

Modified: seismo/2D/SPECFEM2D/trunk/src/shared/adj_seismogram.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/shared/adj_seismogram.f90	2011-03-03 18:21:31 UTC (rev 18014)
+++ seismo/2D/SPECFEM2D/trunk/src/shared/adj_seismogram.f90	2011-03-03 18:22:19 UTC (rev 18015)
@@ -48,14 +48,13 @@
 ! into the adjoint source for generating banana-dougnut kernels
 
       implicit none
-!
-!!!!  user edit
+
       integer, parameter :: NSTEP = 3000
       integer, parameter :: nrec = 1
       double precision, parameter :: t0 = 12
       double precision, parameter :: deltat = 6d-2
       double precision, parameter :: EPS = 1.d-40
-!!!!
+
       integer :: itime,icomp,istart,iend,nlen,irec,NDIM,NDIMr,adj_comp
       double precision :: time,tstart(nrec),tend(nrec)
       character(len=150), dimension(nrec) :: station_name
@@ -63,12 +62,11 @@
       double precision :: seism(NSTEP,3),Nnorm,seism_win(NSTEP)
       double precision :: seism_veloc(NSTEP),seism_accel(NSTEP),ft_bar(NSTEP)
       character(len=3) :: compr(2),comp(3)
-      character(len=150) :: filename,filename2
+      character(len=150) :: filename
 
       NDIM=3
       comp = (/"BHX","BHY","BHZ"/)
 
-!!!! user edit
 ! which calculation: P-SV (use (1)) or SH (membrane) (use (2)) waves
       NDIMr=2  !(1)
 !      NDIMr=1  !(2)