[cig-commits] r22579 - in seismo/3D/SPECFEM3D_GLOBE: branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D trunk/src/meshfem3D

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2013-07-12 16:25:29 -0700 (Fri, 12 Jul 2013)
New Revision: 22579

Modified:
   seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/sort_array_coordinates.f90
   seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/sort_array_coordinates.f90
Log:
fixed a typo


Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/sort_array_coordinates.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/sort_array_coordinates.f90	2013-07-12 22:24:06 UTC (rev 22578)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/sort_array_coordinates.f90	2013-07-12 23:25:29 UTC (rev 22579)
@@ -162,7 +162,7 @@
       ind(ir) = ind(1)
       ir = ir-1
 
-      ! checks exit criteria
+      ! checks exit criterion
       if (ir == 1) then
          ind(1) = indx
          return

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/sort_array_coordinates.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/sort_array_coordinates.f90	2013-07-12 22:24:06 UTC (rev 22578)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/sort_array_coordinates.f90	2013-07-12 23:25:29 UTC (rev 22579)
@@ -162,7 +162,7 @@
       ind(ir) = ind(1)
       ir = ir-1
 
-      ! checks exit criteria
+      ! checks exit criterion
       if (ir == 1) then
          ind(1) = indx
          return