[cig-commits] r11659 - seismo/3D/SPECFEM3D_GLOBE/trunk

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2008-03-31 08:13:37 -0700 (Mon, 31 Mar 2008)
New Revision: 11659

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/auto_ner.f90
Log:
fixed a declaration that was double precision instead of integer


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/auto_ner.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/auto_ner.f90	2008-03-31 08:11:08 UTC (rev 11658)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/auto_ner.f90	2008-03-31 15:13:37 UTC (rev 11659)
@@ -35,14 +35,20 @@
 !  <savage13 at gps.caltech.edu>
 !  <savage13 at dtm.ciw.edu>
 !
-!   It is based partially upon formulation in the following references:
+!  It is based partially upon formulation in:
 !
-!   Komatitsch and Tromp, 2002 Part I
+! @ARTICLE{KoTr02a,
+! author={D. Komatitsch and J. Tromp},
+! year=2002,
+! title={Spectral-Element Simulations of Global Seismic Wave Propagation{-I. V}alidation},
+! journal={Geophys. J. Int.},
+! volume=149,
+! number=2,
+! pages={390-412},
+! doi={10.1046/j.1365-246X.2002.01653.x}}
 !
-!    and
+!  and the core determination was developed.
 !
-!   The Core determineation was developed
-!
 
   subroutine auto_time_stepping(WIDTH,  NEX_MAX, DT)
     implicit none
@@ -145,7 +151,7 @@
     double precision, dimension(NUM_REGIONS-1) :: ratio_top
     double precision, dimension(NUM_REGIONS-1) :: ratio_bottom
     integer,          dimension(NUM_REGIONS-1) :: NER
-    double precision NEX_ETA
+    integer NEX_ETA
 
     ! This is PREM in Kilometers, well ... kinda, not really ....
     radius(1)  = 6371.00d0 ! Surface