renamed german variables

par/in_and_out/ifos3d.inp

@@ -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

par/in_and_out/ifos3d_toy.inp

@@ -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

src/wavelet.c

@@ -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");