[cig-commits] r19860 - seismo/2D/SPECFEM2D/trunk/src/specfem2D

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2012-03-23 15:52:25 -0700 (Fri, 23 Mar 2012)
New Revision: 19860

Modified:
   seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90
Log:
clarified a comment


Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90	2012-03-23 21:13:48 UTC (rev 19859)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90	2012-03-23 22:52:25 UTC (rev 19860)
@@ -7900,7 +7900,7 @@
           if(j > NZ_IMAGE_color) j = NZ_IMAGE_color
 
           if(p_sv) then
-            !P-SH waves, plot vertical component or pressure
+            !P-SH waves, plot vertical component of vector, or else pressure
             if(iglob_image_color(i,j) /= -1) image_color_data(i,j) = vector_field_display(3,iglob_image_color(i,j))
           else
             !SH (membrane) waves, plot y-component
@@ -7942,7 +7942,7 @@
               if(i > NX_IMAGE_color) i = NX_IMAGE_color
               if(j > NZ_IMAGE_color) j = NZ_IMAGE_color
 
-              if(p_sv) then !P-SH waves, plot vertical component or pressure
+              if(p_sv) then !P-SH waves, plot vertical component of vector, or else pressure
                 if(iglob_image_color(i,j) /= -1) data_pixel_send(k) = vector_field_display(3,iglob_image_color(i,j))
               else !SH (membrane) waves, plot y-component
                 if(iglob_image_color(i,j) /= -1) data_pixel_send(k) = vector_field_display(2,iglob_image_color(i,j))