[cig-commits] r21345 - seismo/3D/CPML/trunk

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2013-02-07 10:41:37 -0800 (Thu, 07 Feb 2013)
New Revision: 21345

Modified:
   seismo/3D/CPML/trunk/seismic_ADEPML_2D_elastic_RK4_eighth_order.f90
   seismo/3D/CPML/trunk/seismic_ADEPML_2D_viscoelastic_RK4_eighth_order.f90
Log:
removed illegal non-ASCII characters


Modified: seismo/3D/CPML/trunk/seismic_ADEPML_2D_elastic_RK4_eighth_order.f90
===================================================================
--- seismo/3D/CPML/trunk/seismic_ADEPML_2D_elastic_RK4_eighth_order.f90	2013-02-07 18:13:55 UTC (rev 21344)
+++ seismo/3D/CPML/trunk/seismic_ADEPML_2D_elastic_RK4_eighth_order.f90	2013-02-07 18:41:37 UTC (rev 21345)
@@ -269,7 +269,7 @@
 ! main arrays
   double precision, dimension(-4:NX+4,-4:NY+4) :: lambda,mu,rho,vx,vy,sigmaxx,sigmayy,sigmaxy
 
-! Variables are stored in 4 indices in the first dimension to implement RK4
+! variables are stored in four indices in the first dimension to implement RK4
 ! dv does not always indicate a derivative
   double precision, dimension(4,-4:NX+4,-4:NY+4) :: dvx,dvy,dsigmaxx,dsigmayy,dsigmaxy
 
@@ -337,7 +337,7 @@
   double precision, dimension(-4:NY+4) :: d_y_2,K_y_2,alpha_y_2,g_y_2
   double precision, dimension(-4:NY+4) :: d_y_half_2,K_y_half_2,alpha_y_half_2,g_y_half_2
 
-! coefficients that allow to reset the memory variables at each RK4 substep depend on the substepping and are then of dimension 4,
+! coefficients that allow to reset the memory variables at each RK4 substep depend on the substepping and are then of dimension 4,
 ! 1D arrays for the damping profiles
   double precision, dimension(4,-4:NX+4) :: a_x_1,b_x_1
   double precision, dimension(4,-4:NX+4) :: a_x_half_1,b_x_half_1

Modified: seismo/3D/CPML/trunk/seismic_ADEPML_2D_viscoelastic_RK4_eighth_order.f90
===================================================================
--- seismo/3D/CPML/trunk/seismic_ADEPML_2D_viscoelastic_RK4_eighth_order.f90	2013-02-07 18:13:55 UTC (rev 21344)
+++ seismo/3D/CPML/trunk/seismic_ADEPML_2D_viscoelastic_RK4_eighth_order.f90	2013-02-07 18:41:37 UTC (rev 21345)
@@ -340,7 +340,7 @@
   double precision, dimension(-4:NY+4) :: d_y_2,K_y_2,alpha_prime_y_2,g_y_2
   double precision, dimension(-4:NY+4) :: d_y_half_2,K_y_half_2,alpha_prime_y_half_2,g_y_half_2
 
-! coefficients that allow to reset the memory variables at each RK4 substep depend on the substepping and are then of dimension 4,
+! coefficients that allow to reset the memory variables at each RK4 substep depend on the substepping and are then of dimension 4,
 ! 1D arrays for the damping profiles
   double precision, dimension(4,-4:NX+4) :: a_x_1,b_x_1
   double precision, dimension(4,-4:NX+4) :: a_x_half_1,b_x_half_1
@@ -370,7 +370,7 @@
 
   double precision rho_half_x_half_y
 
-! Variables are stored in indices in the first dimension to implement RK4
+! variables are stored in four indices in the first dimension to implement RK4
 ! dv does not always indicate a derivative
   double precision, dimension(4,-4:NX+4,-4:NY+4) :: dvx,dvy,dsigmaxx,dsigmayy,dsigmaxy
   double precision, dimension(4,-4:NX+4,-4:NY+4) :: dsigmaxx_R,dsigmayy_R,dsigmaxy_R