Commit 516317df authored by Florian Wittkamp's avatar Florian Wittkamp

Renaming a few global variables

Renaming:
QUELLART     ->  SOURCE_SHAPE
QUELLTYP     ->  SOURCE_TYPE
QUELLTYPB   ->  ADJOINT_TYPE
DAMPING       ->  VPPML
parent 941b00c8
This diff is collapsed.
...@@ -25,10 +25,10 @@ ...@@ -25,10 +25,10 @@
"DT" : "5.0e-05", "DT" : "5.0e-05",
"Source" : "comment", "Source" : "comment",
"QUELLART" : "4", "SOURCE_SHAPE" : "4",
"SIGNAL_FILE" : "./ormsby.dat", "SIGNAL_FILE" : "./ormsby.dat",
"QUELLTYP" : "3", "SOURCE_TYPE" : "3",
"SOURCE_FILE" : "./source/sources.dat", "SOURCE_FILE" : "./source/sources.dat",
"RUN_MULTIPLE_SHOTS" : "1", "RUN_MULTIPLE_SHOTS" : "1",
...@@ -42,7 +42,7 @@ ...@@ -42,7 +42,7 @@
"PML Boundary" : "comment", "PML Boundary" : "comment",
"FW" : "20", "FW" : "20",
"DAMPING" : "600.0", "VPPML" : "600.0",
"FPML" : "31.25", "FPML" : "31.25",
"BOUNDARY" : "0", "BOUNDARY" : "0",
"npower" : "4.0", "npower" : "4.0",
......
...@@ -24,13 +24,13 @@ ...@@ -24,13 +24,13 @@
"DT" : "5.0e-05", "DT" : "5.0e-05",
"Source" : "comment", "Source" : "comment",
"QUELLART" : "4", "SOURCE_SHAPE" : "4",
"QUELLART values: ricker=1;fumue=2;from_SIGNAL_FILE=3;SIN**3=4;Gaussian_deriv=5" : "comment", "SOURCE_SHAPE values: ricker=1;fumue=2;from_SIGNAL_FILE=3;SIN**3=4;Gaussian_deriv=5" : "comment",
"QUELLART values: Spike=6;from_SIGNAL_FILE_in_su_format=7;integral_of_SIN**3=8" : "comment", "SOURCE_SHAPE values: Spike=6;from_SIGNAL_FILE_in_su_format=7;integral_of_SIN**3=8" : "comment",
"SIGNAL_FILE" : "./ormsby.dat", "SIGNAL_FILE" : "./ormsby.dat",
"QUELLTYP" : "3", "SOURCE_TYPE" : "3",
"QUELLTYP values (point_source): explosive=1;force_in_x=2;force_in_y=3;rotated_force=4" : "comment", "SOURCE_TYPE values (point_source): explosive=1;force_in_x=2;force_in_y=3;rotated_force=4" : "comment",
"SOURCE_FILE" : "./source/sources.dat", "SOURCE_FILE" : "./source/sources.dat",
"RUN_MULTIPLE_SHOTS" : "1", "RUN_MULTIPLE_SHOTS" : "1",
...@@ -44,7 +44,7 @@ ...@@ -44,7 +44,7 @@
"PML Boundary" : "comment", "PML Boundary" : "comment",
"FW" : "20", "FW" : "20",
"DAMPING" : "600.0", "VPPML" : "600.0",
"FPML" : "31.25", "FPML" : "31.25",
"BOUNDARY" : "0", "BOUNDARY" : "0",
"npower" : "4.0", "npower" : "4.0",
......
...@@ -24,13 +24,13 @@ ...@@ -24,13 +24,13 @@
"DT" : "5.0e-05", "DT" : "5.0e-05",
"Source" : "comment", "Source" : "comment",
"QUELLART" : "4", "SOURCE_SHAPE" : "4",
"QUELLART values: ricker=1;fumue=2;from_SIGNAL_FILE=3;SIN**3=4;Gaussian_deriv=5" : "comment", "SOURCE_SHAPE values: ricker=1;fumue=2;from_SIGNAL_FILE=3;SIN**3=4;Gaussian_deriv=5" : "comment",
"QUELLART values: Spike=6;from_SIGNAL_FILE_in_su_format=7;integral_of_SIN**3=8" : "comment", "SOURCE_SHAPE values: Spike=6;from_SIGNAL_FILE_in_su_format=7;integral_of_SIN**3=8" : "comment",
"SIGNAL_FILE" : "./ormsby.dat", "SIGNAL_FILE" : "./ormsby.dat",
"QUELLTYP" : "3", "SOURCE_TYPE" : "3",
"QUELLTYP values (point_source): explosive=1;force_in_x=2;force_in_y=3;rotated_force=4" : "comment", "SOURCE_TYPE values (point_source): explosive=1;force_in_x=2;force_in_y=3;rotated_force=4" : "comment",
"SOURCE_FILE" : "./source/sources.dat", "SOURCE_FILE" : "./source/sources.dat",
"RUN_MULTIPLE_SHOTS" : "1", "RUN_MULTIPLE_SHOTS" : "1",
...@@ -50,7 +50,7 @@ ...@@ -50,7 +50,7 @@
"PML Boundary" : "comment", "PML Boundary" : "comment",
"FW" : "20", "FW" : "20",
"DAMPING" : "600.0", "VPPML" : "600.0",
"FPML" : "31.25", "FPML" : "31.25",
"BOUNDARY" : "0", "BOUNDARY" : "0",
"npower" : "4.0", "npower" : "4.0",
......
...@@ -24,13 +24,13 @@ ...@@ -24,13 +24,13 @@
"DT" : "5.0e-05", "DT" : "5.0e-05",
"Source" : "comment", "Source" : "comment",
"QUELLART" : "4", "SOURCE_SHAPE" : "4",
"QUELLART values: ricker=1;fumue=2;from_SIGNAL_FILE=3;SIN**3=4;Gaussian_deriv=5" : "comment", "SOURCE_SHAPE values: ricker=1;fumue=2;from_SIGNAL_FILE=3;SIN**3=4;Gaussian_deriv=5" : "comment",
"QUELLART values: Spike=6;from_SIGNAL_FILE_in_su_format=7;integral_of_SIN**3=8" : "comment", "SOURCE_SHAPE values: Spike=6;from_SIGNAL_FILE_in_su_format=7;integral_of_SIN**3=8" : "comment",
"SIGNAL_FILE" : "./ormsby.dat", "SIGNAL_FILE" : "./ormsby.dat",
"QUELLTYP" : "3", "SOURCE_TYPE" : "3",
"QUELLTYP values (point_source): explosive=1;force_in_x=2;force_in_y=3;rotated_force=4" : "comment", "SOURCE_TYPE values (point_source): explosive=1;force_in_x=2;force_in_y=3;rotated_force=4" : "comment",
"SOURCE_FILE" : "./source/sources.dat", "SOURCE_FILE" : "./source/sources.dat",
"RUN_MULTIPLE_SHOTS" : "1", "RUN_MULTIPLE_SHOTS" : "1",
...@@ -44,7 +44,7 @@ ...@@ -44,7 +44,7 @@
"PML Boundary" : "comment", "PML Boundary" : "comment",
"FW" : "20", "FW" : "20",
"DAMPING" : "600.0", "VPPML" : "600.0",
"FPML" : "31.25", "FPML" : "31.25",
"BOUNDARY" : "0", "BOUNDARY" : "0",
"npower" : "4.0", "npower" : "4.0",
...@@ -68,7 +68,7 @@ ...@@ -68,7 +68,7 @@
"DATA_DIR" : "su/measured_data/IFOS_real", "DATA_DIR" : "su/measured_data/IFOS_real",
"INVMAT1" : "1", "INVMAT1" : "1",
"INVMAT" : "0", "INVMAT" : "0",
"QUELLTYPB" : "1", "ADJOINT_TYPE" : "1",
"Output of inverted models" : "comment", "Output of inverted models" : "comment",
"INV_MODELFILE" : "model/modelTest", "INV_MODELFILE" : "model/modelTest",
......
...@@ -24,13 +24,13 @@ ...@@ -24,13 +24,13 @@
"DT" : "5.0e-05", "DT" : "5.0e-05",
"Source" : "comment", "Source" : "comment",
"QUELLART" : "4", "SOURCE_SHAPE" : "4",
"QUELLART values: ricker=1;fumue=2;from_SIGNAL_FILE=3;SIN**3=4;Gaussian_deriv=5" : "comment", "SOURCE_SHAPE values: ricker=1;fumue=2;from_SIGNAL_FILE=3;SIN**3=4;Gaussian_deriv=5" : "comment",
"QUELLART values: Spike=6;from_SIGNAL_FILE_in_su_format=7;integral_of_SIN**3=8" : "comment", "SOURCE_SHAPE values: Spike=6;from_SIGNAL_FILE_in_su_format=7;integral_of_SIN**3=8" : "comment",
"SIGNAL_FILE" : "./STF/stf.su", "SIGNAL_FILE" : "./STF/stf.su",
"QUELLTYP" : "3", "SOURCE_TYPE" : "3",
"QUELLTYP values (point_source): explosive=1;force_in_x=2;force_in_y=3;rotated_force=4" : "comment", "SOURCE_TYPE values (point_source): explosive=1;force_in_x=2;force_in_y=3;rotated_force=4" : "comment",
"SOURCE_FILE" : "./source/sources.dat", "SOURCE_FILE" : "./source/sources.dat",
"RUN_MULTIPLE_SHOTS" : "1", "RUN_MULTIPLE_SHOTS" : "1",
...@@ -50,7 +50,7 @@ ...@@ -50,7 +50,7 @@
"PML Boundary" : "comment", "PML Boundary" : "comment",
"FW" : "20", "FW" : "20",
"DAMPING" : "600.0", "VPPML" : "600.0",
"FPML" : "31.25", "FPML" : "31.25",
"BOUNDARY" : "0", "BOUNDARY" : "0",
"npower" : "4.0", "npower" : "4.0",
...@@ -97,7 +97,7 @@ ...@@ -97,7 +97,7 @@
"DATA_DIR" : "su/measured_data/IFOS_real", "DATA_DIR" : "su/measured_data/IFOS_real",
"INVMAT1" : "1", "INVMAT1" : "1",
"INVMAT" : "0", "INVMAT" : "0",
"QUELLTYPB" : "1", "ADJOINT_TYPE" : "1",
"MISFIT_LOG_FILE" : "L2_LOG.dat", "MISFIT_LOG_FILE" : "L2_LOG.dat",
"VELOCITY" : "0", "VELOCITY" : "0",
......
...@@ -24,12 +24,12 @@ ...@@ -24,12 +24,12 @@
"DT" : "5.0e-05", "DT" : "5.0e-05",
"Source" : "comment", "Source" : "comment",
"QUELLART" : "4", "SOURCE_SHAPE" : "4",
"QUELLART values: ricker=1;fumue=2;from_SIGNAL_FILE=3;SIN**3=4;Gaussian_deriv=5;Spike=6" : "comment", "SOURCE_SHAPE values: ricker=1;fumue=2;from_SIGNAL_FILE=3;SIN**3=4;Gaussian_deriv=5;Spike=6" : "comment",
"SIGNAL_FILE" : "./ormsby.dat", "SIGNAL_FILE" : "./ormsby.dat",
"QUELLTYP" : "3", "SOURCE_TYPE" : "3",
"QUELLTYP values (point_source): explosive=1;force_in_x=2;force_in_y=3;rotated_force=4" : "comment", "SOURCE_TYPE values (point_source): explosive=1;force_in_x=2;force_in_y=3;rotated_force=4" : "comment",
"SRCREC" : "1", "SRCREC" : "1",
"SRCREC values : read source positions from SOURCE_FILE=1, PLANE_WAVE=2" : "comment", "SRCREC values : read source positions from SOURCE_FILE=1, PLANE_WAVE=2" : "comment",
...@@ -52,7 +52,7 @@ ...@@ -52,7 +52,7 @@
"PML Boundary" : "comment", "PML Boundary" : "comment",
"FW" : "20", "FW" : "20",
"DAMPING" : "1700.0", "VPPML" : "1700.0",
"FPML" : "31.25", "FPML" : "31.25",
"BOUNDARY" : "0", "BOUNDARY" : "0",
"npower" : "4.0", "npower" : "4.0",
......
...@@ -24,15 +24,15 @@ ...@@ -24,15 +24,15 @@
"DT" : "5.0e-05", "DT" : "5.0e-05",
"Source" : "comment", "Source" : "comment",
"QUELLART" : "4", "SOURCE_SHAPE" : "4",
"QUELLART_SH" : "4", "SOURCE_SHAPE_SH" : "4",
"QUELLART values: ricker=1;fumue=2;from_SIGNAL_FILE=3;SIN**3=4;Gaussian_deriv=5;Spike=6" : "comment", "SOURCE_SHAPE values: ricker=1;fumue=2;from_SIGNAL_FILE=3;SIN**3=4;Gaussian_deriv=5;Spike=6" : "comment",
"SIGNAL_FILE" : "./ormsby.dat", "SIGNAL_FILE" : "./ormsby.dat",
"SIGNAL_FILE_SH" : "./ormsby.dat", "SIGNAL_FILE_SH" : "./ormsby.dat",
"QUELLTYP" : "3", "SOURCE_TYPE" : "3",
"QUELLTYP values (point_source) P-SV: explosive=1;force_in_x=2;force_in_y=3;force_in_z=5;rotated_force=4" : "comment", "SOURCE_TYPE values (point_source) P-SV: explosive=1;force_in_x=2;force_in_y=3;force_in_z=5;rotated_force=4" : "comment",
"SRCREC" : "1", "SRCREC" : "1",
"SRCREC values : read source positions from SOURCE_FILE=1, PLANE_WAVE=2" : "comment", "SRCREC values : read source positions from SOURCE_FILE=1, PLANE_WAVE=2" : "comment",
...@@ -55,7 +55,7 @@ ...@@ -55,7 +55,7 @@
"PML Boundary" : "comment", "PML Boundary" : "comment",
"FW" : "10", "FW" : "10",
"DAMPING" : "1700.0", "VPPML" : "1700.0",
"FPML" : "31.25", "FPML" : "31.25",
"BOUNDARY" : "0", "BOUNDARY" : "0",
"npower" : "4.0", "npower" : "4.0",
......
...@@ -24,12 +24,12 @@ ...@@ -24,12 +24,12 @@
"DT" : "5.0e-05", "DT" : "5.0e-05",
"Source" : "comment", "Source" : "comment",
"QUELLART" : "4", "SOURCE_SHAPE" : "4",
"QUELLART values: ricker=1;fumue=2;from_SIGNAL_FILE=3;SIN**3=4;Gaussian_deriv=5;Spike=6" : "comment", "SOURCE_SHAPE values: ricker=1;fumue=2;from_SIGNAL_FILE=3;SIN**3=4;Gaussian_deriv=5;Spike=6" : "comment",
"SIGNAL_FILE" : "./ormsby.dat", "SIGNAL_FILE" : "./ormsby.dat",
"QUELLTYP" : "3", "SOURCE_TYPE" : "3",
"QUELLTYP values (point_source): explosive=1;force_in_x=2;force_in_y=3;rotated_force=4" : "comment", "SOURCE_TYPE values (point_source): explosive=1;force_in_x=2;force_in_y=3;rotated_force=4" : "comment",
"SRCREC" : "1", "SRCREC" : "1",
"SRCREC values : read source positions from SOURCE_FILE=1, PLANE_WAVE=2" : "comment", "SRCREC values : read source positions from SOURCE_FILE=1, PLANE_WAVE=2" : "comment",
...@@ -49,7 +49,7 @@ ...@@ -49,7 +49,7 @@
"PML Boundary" : "comment", "PML Boundary" : "comment",
"FW" : "20", "FW" : "20",
"DAMPING" : "1700.0", "VPPML" : "1700.0",
"FPML" : "31.25", "FPML" : "31.25",
"BOUNDARY" : "0", "BOUNDARY" : "0",
"npower" : "4.0", "npower" : "4.0",
...@@ -79,7 +79,7 @@ ...@@ -79,7 +79,7 @@
"DATA_DIR" : "su/measured_data/toy_example", "DATA_DIR" : "su/measured_data/toy_example",
"INVMAT1" : "1", "INVMAT1" : "1",
"INVMAT" : "0", "INVMAT" : "0",
"QUELLTYPB" : "1", "ADJOINT_TYPE" : "1",
"MISFIT_LOG_FILE" : "LOG_toy_example.dat", "MISFIT_LOG_FILE" : "LOG_toy_example.dat",
"Inversion for parameter starting from iteration" : "comment", "Inversion for parameter starting from iteration" : "comment",
......
...@@ -24,15 +24,15 @@ ...@@ -24,15 +24,15 @@
"DT" : "5.0e-05", "DT" : "5.0e-05",
"Source" : "comment", "Source" : "comment",
"QUELLART" : "4", "SOURCE_SHAPE" : "4",
"QUELLART_SH" : "4", "SOURCE_SHAPE_SH" : "4",
"QUELLART values: ricker=1;fumue=2;from_SIGNAL_FILE=3;SIN**3=4;Gaussian_deriv=5;Spike=6" : "comment", "SOURCE_SHAPE values: ricker=1;fumue=2;from_SIGNAL_FILE=3;SIN**3=4;Gaussian_deriv=5;Spike=6" : "comment",
"SIGNAL_FILE" : "./ormsby.dat", "SIGNAL_FILE" : "./ormsby.dat",
"SIGNAL_FILE_SH" : "./ormsby.dat", "SIGNAL_FILE_SH" : "./ormsby.dat",
"QUELLTYP" : "3", "SOURCE_TYPE" : "3",
"QUELLTYP values (point_source) P-SV: explosive=1;force_in_x=2;force_in_y=3;rotated_force=4" : "comment", "SOURCE_TYPE values (point_source) P-SV: explosive=1;force_in_x=2;force_in_y=3;rotated_force=4" : "comment",
"SRCREC" : "1", "SRCREC" : "1",
"SRCREC values : read source positions from SOURCE_FILE=1, PLANE_WAVE=2" : "comment", "SRCREC values : read source positions from SOURCE_FILE=1, PLANE_WAVE=2" : "comment",
...@@ -55,7 +55,7 @@ ...@@ -55,7 +55,7 @@
"PML Boundary" : "comment", "PML Boundary" : "comment",
"FW" : "10", "FW" : "10",
"DAMPING" : "300.0", "VPPML" : "300.0",
"FPML" : "31.25", "FPML" : "31.25",
"BOUNDARY" : "0", "BOUNDARY" : "0",
"npower" : "4.0", "npower" : "4.0",
...@@ -85,8 +85,8 @@ ...@@ -85,8 +85,8 @@
"DATA_DIR" : "su/measured_data/toy_example", "DATA_DIR" : "su/measured_data/toy_example",
"INVMAT1" : "1", "INVMAT1" : "1",
"INVMAT" : "0", "INVMAT" : "0",
"QUELLTYPB" : "1", "ADJOINT_TYPE" : "1",
"QUELLTYPB values: 1=x y; 2=x; 3=y; 4=z; 5=x y z" : "comment", "ADJOINT_TYPE values: 1=x y; 2=x; 3=y; 4=z; 5=x y z" : "comment",
"MISFIT_LOG_FILE" : "LOG_toy_example.dat", "MISFIT_LOG_FILE" : "LOG_toy_example.dat",
"Inversion for parameter starting from iteration" : "comment", "Inversion for parameter starting from iteration" : "comment",
......
...@@ -24,12 +24,12 @@ ...@@ -24,12 +24,12 @@
"DT" : "1.0e-03", "DT" : "1.0e-03",
"Source" : "comment", "Source" : "comment",
"QUELLART" : "1", "SOURCE_SHAPE" : "1",
"QUELLART values: ricker=1;fumue=2;from_SIGNAL_FILE=3;SIN**3=4;Gaussian_deriv=5;Spike=6" : "comment", "SOURCE_SHAPE values: ricker=1;fumue=2;from_SIGNAL_FILE=3;SIN**3=4;Gaussian_deriv=5;Spike=6" : "comment",
"SIGNAL_FILE" : "./ormsby.dat", "SIGNAL_FILE" : "./ormsby.dat",
"QUELLTYP" : "1", "SOURCE_TYPE" : "1",
"QUELLTYP values (point_source): explosive=1;force_in_x=2;force_in_y=3;rotated_force=4" : "comment", "SOURCE_TYPE values (point_source): explosive=1;force_in_x=2;force_in_y=3;rotated_force=4" : "comment",
"SRCREC" : "1", "SRCREC" : "1",
"SRCREC values : read source positions from SOURCE_FILE=1, PLANE_WAVE=2" : "comment", "SRCREC values : read source positions from SOURCE_FILE=1, PLANE_WAVE=2" : "comment",
...@@ -49,7 +49,7 @@ ...@@ -49,7 +49,7 @@
"PML Boundary" : "comment", "PML Boundary" : "comment",
"FW" : "30", "FW" : "30",
"DAMPING" : "2100.0", "VPPML" : "2100.0",
"FPML" : "8.0", "FPML" : "8.0",
"BOUNDARY" : "0", "BOUNDARY" : "0",
"npower" : "4.0", "npower" : "4.0",
......
...@@ -24,12 +24,12 @@ ...@@ -24,12 +24,12 @@
"DT" : "1.0e-03", "DT" : "1.0e-03",
"Source" : "comment", "Source" : "comment",
"QUELLART" : "1", "SOURCE_SHAPE" : "1",
"QUELLART values: ricker=1;fumue=2;from_SIGNAL_FILE=3;SIN**3=4;Gaussian_deriv=5;Spike=6" : "comment", "SOURCE_SHAPE values: ricker=1;fumue=2;from_SIGNAL_FILE=3;SIN**3=4;Gaussian_deriv=5;Spike=6" : "comment",
"SIGNAL_FILE" : "./STF/inverted_wavelet.seis", "SIGNAL_FILE" : "./STF/inverted_wavelet.seis",
"QUELLTYP" : "1", "SOURCE_TYPE" : "1",
"QUELLTYP values (point_source): explosive=1;force_in_x=2;force_in_y=3;rotated_force=4" : "comment", "SOURCE_TYPE values (point_source): explosive=1;force_in_x=2;force_in_y=3;rotated_force=4" : "comment",
"SRCREC" : "1", "SRCREC" : "1",
"SRCREC values : read source positions from SOURCE_FILE=1, PLANE_WAVE=2" : "comment", "SRCREC values : read source positions from SOURCE_FILE=1, PLANE_WAVE=2" : "comment",
...@@ -49,7 +49,7 @@ ...@@ -49,7 +49,7 @@
"PML Boundary" : "comment", "PML Boundary" : "comment",
"FW" : "30", "FW" : "30",
"DAMPING" : "2100.0", "VPPML" : "2100.0",
"FPML" : "8.0", "FPML" : "8.0",
"BOUNDARY" : "0", "BOUNDARY" : "0",
"npower" : "4.0", "npower" : "4.0",
...@@ -79,7 +79,7 @@ ...@@ -79,7 +79,7 @@
"DATA_DIR" : "su/measured_data/toy_example_ac", "DATA_DIR" : "su/measured_data/toy_example_ac",
"INVMAT1" : "1", "INVMAT1" : "1",
"INVMAT" : "0", "INVMAT" : "0",
"QUELLTYPB" : "4", "ADJOINT_TYPE" : "4",
"MISFIT_LOG_FILE" : "LOG_toy_example_ac.dat", "MISFIT_LOG_FILE" : "LOG_toy_example_ac.dat",
"Inversion for parameter starting from iteration" : "comment", "Inversion for parameter starting from iteration" : "comment",
......
...@@ -88,7 +88,7 @@ void PML_pro(float * d_x, float * K_x, float * alpha_prime_x, float * a_x, float ...@@ -88,7 +88,7 @@ void PML_pro(float * d_x, float * K_x, float * alpha_prime_x, float * a_x, float
/* extern variables */ /* extern variables */
extern float DH, DAMPING, DT, FPML; extern float DH, VPPML, DT, FPML;
extern int FREE_SURF, NX, NY, BOUNDARY, NXG, NYG; extern int FREE_SURF, NX, NY, BOUNDARY, NXG, NYG;
extern int NPROCX, NPROCY, MYID, POS[3], FW; extern int NPROCX, NPROCY, MYID, POS[3], FW;
extern FILE *FP; extern FILE *FP;
...@@ -118,10 +118,10 @@ void PML_pro(float * d_x, float * K_x, float * alpha_prime_x, float * a_x, float ...@@ -118,10 +118,10 @@ void PML_pro(float * d_x, float * K_x, float * alpha_prime_x, float * a_x, float
Rcoef = 0.001; Rcoef = 0.001;
/* compute d0 from INRIA report section 6.1 */ /* compute d0 from INRIA report section 6.1 */
d0_x = - (npower + 1) * DAMPING * log(Rcoef) / (2.0 * thickness_PML_x); d0_x = - (npower + 1) * VPPML * log(Rcoef) / (2.0 * thickness_PML_x);
d0_y = - (npower + 1) * DAMPING * log(Rcoef) / (2.0 * thickness_PML_y); d0_y = - (npower + 1) * VPPML * log(Rcoef) / (2.0 * thickness_PML_y);
/* damping in the X direction */ /* VPPML in the X direction */
/* -------------------------- */ /* -------------------------- */
/* origin of the PML layer (position of right edge minus thickness, in meters) */ /* origin of the PML layer (position of right edge minus thickness, in meters) */
...@@ -136,7 +136,7 @@ void PML_pro(float * d_x, float * K_x, float * alpha_prime_x, float * a_x, float ...@@ -136,7 +136,7 @@ void PML_pro(float * d_x, float * K_x, float * alpha_prime_x, float * a_x, float
K_x_half[i] = 1.0; K_x_half[i] = 1.0;
xval = DH * (i-1); xval = DH * (i-1);
/* define damping profile at the grid points */ /* define VPPML profile at the grid points */
abscissa_in_PML = xoriginleft - xval; abscissa_in_PML = xoriginleft - xval;
if(abscissa_in_PML >= 0.0){ if(abscissa_in_PML >= 0.0){
...@@ -148,7 +148,7 @@ void PML_pro(float * d_x, float * K_x, float * alpha_prime_x, float * a_x, float ...@@ -148,7 +148,7 @@ void PML_pro(float * d_x, float * K_x, float * alpha_prime_x, float * a_x, float
alpha_prime_x[i] = alpha_max_PML * (1.0 - abscissa_normalized); alpha_prime_x[i] = alpha_max_PML * (1.0 - abscissa_normalized);
} }
/* define damping profile at half the grid points */ /* define VPPML profile at half the grid points */
abscissa_in_PML = xoriginleft - (xval + DH/2.0); abscissa_in_PML = xoriginleft - (xval + DH/2.0);
if(abscissa_in_PML >= 0.0){ if(abscissa_in_PML >= 0.0){
...@@ -183,7 +183,7 @@ void PML_pro(float * d_x, float * K_x, float * alpha_prime_x, float * a_x, float ...@@ -183,7 +183,7 @@ void PML_pro(float * d_x, float * K_x, float * alpha_prime_x, float * a_x, float
K_x_half[h] = 1.0; K_x_half[h] = 1.0;
xval = DH * (i-1); xval = DH * (i-1);
/* define damping profile at the grid points */ /* define VPPML profile at the grid points */
abscissa_in_PML = xval - xoriginright; abscissa_in_PML = xval - xoriginright;
if(abscissa_in_PML >= 0.0){ if(abscissa_in_PML >= 0.0){
...@@ -195,7 +195,7 @@ void PML_pro(float * d_x, float * K_x, float * alpha_prime_x, float * a_x, float ...@@ -195,7 +195,7 @@ void PML_pro(float * d_x, float * K_x, float * alpha_prime_x, float * a_x, float
alpha_prime_x[h] = alpha_max_PML * (1.0 - abscissa_normalized); alpha_prime_x[h] = alpha_max_PML * (1.0 - abscissa_normalized);
} }
/* define damping profile at half the grid points */ /* define VPPML profile at half the grid points */
abscissa_in_PML = xval + DH/2.0 - xoriginright; abscissa_in_PML = xval + DH/2.0 - xoriginright;
if(abscissa_in_PML >= 0.0){ if(abscissa_in_PML >= 0.0){
...@@ -223,7 +223,7 @@ void PML_pro(float * d_x, float * K_x, float * alpha_prime_x, float * a_x, float ...@@ -223,7 +223,7 @@ void PML_pro(float * d_x, float * K_x, float * alpha_prime_x, float * a_x, float
/* damping in the Y direction */ /* VPPML in the Y direction */
/* -------------------------- */ /* -------------------------- */
/* origin of the PML layer (position of right edge minus thickness, in meters) */ /* origin of the PML layer (position of right edge minus thickness, in meters) */
...@@ -238,7 +238,7 @@ void PML_pro(float * d_x, float * K_x, float * alpha_prime_x, float * a_x, float ...@@ -238,7 +238,7 @@ void PML_pro(float * d_x, float * K_x, float * alpha_prime_x, float * a_x, float
/* left boundary */ /* left boundary */
/* define damping profile at the grid points */ /* define VPPML profile at the grid points */
abscissa_in_PML = yoriginbottom - yval; abscissa_in_PML = yoriginbottom - yval;
if(abscissa_in_PML >= 0.0){ if(abscissa_in_PML >= 0.0){
...@@ -250,7 +250,7 @@ void PML_pro(float * d_x, float * K_x, float * alpha_prime_x, float * a_x, float ...@@ -250,7 +250,7 @@ void PML_pro(float * d_x, float * K_x, float * alpha_prime_x, float * a_x, float
alpha_prime_y[i] = alpha_max_PML * (1.0 - abscissa_normalized); alpha_prime_y[i] = alpha_max_PML * (1.0 - abscissa_normalized);
} }
/* define damping profile at half the grid points */ /* define VPPML profile at half the grid points */
abscissa_in_PML = yoriginbottom - (yval + DH/2.0); abscissa_in_PML = yoriginbottom - (yval + DH/2.0);
if(abscissa_in_PML >= 0.0){ if(abscissa_in_PML >= 0.0){
...@@ -279,7 +279,7 @@ void PML_pro(float * d_x, float * K_x, float * alpha_prime_x, float * a_x, float ...@@ -279,7 +279,7 @@ void PML_pro(float * d_x, float * K_x, float * alpha_prime_x, float * a_x, float
K_y_half[h] = 1.0; K_y_half[h] = 1.0;
yval = DH * (i-1); yval = DH * (i-1);
/* define damping profile at the grid points */ /* define VPPML profile at the grid points */
abscissa_in_PML = yval - yorigintop; abscissa_in_PML = yval - yorigintop;
if(abscissa_in_PML >= 0.0){ if(abscissa_in_PML >= 0.0){
...@@ -291,7 +291,7 @@ void PML_pro(float * d_x, float * K_x, float * alpha_prime_x, float * a_x, float ...@@ -291,7 +291,7 @@ void PML_pro(float * d_x, float * K_x, float * alpha_prime_x, float * a_x, float
alpha_prime_y[h] = alpha_max_PML * (1.0 - abscissa_normalized); alpha_prime_y[h] = alpha_max_PML * (1.0 - abscissa_normalized);
} }
/* define damping profile at half the grid points */ /* define VPPML profile at half the grid points */
abscissa_in_PML = yval + DH/2.0 - yorigintop; abscissa_in_PML = yval + DH/2.0 - yorigintop;
if(abscissa_in_PML >= 0.0){ if(abscissa_in_PML >= 0.0){
......
...@@ -29,8 +29,8 @@ ...@@ -29,8 +29,8 @@
void exchange_par(void){ void exchange_par(void){
/* declaration of extern variables */ /* declaration of extern variables */
extern int NX, NY, FDORDER, MAXRELERROR, QUELLART, QUELLTYP, SNAP, SNAP_FORMAT, L; extern int NX, NY, FDORDER, MAXRELERROR, SOURCE_SHAPE, SOURCE_TYPE, SNAP, SNAP_FORMAT, L;
extern float DH, TIME, DT, TS, *FL, TAU, DAMPING, PLANE_WAVE_DEPTH, PHI, F_REF; extern float DH, TIME, DT, TS, *FL, TAU, VPPML, PLANE_WAVE_DEPTH, PHI, F_REF;
extern float XREC1, XREC2, YREC1, YREC2, FPML; extern float XREC1, XREC2, YREC1, YREC2, FPML;
extern float REC_ARRAY_DEPTH, REC_ARRAY_DIST, MUN, EPSILON, EPSILON_u, EPSILON_rho; extern float REC_ARRAY_DEPTH, REC_ARRAY_DIST, MUN, EPSILON, EPSILON_u, EPSILON_rho;
extern int SEISMO, NDT, NGEOPH, SEIS_FORMAT, FREE_SURF, READMOD, READREC, SRCREC; extern int SEISMO, NDT, NGEOPH, SEIS_FORMAT, FREE_SURF, READMOD, READREC, SRCREC;
...@@ -43,7 +43,7 @@ void exchange_par(void){ ...@@ -43,7 +43,7 @@ void exchange_par(void){
extern char JACOBIAN[STRING_SIZE], DATA_DIR[STRING_SIZE], INV_MODELFILE[STRING_SIZE], FREQ_FILE[STRING_SIZE]; extern char JACOBIAN[STRING_SIZE], DATA_DIR[STRING_SIZE], INV_MODELFILE[STRING_SIZE], FREQ_FILE[STRING_SIZE];
extern int RUN_MULTIPLE_SHOTS, TAPERLENGTH, INVTYPE; extern int RUN_MULTIPLE_SHOTS, TAPERLENGTH, INVTYPE;
extern int NPROC, NPROCX, NPROCY, MYID, IDX, IDY; extern int NPROC, NPROCX, NPROCY, MYID, IDX, IDY;
extern int GRADT1, GRADT2, GRADT3, GRADT4, ITERMAX, INVMAT1, INVMAT, QUELLTYPB; extern int GRADT1, GRADT2, GRADT3, GRADT4, ITERMAX, INVMAT1, INVMAT, ADJOINT_TYPE;
extern int GRAD_METHOD; extern int GRAD_METHOD;
extern float TSHIFT_back; extern float TSHIFT_back;
extern int MODEL_FILTER, FILT_SIZE; extern int MODEL_FILTER, FILT_SIZE;
...@@ -88,7 +88,7 @@ void exchange_par(void){ ...@@ -88,7 +88,7 @@ void exchange_par(void){
// Parameter for inversion of SH waves and joint inversion // Parameter for inversion of SH waves and joint inversion
extern int WAVETYPE; extern int WAVETYPE;
extern int QUELLART_SH; extern int SOURCE_SHAPE_SH;
extern int JOINT_INVERSION_PSV_SH_TYPE; extern int JOINT_INVERSION_PSV_SH_TYPE;
/* Workflow */ /* Workflow */
extern char FILE_WORKFLOW[STRING_SIZE]; extern char FILE_WORKFLOW[STRING_SIZE];
...@@ -147,7 +147,7 @@ void exchange_par(void){ ...@@ -147,7 +147,7 @@ void exchange_par(void){
fdum[19] = XREC2; fdum[19] = XREC2;
fdum[20] = YREC2; fdum[20] = YREC2;
fdum[22] = DAMPING; fdum[22] = VPPML;
fdum[23] = REC_ARRAY_DEPTH; fdum[23] = REC_ARRAY_DEPTH;
fdum[24] = REC_ARRAY_DIST; fdum[24] = REC_ARRAY_DIST;
fdum[25] = PLANE_WAVE_DEPTH; fdum[25] = PLANE_WAVE_DEPTH;
...@@ -219,8 +219,8 @@ void exchange_par(void){ ...@@ -219,8 +219,8 @@ void exchange_par(void){
idum[5] = NX; idum[5] = NX;
idum[6] = NY; idum[6] = NY;
idum[8] = QUELLART; idum[8] = SOURCE_SHAPE;
idum[9] = QUELLTYP; idum[9] = SOURCE_TYPE;
idum[10] = READMOD; idum[10] = READMOD;
idum[11] = L; idum[11] = L;
idum[12] = FREE_SURF; idum[12]