[cig-commits] r22536 - seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2013-07-07 17:23:29 -0700 (Sun, 07 Jul 2013)
New Revision: 22536

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/save_kernels.f90
   seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/save_regular_kernels.f90
Log:
removed two old comments


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/save_kernels.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/save_kernels.f90	2013-07-08 00:05:54 UTC (rev 22535)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/save_kernels.f90	2013-07-08 00:23:29 UTC (rev 22536)
@@ -128,7 +128,6 @@
       do j = 1, NGLLY
         do i = 1, NGLLX
 
-
           if (ANISOTROPIC_KL) then
 
             ! For anisotropic kernels
@@ -268,7 +267,7 @@
                                               + N*an_kl(3) + L*an_kl(4) + F*an_kl(5) &
                                               + rhonotprime_kl_crust_mantle(i,j,k,ispec)
 
-              ! write the kernel in physical units (01/05/2006)
+              ! write the kernel in physical units
               rhonotprime_kl_crust_mantle(i,j,k,ispec) = - rhonotprime_kl_crust_mantle(i,j,k,ispec) * scale_kl
 
               alphav_kl_crust_mantle(i,j,k,ispec) = - alphav_kl_crust_mantle(i,j,k,ispec) * scale_kl

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/save_regular_kernels.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/save_regular_kernels.f90	2013-07-08 00:05:54 UTC (rev 22535)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/save_regular_kernels.f90	2013-07-08 00:23:29 UTC (rev 22536)
@@ -397,7 +397,7 @@
     ! do some transforms that are independent of GLL points
     if (ANISOTROPIC_KL) then
       if (SAVE_TRANSVERSE_KL) then
-        ! write the kernel in physical units (01/05/2006)
+        ! write the kernel in physical units
         rhonotprime_kl_crust_mantle(ipoint) = - rhonotprime_kl_crust_mantle(ipoint) * scale_kl
 
         alphav_kl_crust_mantle(ipoint) = - alphav_kl_crust_mantle(ipoint) * scale_kl