[cig-commits] [commit] devel: updated two comments (ee73d7f)

[cig_noreply at geodynamics.org]

Repository : https://github.com/geodynamics/specfem2d

On branch  : devel
Link       : https://github.com/geodynamics/specfem2d/compare/a5ff68e512b4d8857b36b9f35d0ed5b0823303fb...ee73d7f81d9311271516b8a722ca6f2f50ae8743

>---------------------------------------------------------------

commit ee73d7f81d9311271516b8a722ca6f2f50ae8743
Author: Dimitri Komatitsch <komatitsch at lma.cnrs-mrs.fr>
Date:   Wed Dec 10 02:50:42 2014 +0100

    updated two comments


>---------------------------------------------------------------

ee73d7f81d9311271516b8a722ca6f2f50ae8743
 src/specfem2D/define_external_model.f90 | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/src/specfem2D/define_external_model.f90 b/src/specfem2D/define_external_model.f90
index 90e1763..10bec4c 100644
--- a/src/specfem2D/define_external_model.f90
+++ b/src/specfem2D/define_external_model.f90
@@ -50,10 +50,10 @@
   include "constants.h"
 
 ! -------------------------------------------------------------------------------------
-! Dummy example of this routine, to be used as a template that can be modified by users
+! Dummy example of this routine, to be used as a template that users can modify
 ! -------------------------------------------------------------------------------------
 
-! user can modify this routine to assign any different external model (rho, vp, vs)
+! users can modify this routine to assign any different external model (rho, vp, vs)
 ! based on the x and y coordinates of that grid point and the material number of the region it belongs to
 
   integer, intent(in) :: nspec,nglob
@@ -71,9 +71,10 @@
 
   double precision :: x,z
 
-! completely dummy routine here, just to demonstrate how the model can be assigned
+! dummy routine here, just to demonstrate how the model can be assigned
 ! and how such a routine can be written
 
+! remove gravity
 ! leave these arrays here even if you do not assign them to use them because they need to be cleared
   gravity(:,:,:) = 0.d0
   Nsq(:,:,:) = 0.d0
@@ -205,6 +206,7 @@
   double precision :: x,z,r,frac
 
 ! remove gravity
+! leave these arrays here even if you do not assign them to use them because they need to be cleared
   gravity(:,:,:) = 0.d0
   Nsq(:,:,:)     = 0.d0