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
force_angle_between_x_y_(in_degree)_(ALPHA) = 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
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
duration_of_source-signal_PW_(in_seconds)_(TS) = 0.0033
# 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
force_angle_between_x_y_(in_degree)_(ALPHA) = 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
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
duration_of_source-signal_PW_(in_seconds)_(TS) = 0.0033
# External signal input instead of SOURCE_SHAPE
......
......@@ -26,7 +26,7 @@
#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 */
......@@ -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;
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);*/
......@@ -53,7 +53,7 @@ void wavelet(float ** srcpos_loc, int nsrc, int quelltype, float **signals){
a=srcpos_loc[6][k];
ts=1.0/fc;
switch (quelltype){
switch (sourceshape){
case 1 :
tau=PI*(t-1.5*ts-tshift)/(ts); /* Ricker */
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){
}
}
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," 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