[cig-commits] r21628 - in seismo/2D/SPECFEM2D/trunk: DATA src/meshfem2D

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2013-03-25 11:43:10 -0700 (Mon, 25 Mar 2013)
New Revision: 21628

Modified:
   seismo/2D/SPECFEM2D/trunk/DATA/Par_file
   seismo/2D/SPECFEM2D/trunk/src/meshfem2D/read_parameter_file.F90
Log:
converted factor_subsample_image to double precision (it was already declared as double precision in all files but one, thus resulting in an error with some compilers)


Modified: seismo/2D/SPECFEM2D/trunk/DATA/Par_file
===================================================================
--- seismo/2D/SPECFEM2D/trunk/DATA/Par_file	2013-03-25 02:11:32 UTC (rev 21627)
+++ seismo/2D/SPECFEM2D/trunk/DATA/Par_file	2013-03-25 18:43:10 UTC (rev 21628)
@@ -65,7 +65,7 @@
 #### for JPEG color images ####
 output_color_image              = .true.         # output JPEG color image of the results every NSTEP_BETWEEN_OUTPUT_IMAGES time steps or not
 imagetype_JPEG                  = 2              # display 1=displ_Ux 2=displ_Uz 3=displ_norm 4=veloc_Vx 5=veloc_Vz 6=veloc_norm 7=accel_Ax 8=accel_Az 9=accel_norm 10=pressure
-factor_subsample_image          = 1.0              # (double precision) factor to subsample color images output by the code (useful for very large models)
+factor_subsample_image          = 1.0            # (double precision) factor to subsample color images output by the code (useful for very large models)
 POWER_DISPLAY_COLOR             = 0.30d0         # non linear display to enhance small amplitudes in JPEG color images
 DRAW_SOURCES_AND_RECEIVERS      = .true.         # display sources as orange crosses and receivers as green squares in JPEG images or not
 DRAW_WATER_IN_BLUE              = .true.         # display acoustic layers as constant blue in JPEG images, because they likely correspond to water in the case of ocean acoustics or in the case of offshore oil industry experiments (if off, display them as greyscale, as for elastic or poroelastic elements, for instance for acoustic-only oil industry models of solid media)

Modified: seismo/2D/SPECFEM2D/trunk/src/meshfem2D/read_parameter_file.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/meshfem2D/read_parameter_file.F90	2013-03-25 02:11:32 UTC (rev 21627)
+++ seismo/2D/SPECFEM2D/trunk/src/meshfem2D/read_parameter_file.F90	2013-03-25 18:43:10 UTC (rev 21628)
@@ -120,7 +120,7 @@
        permzz,kappa_s,kappa_f,kappa_fr,eta_f,mu_fr
 
 ! factor to subsample color images output by the code (useful for very large models)
-  integer :: factor_subsample_image
+  double precision :: factor_subsample_image
 
 ! use snapshot number in the file name of JPG color snapshots instead of the time step
   logical :: USE_SNAPSHOT_NUMBER_IN_FILENAME
@@ -350,7 +350,7 @@
   call read_value_integer_p(imagetype_JPEG, 'solver.imagetype_JPEG')
   if(err_occurred() /= 0) stop 'error reading parameter 33f in Par_file'
 
-  call read_value_integer_p(factor_subsample_image, 'solver.factor_subsample_image')
+  call read_value_double_precision_p(factor_subsample_image, 'solver.factor_subsample_image')
   if(err_occurred() /= 0) stop 'error reading parameter 43b in Par_file'
 
   call read_value_double_precision_p(POWER_DISPLAY_COLOR, 'solver.POWER_DISPLAY_COLOR')