[cig-commits] r20327 - in seismo/2D/SPECFEM2D/trunk: EXAMPLES/Tromp2005 src/specfem2D

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2012-06-06 16:50:36 -0700 (Wed, 06 Jun 2012)
New Revision: 20327

Modified:
   seismo/2D/SPECFEM2D/trunk/EXAMPLES/Tromp2005/Par_file_Tromp2005
   seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90
Log:
turned PostScript output off in EXAMPLES/Tromp2005/Par_file_Tromp2005 because PostScript vector plots cannot be drawn in the SH case


Modified: seismo/2D/SPECFEM2D/trunk/EXAMPLES/Tromp2005/Par_file_Tromp2005
===================================================================
--- seismo/2D/SPECFEM2D/trunk/EXAMPLES/Tromp2005/Par_file_Tromp2005	2012-06-06 23:40:24 UTC (rev 20326)
+++ seismo/2D/SPECFEM2D/trunk/EXAMPLES/Tromp2005/Par_file_Tromp2005	2012-06-06 23:50:36 UTC (rev 20327)
@@ -20,7 +20,7 @@
 ATTENUATION_PORO_FLUID_PART     = .false.        # turn viscous attenuation on or off for the fluid part of poroelastic parts of the model
 Q0                              =  1             # quality factor for viscous attenuation
 freq0                           =  10            # frequency for viscous attenuation
-p_sv                            = .false.         # set the type of calculation (P-SV or SH/membrane waves)
+p_sv                            = .false.        # set the type of calculation (P-SV or SH/membrane waves)
 
 # time step parameters
 nt                              = 3000           # total number of time steps
@@ -72,7 +72,7 @@
 USE_SNAPSHOT_NUMBER_IN_FILENAME = .false.        # use snapshot number in the file name of JPEG color snapshots instead of the time step
 
 #### for PostScript snapshots ####
-output_postscript_snapshot      = .true.         # output Postscript snapshot of the results
+output_postscript_snapshot      = .false.        # output Postscript snapshot of the results
 imagetype_postscript            = 1              # display 1=displ vector 2=veloc vector 3=accel vector; small arrows are displayed for the vectors
 meshvect                        = .true.         # display mesh on vector plots or not
 modelvect                       = .false.        # display velocity model on vector plots

Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90	2012-06-06 23:40:24 UTC (rev 20326)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90	2012-06-06 23:50:36 UTC (rev 20327)
@@ -7827,7 +7827,7 @@
                       coorg_send_ps_vector_field,coorg_recv_ps_vector_field,US_LETTER)
 
         else if(.not. p_sv) then
-          call exit_MPI('cannot draw scalar field as a PostScript vector plot')
+          call exit_MPI('cannot draw a SH scalar field as a vector plot, turn PostScript plots off')
 
         else
           call exit_MPI('wrong type for PostScript snapshots')