[cig-commits] r22515 - seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2013-07-05 19:02:27 -0700 (Fri, 05 Jul 2013)
New Revision: 22515

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


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_s362ani.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_s362ani.f90	2013-07-06 01:55:29 UTC (rev 22514)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_s362ani.f90	2013-07-06 02:02:27 UTC (rev 22515)
@@ -1167,7 +1167,7 @@
 !
 
 
-! --- evaluate perturbations in per cent
+! --- evaluate perturbations in percent
 
   subroutine model_s362ani_subshsv(xcolat,xlon,xrad,dvsh,dvsv,dvph,dvpv, &
     numker,numhpa,numcof,ihpa,lmax,nylm, &
@@ -1334,7 +1334,7 @@
 
   enddo ! --- by ish
 
-! --- evaluate perturbations in per cent
+! --- evaluate perturbations in percent
 
   dvsh=vsh3drel
   dvsv=vsv3drel
@@ -1422,7 +1422,7 @@
 !              xlospl(1,ihpa),radspl(1,ihpa), &
 !              nconpt(ihpa),iconpt(1,ihpa),conpt(1,ihpa))
 
-! making sure array bounds
+! making sure of array bounds
       call splcon(y,x,numcof,xlaspl(1:numcof,ihpa), &
               xlospl(1:numcof,ihpa),radspl(1:numcof,ihpa), &
               nconpt(ihpa),iconpt(1:maxver,ihpa),conpt(1:maxver,ihpa))