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

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2011-12-02 10:08:06 -0800 (Fri, 02 Dec 2011)
New Revision: 19263

Modified:
   seismo/2D/SPECFEM2D/trunk/src/specfem2D/checkgrid.F90
   seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90
Log:
do not display mesh stability, mesh dispersion and mesh decomposition PostScript files if output_postscript_snapshot is off


Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/checkgrid.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/checkgrid.F90	2011-12-02 17:54:15 UTC (rev 19262)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/checkgrid.F90	2011-12-02 18:08:06 UTC (rev 19263)
@@ -50,7 +50,7 @@
                       coorg,xinterp,zinterp,shapeint,knods,simulation_title, &
                       npgeo,pointsdisp,ngnod,any_elastic,any_poroelastic,all_anisotropic, &
                       myrank,nproc,NSOURCES,poroelastic, &
-                      freq0,Q0,TURN_VISCATTENUATION_ON,US_LETTER)
+                      freq0,Q0,TURN_VISCATTENUATION_ON,US_LETTER,output_postscript_snapshot)
 
 ! check the mesh, stability and number of points per wavelength
 
@@ -102,7 +102,7 @@
   double precision :: deltat
 
   logical :: assign_external_model,initialfield,any_elastic,any_poroelastic,all_anisotropic, &
-          TURN_VISCATTENUATION_ON
+          TURN_VISCATTENUATION_ON,output_postscript_snapshot
 
   integer :: myrank,nproc
 
@@ -488,6 +488,9 @@
 !--------------------------------------------------------------------------------
 !
 
+! do not create the PostScript file below if the postscript flag is off
+  if(.not. output_postscript_snapshot) return
+
 ! A4 or US letter paper
   if(US_LETTER) then
     usoffset = 1.75d0

Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90	2011-12-02 17:54:15 UTC (rev 19262)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90	2011-12-02 18:08:06 UTC (rev 19263)
@@ -2714,7 +2714,7 @@
                  coorg,xinterp,zinterp,shape2D_display,knods,simulation_title, &
                  npgeo,pointsdisp,ngnod,any_elastic,any_poroelastic,all_anisotropic, &
                  myrank,nproc,NSOURCES,poroelastic, &
-                 freq0,Q0,TURN_VISCATTENUATION_ON,US_LETTER)
+                 freq0,Q0,TURN_VISCATTENUATION_ON,US_LETTER,output_postscript_snapshot)
 
 ! convert receiver angle to radians
   anglerec = anglerec * pi / 180.d0