[cig-commits] r21752 - seismo/3D/SPECFEM3D/trunk/src/decompose_mesh

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2013-04-07 16:38:44 -0700 (Sun, 07 Apr 2013)
New Revision: 21752

Modified:
   seismo/3D/SPECFEM3D/trunk/src/decompose_mesh/decompose_mesh.F90
Log:
fixed a typo in a comment


Modified: seismo/3D/SPECFEM3D/trunk/src/decompose_mesh/decompose_mesh.F90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/decompose_mesh/decompose_mesh.F90	2013-04-07 23:35:37 UTC (rev 21751)
+++ seismo/3D/SPECFEM3D/trunk/src/decompose_mesh/decompose_mesh.F90	2013-04-07 23:38:44 UTC (rev 21752)
@@ -655,7 +655,7 @@
 ! if the file does not exist but if there are PML_CONDITIONS then stop
     if( ier /= 0 .and. PML_CONDITIONS) &
         stop 'error: PML_CONDITIONS is set to true but file absorbing_cpml_file does not exist'
-! if the file does not exist or if there are PML_CONDITIONS then define the number of CPML elements as zero
+! if the file does not exist or if there are no PML_CONDITIONS then define the number of CPML elements as zero
     if( ier /= 0 .or. .not. PML_CONDITIONS) then
        nspec_cpml = 0
     else