[cig-commits] r21007 - in seismo/3D/ADJOINT_TOMO/measure_adj: . USER_MANUAL

[liuqy at geodynamics.org]

Author: liuqy
Date: 2012-11-09 10:48:56 -0800 (Fri, 09 Nov 2012)
New Revision: 21007

Modified:
   seismo/3D/ADJOINT_TOMO/measure_adj/Makefile
   seismo/3D/ADJOINT_TOMO/measure_adj/USER_MANUAL/measure_adj_manual.tex
   seismo/3D/ADJOINT_TOMO/measure_adj/ma_sub.f90
   seismo/3D/ADJOINT_TOMO/measure_adj/measure_adj.f90
Log:
Fixing minor formatting problems and typos.



Modified: seismo/3D/ADJOINT_TOMO/measure_adj/Makefile
===================================================================
--- seismo/3D/ADJOINT_TOMO/measure_adj/Makefile	2012-11-09 17:34:32 UTC (rev 21006)
+++ seismo/3D/ADJOINT_TOMO/measure_adj/Makefile	2012-11-09 18:48:56 UTC (rev 21007)
@@ -1,4 +1,5 @@
 F90 = gfortran
+F90_FLAGS = -Wall -g -fbounds-check
 
 #64-bit
 F90_FLAGS = -O2 -fbounds-check     #-Wall

Modified: seismo/3D/ADJOINT_TOMO/measure_adj/USER_MANUAL/measure_adj_manual.tex
===================================================================
--- seismo/3D/ADJOINT_TOMO/measure_adj/USER_MANUAL/measure_adj_manual.tex	2012-11-09 17:34:32 UTC (rev 21006)
+++ seismo/3D/ADJOINT_TOMO/measure_adj/USER_MANUAL/measure_adj_manual.tex	2012-11-09 18:48:56 UTC (rev 21007)
@@ -306,7 +306,7 @@
 \begin{enumerate}
 \item \verb+write_par_file.pl+. Write the file \verb+MEASUREMENT.PAR+ from a set of parameters. This is called within the run scripts in \verb+scripts_tomo+.
 
-\item \verb+prepare_adj_src.p+. This script reads in a set of adjoint sources made from Z-R-T records and outputs a set of adjoint sources in Z-E-N that can be used in SPECFEM3D. The key is that it will create an all-zeros record if no measurement is made on a particular component (say, Z), but IS made on another component (say, R or T).
+\item \verb+prepare_adj_src.pl+. This script reads in a set of adjoint sources made from Z-R-T records and outputs a set of adjoint sources in Z-E-N that can be used in SPECFEM3D. The key is that it will create an all-zeros record if no measurement is made on a particular component (say, Z), but IS made on another component (say, R or T).
 
 {\bf NOTE: We need to eliminate the dependence on the library
 

Modified: seismo/3D/ADJOINT_TOMO/measure_adj/ma_sub.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/measure_adj/ma_sub.f90	2012-11-09 17:34:32 UTC (rev 21006)
+++ seismo/3D/ADJOINT_TOMO/measure_adj/ma_sub.f90	2012-11-09 18:48:56 UTC (rev 21007)
@@ -746,7 +746,7 @@
     ! MULTITAPER ADJOINT SOURCES
     ! -------------------------------
 
-    if ( (is_mtm == 1).and.COMPUTE_ADJOINT_SOURCE ) then
+    if ( is_mtm == 1 .and. COMPUTE_ADJOINT_SOURCE ) then
 
       ! allocate MT variables
       ntaper = int(NPI * 2.0)

Modified: seismo/3D/ADJOINT_TOMO/measure_adj/measure_adj.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/measure_adj/measure_adj.f90	2012-11-09 17:34:32 UTC (rev 21006)
+++ seismo/3D/ADJOINT_TOMO/measure_adj/measure_adj.f90	2012-11-09 18:48:56 UTC (rev 21007)
@@ -4,21 +4,21 @@
   !  and then compute the corresponding adjoint sources
 
   ! input parameter:
-  !  1. imeas = 1, normalized waveform difference. Adjoint source is constructed from the data
-  !                      only, with the form −d(t)/ || d(t) || 2
-  !  2. imeas = 2, waveform difference, s(t) − d(t).
-  !  3. imeas = 3, cross-correlation traveltime difference for a (banana-doughtnut) sensitivity ker-
+  !  1. imeas = 1, normalized waveform difference. Adjoint source is constructed from the data
+  !                      only, with the form -d(t)/ || d(t) || 2
+  !  2. imeas = 2, waveform difference, s(t) − d(t).
+  !  3. imeas = 3, cross-correlation traveltime difference for a (banana-doughtnut) sensitivity ker-
   !                       nel. The measurement between data and synthetics is not used in constructing the adjoint
   !                       source.
-  !  4. imeas = 4, amplitude difference for a (banana-doughtnut) sensitivity kernel. The measure-
+  !  4. imeas = 4, amplitude difference for a (banana-doughtnut) sensitivity kernel. The measure-
   !                       ment between data and synthetics is not used in constructing the adjoint source.
-  !  5. imeas = 5, cross-correlation traveltime difference for an event kernel. The measurement
+  !  5. imeas = 5, cross-correlation traveltime difference for an event kernel. The measurement
   !                       between data and synthetics is used in constructing the adjoint source.
-  !  6. imeas = 6, amplitude difference for an event kernel. The measurement between data and
+  !  6. imeas = 6, amplitude difference for an event kernel. The measurement between data and
   !                        synthetics is used in constructing the adjoint source.
-  !  7. imeas = 7, multitaper traveltime difference for an event kernel. The measurement between
+  !  7. imeas = 7, multitaper traveltime difference for an event kernel. The measurement between
   !                       data and synthetics is used in constructing the adjoint source. See multitaper_notes.pdf.
-  !  8. imeas = 8, multitaper ampltidue difference for an event kernel. The measurement between
+  !  8. imeas = 8, multitaper ampltidue difference for an event kernel. The measurement between
   !                       data and synthetics is used in constructing the adjoint source. See multitaper_notes.pdf.
 
   use ma_variables