[cig-commits] r22558 - seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2013-07-08 19:04:01 -0700 (Mon, 08 Jul 2013)
New Revision: 22558

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/read_compute_parameters.f90
Log:
added check that we do not have both PARTIAL_PHYS_DISPERSION_ONLY and UNDO_ATTENUATION, since they are mutually exclusive


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/read_compute_parameters.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/read_compute_parameters.f90	2013-07-09 01:54:12 UTC (rev 22557)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/read_compute_parameters.f90	2013-07-09 02:04:01 UTC (rev 22558)
@@ -267,7 +267,7 @@
                         ANGULAR_WIDTH_XI_IN_DEGREES,ANGULAR_WIDTH_ETA_IN_DEGREES, &
                         ATTENUATION_3D,ATTENUATION,ABSORBING_CONDITIONS, &
                         INCLUDE_CENTRAL_CUBE,OUTPUT_SEISMOS_SAC_ALPHANUM, &
-                        ANISOTROPIC_KL,SAVE_TRANSVERSE_KL_ONLY)
+                        ANISOTROPIC_KL,SAVE_TRANSVERSE_KL_ONLY,PARTIAL_PHYS_DISPERSION_ONLY,UNDO_ATTENUATION)
 
   ! check that mesh can be coarsened in depth three or four times
   CUT_SUPERBRICK_XI=.false.
@@ -804,7 +804,7 @@
                         ANGULAR_WIDTH_XI_IN_DEGREES,ANGULAR_WIDTH_ETA_IN_DEGREES, &
                         ATTENUATION_3D,ATTENUATION,ABSORBING_CONDITIONS, &
                         INCLUDE_CENTRAL_CUBE,OUTPUT_SEISMOS_SAC_ALPHANUM, &
-                        ANISOTROPIC_KL,SAVE_TRANSVERSE_KL_ONLY)
+                        ANISOTROPIC_KL,SAVE_TRANSVERSE_KL_ONLY,PARTIAL_PHYS_DISPERSION_ONLY,UNDO_ATTENUATION)
 
   implicit none
 
@@ -816,7 +816,7 @@
 
   logical ATTENUATION_3D,ATTENUATION,ABSORBING_CONDITIONS, &
           INCLUDE_CENTRAL_CUBE,OUTPUT_SEISMOS_SAC_ALPHANUM, &
-          ANISOTROPIC_KL,SAVE_TRANSVERSE_KL_ONLY
+          ANISOTROPIC_KL,SAVE_TRANSVERSE_KL_ONLY,PARTIAL_PHYS_DISPERSION_ONLY,UNDO_ATTENUATION
 
 ! checks parameters
 
@@ -843,6 +843,9 @@
   if(SAVE_TRANSVERSE_KL_ONLY .and. .not. ANISOTROPIC_KL) &
     stop 'need ANISOTROPIC_KL to use SAVE_TRANSVERSE_KL_ONLY'
 
+  if(PARTIAL_PHYS_DISPERSION_ONLY .and. UNDO_ATTENUATION) &
+    stop 'cannot have both PARTIAL_PHYS_DISPERSION_ONLY and UNDO_ATTENUATION, they are mutually exclusive'
+
   if (OUTPUT_SEISMOS_SAC_ALPHANUM .and. (mod(NTSTEP_BETWEEN_OUTPUT_SEISMOS,5)/=0)) &
     stop 'if OUTPUT_SEISMOS_SAC_ALPHANUM = .true. then NTSTEP_BETWEEN_OUTPUT_SEISMOS must be a multiple of 5, check the Par_file'