Commit 7bdc5fd9 authored by tilman.metz's avatar tilman.metz

renamed german variables

parent 6f519221
...@@ -40,7 +40,7 @@ point_source_(explosive=1;force_in_x=2;in_y=3;in_z=4;custom=5)_(SOURCE_TYPE) = 4 ...@@ -40,7 +40,7 @@ point_source_(explosive=1;force_in_x=2;in_y=3;in_z=4;custom=5)_(SOURCE_TYPE) = 4
force_angle_between_x_y_(in_degree)_(ALPHA) = 45.0 force_angle_between_x_y_(in_degree)_(ALPHA) = 45.0
force_angle_between_x_z_(in_degree)_(BETA) = 45.0 force_angle_between_x_z_(in_degree)_(BETA) = 45.0
# Plane wave (PW) excitation,if PLANE_WAVE_DEPTH>0, SRCREC is treated as 0 # Plane wave (PW) excitation,if PLANE_WAVE_DEPTH>0, SRCREC is treated as 0
depth_of_PW_excitation_(no<=0)_(in_meter)_(PLANE_WAVE_DEPTH) = 0.0direct.com/ depth_of_PW_excitation_(no<=0)_(in_meter)_(PLANE_WAVE_DEPTH) = 0.0
dip_of_PW_from_vertical_(in_degrees)_(PHI) =0.0 dip_of_PW_from_vertical_(in_degrees)_(PHI) =0.0
duration_of_source-signal_PW_(in_seconds)_(TS) = 0.0033 duration_of_source-signal_PW_(in_seconds)_(TS) = 0.0033
# External signal input instead of SOURCE_SHAPE # External signal input instead of SOURCE_SHAPE
......
...@@ -40,7 +40,7 @@ point_source_(explosive=1;force_in_x=2;in_y=3;in_z=4;custom=5)_(SOURCE_TYPE) = 4 ...@@ -40,7 +40,7 @@ point_source_(explosive=1;force_in_x=2;in_y=3;in_z=4;custom=5)_(SOURCE_TYPE) = 4
force_angle_between_x_y_(in_degree)_(ALPHA) = 45.0 force_angle_between_x_y_(in_degree)_(ALPHA) = 45.0
force_angle_between_x_z_(in_degree)_(BETA) = 45.0 force_angle_between_x_z_(in_degree)_(BETA) = 45.0
# Plane wave (PW) excitation,if PLANE_WAVE_DEPTH>0, SRCREC is treated as 0 # Plane wave (PW) excitation,if PLANE_WAVE_DEPTH>0, SRCREC is treated as 0
depth_of_PW_excitation_(no<=0)_(in_meter)_(PLANE_WAVE_DEPTH) = 0.0direct.com/ depth_of_PW_excitation_(no<=0)_(in_meter)_(PLANE_WAVE_DEPTH) = 0.0
dip_of_PW_from_vertical_(in_degrees)_(PHI) =0.0 dip_of_PW_from_vertical_(in_degrees)_(PHI) =0.0
duration_of_source-signal_PW_(in_seconds)_(TS) = 0.0033 duration_of_source-signal_PW_(in_seconds)_(TS) = 0.0033
# External signal input instead of SOURCE_SHAPE # External signal input instead of SOURCE_SHAPE
......
...@@ -26,7 +26,7 @@ ...@@ -26,7 +26,7 @@
#include "fd.h" #include "fd.h"
void wavelet(float ** srcpos_loc, int nsrc, int quelltype, float **signals){ void wavelet(float ** srcpos_loc, int nsrc, int sourceshape, float **signals){
/* extern variables */ /* extern variables */
...@@ -40,7 +40,7 @@ void wavelet(float ** srcpos_loc, int nsrc, int quelltype, float **signals){ ...@@ -40,7 +40,7 @@ void wavelet(float ** srcpos_loc, int nsrc, int quelltype, float **signals){
float *psource=NULL, tshift, amp=0.0, a, fc, tau, t, ts; float *psource=NULL, tshift, amp=0.0, a, fc, tau, t, ts;
if (quelltype==3) psource=rd_sour(&nts,fopen(SIGNAL_FILE,"r")); if (sourceshape==3) psource=rd_sour(&nts,fopen(SIGNAL_FILE,"r"));
/*signals=fmatrix(1,nsrc,1,NT);*/ /*signals=fmatrix(1,nsrc,1,NT);*/
...@@ -53,7 +53,7 @@ void wavelet(float ** srcpos_loc, int nsrc, int quelltype, float **signals){ ...@@ -53,7 +53,7 @@ void wavelet(float ** srcpos_loc, int nsrc, int quelltype, float **signals){
a=srcpos_loc[6][k]; a=srcpos_loc[6][k];
ts=1.0/fc; ts=1.0/fc;
switch (quelltype){ switch (sourceshape){
case 1 : case 1 :
tau=PI*(t-1.5*ts-tshift)/(ts); /* Ricker */ tau=PI*(t-1.5*ts-tshift)/(ts); /* Ricker */
amp=(((1.0-2.0*tau*tau)*exp(-tau*tau))); amp=(((1.0-2.0*tau*tau)*exp(-tau*tau)));
...@@ -89,7 +89,7 @@ void wavelet(float ** srcpos_loc, int nsrc, int quelltype, float **signals){ ...@@ -89,7 +89,7 @@ void wavelet(float ** srcpos_loc, int nsrc, int quelltype, float **signals){
} }
} }
fprintf(FP," Message from function wavelet written by PE %d, quelltype %d\n",MYID, quelltype); fprintf(FP," Message from function wavelet written by PE %d, sourceshape %d\n",MYID, sourceshape);
fprintf(FP," %d source positions located in subdomain of PE %d \n",nsrc,MYID); fprintf(FP," %d source positions located in subdomain of PE %d \n",nsrc,MYID);
fprintf(FP," have been assigned with a source signal. \n"); fprintf(FP," have been assigned with a source signal. \n");
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment