[cig-commits] r12550 - in seismo/3D/SPECFEM3D_GLOBE/tags: . v4.0.2-portal

[leif at geodynamics.org]

Author: leif
Date: 2008-08-06 12:52:48 -0700 (Wed, 06 Aug 2008)
New Revision: 12550

Added:
   seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.2-portal/
Modified:
   seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.2-portal/auto_ner.f90
   seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.2-portal/compute_forces_crust_mantle.f90
Log:
Created SPECFEM3D GLOBE v4.0.2-portal tag.


Copied: seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.2-portal (from rev 12549, seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.1-portal)

Modified: seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.2-portal/auto_ner.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.1-portal/auto_ner.f90	2008-08-06 19:21:04 UTC (rev 12549)
+++ seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.2-portal/auto_ner.f90	2008-08-06 19:52:48 UTC (rev 12550)
@@ -145,7 +145,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

Modified: seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.2-portal/compute_forces_crust_mantle.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.1-portal/compute_forces_crust_mantle.f90	2008-08-06 19:21:04 UTC (rev 12549)
+++ seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.2-portal/compute_forces_crust_mantle.f90	2008-08-06 19:52:48 UTC (rev 12550)
@@ -288,7 +288,7 @@
     if(ATTENUATION_3D_VAL) then
       one_minus_sum_beta_use = one_minus_sum_beta(i,j,k,ispec)
     else
-      radius_cr = xstore(iglob)
+      radius_cr = xstore(ibool(i,j,k,ispec))
       call get_attenuation_index(idoubling(ispec), dble(radius_cr), iregion_selected, .FALSE., AM_V)
       one_minus_sum_beta_use = one_minus_sum_beta(1,1,1,iregion_selected)
     endif