Adding STF for SH waves

Merge STF_SH into development

par/.gitignore

 *.dat
 *.txt
-*.sh
\ No newline at end of file
+*.sh
+*shot*
\ No newline at end of file

par/STF/.gitignore

+*.*
\ No newline at end of file

src/fd.h

@@ -36,7 +36,7 @@ void window_cos(float **win, int npad, int nsrc, float it1, float it2, float it3
 void catseis(float **data, float **fulldata, int *recswitch, int ntr_glob, MPI_Comm newcomm_nodentr);
 
 void stf(FILE *fp, float **sectionvy, float ** sectionvy_obs, float ** sectionvy_conv, float * source_time_function, int  **recpos, int  **recpos_loc,
-         int ntr_glob,int ntr, float ** srcpos, int ishot, int ns, int iter, int nshots, float FC);
+         int ntr_glob,int ntr, float ** srcpos, int ishot, int ns, int iter, int nshots, float FC, int SH);
 
 int **splitrec(int **recpos,int *ntr_loc, int ntr, int *recswitch);
 
@@ -181,7 +181,7 @@ void  outseis_vector(FILE *fp, FILE *fpdata, int comp, float *section,
 
 void  inseis(FILE *fp, int comp, float **section, int ntr, int ns, int sws, int iter);
 
-void  inseis_source_wavelet(float *section, int ns, int ishot);
+void  inseis_source_wavelet(float *section, int ns, int ishot, int SH);
 
 void  taper(float *section, int ns, float fc);
 

src/inseis_source_wavelet.c

@@ -23,21 +23,25 @@
 #include "fd.h"
 #include "segy.h"
 
-void  inseis_source_wavelet(float *section, int ns, int ishot){
+void  inseis_source_wavelet(float *section, int ns, int ishot, int SH){
 
 	/* declaration of extern variables */
 	extern int MYID;
 	extern char SIGNAL_FILE[STRING_SIZE];
-	
+    extern char SIGNAL_FILE_SH[STRING_SIZE];
 	/* declaration of local variables */
 	int j;
 	float dump;
 	segy tr;
 	char data[STRING_SIZE];
-	FILE *fpdata;
-	        
-	sprintf(data,"%s.shot%d",SIGNAL_FILE,ishot);
-	
+    FILE *fpdata;
+    
+    if(SH==0) {
+        sprintf(data,"%s.shot%d",SIGNAL_FILE,ishot);
+    } else {
+        sprintf(data,"%s.shot%d",SIGNAL_FILE_SH,ishot);
+    }
+    
 	fpdata = fopen(data,"r");
 	if (fpdata==NULL) err(" Source wavelet not found ");
 

src/stf.c

@@ -26,7 +26,7 @@
 #include "segy.h"
 
 void stf(FILE *fp, float **sectionvy, float ** sectionvy_obs, float ** sectionvy_conv, float * source_time_function, int  **recpos, int  **recpos_loc, 
-int ntr_glob,int ntr, float ** srcpos, int ishot, int ns, int iter, int nshots, float FC){ 
+int ntr_glob,int ntr, float ** srcpos, int ishot, int ns, int iter, int nshots, float FC, int SH){
 
 	/* declaration of global variables */
 	extern float DT, DH;
@@ -35,7 +35,8 @@ int ntr_glob,int ntr, float ** srcpos, int ishot, int ns, int iter, int nshots,
 	extern int TRKILL_STF, NORMALIZE, USE_WORKFLOW, WORKFLOW_STAGE;
 	extern char TRKILL_FILE_STF[STRING_SIZE];
 	extern char SIGNAL_FILE[STRING_SIZE];
-	
+    extern char SIGNAL_FILE_SH[STRING_SIZE];
+    
 	/* declaration of variables for trace killing */
 	int ** kill_tmp, *kill_vector, h, j;
 	char trace_kill_file[STRING_SIZE];
@@ -177,7 +178,7 @@ int ntr_glob,int ntr, float ** srcpos, int ishot, int ns, int iter, int nshots,
 	
 	if (SOURCE_SHAPE==3) psource=rd_sour(&nts,fopen(SIGNAL_FILE,"r"));
 	if (SOURCE_SHAPE==7){
-		inseis_source_wavelet(psource,ns,ishot);
+		inseis_source_wavelet(psource,ns,ishot,SH);
 	}
 	
 	/* calculating wavelet SIN**3 for convoling with STF */
@@ -269,15 +270,22 @@ int ntr_glob,int ntr, float ** srcpos, int ishot, int ns, int iter, int nshots,
 // 	printf(" PE %d is writing %d modelled seismograms (vy) for shot = %d to\n\t %s \n",MYID,ntr_glob,ishot,mod_y_tmp);
 // 	outseis_glob(fp,fopen(mod_y_tmp,"w"),1,sectionvy,recpos,recpos_loc,ntr_glob,srcpos,0,ns,SEIS_FORMAT,ishot,0);
 	
-	
 	/* --------------- writing out the source time function --------------- */
 	if((TIME_FILT==1)||(TIME_FILT==2)){
-		sprintf(qw,"%s.shot%d_%dHz",SIGNAL_FILE,ishot,(int)FC);
+        if(SH==0) {
+            sprintf(qw,"%s.shot%d_%dHz",SIGNAL_FILE,ishot,(int)FC);
+        } else {
+            sprintf(qw,"%s.shot%d_%dHz",SIGNAL_FILE_SH,ishot,(int)FC);
+        }
 		printf(" PE %d is writing source time function for shot = %d to\n\t %s \n",MYID,ishot,qw);
 		outseis_vector(fp,fopen(qw,"w"),1,stf_conv_wavelet,recpos,recpos_loc,ntr,srcpos,0,ns,SEIS_FORMAT,ishot,0);
 	}
-	
-	sprintf(qw,"%s.shot%d",SIGNAL_FILE,ishot);
+    
+    if(SH==0) {
+        sprintf(qw,"%s.shot%d",SIGNAL_FILE,ishot);
+    } else {
+        sprintf(qw,"%s.shot%d",SIGNAL_FILE_SH,ishot);
+    }
 	printf(" PE %d is writing source time function for shot = %d to\n\t %s \n",MYID,ishot,qw);
 	outseis_vector(fp,fopen(qw,"w"),1,stf_conv_wavelet,recpos,recpos_loc,ntr,srcpos,0,ns,SEIS_FORMAT,ishot,0);
 	

src/wavelet.c

@@ -51,7 +51,7 @@ float ** wavelet(float ** srcpos_loc, int nsrc, int ishot,int SH){
         if (SOURCE_SHAPE==3) psource=rd_sour(&nts,fopen(SIGNAL_FILE,"r"));
         if (SOURCE_SHAPE==7){
             psource=vector(1,NT);
-            inseis_source_wavelet(psource,NT,ishot);}
+            inseis_source_wavelet(psource,NT,ishot,SH);}
         
         signals=fmatrix(1,nsrc,1,NT);
         
@@ -151,7 +151,7 @@ float ** wavelet(float ** srcpos_loc, int nsrc, int ishot,int SH){
         if (SOURCE_SHAPE_SH==3) psource=rd_sour(&nts,fopen(SIGNAL_FILE_SH,"r"));
         if (SOURCE_SHAPE_SH==7){
             psource=vector(1,NT);
-            inseis_source_wavelet(psource,NT,ishot);}
+            inseis_source_wavelet(psource,NT,ishot,SH);}
         
         signals=fmatrix(1,nsrc,1,NT);