Merge branch 'feature/streamer' into develop

doc/latex/6_Parameter_Definition.tex

@@ -322,7 +322,9 @@ The locations of the receivers may either be specified in a separate file REC\_F
 \end{verbatim}}}
 These receiver coordinates in REC\_FILE are shifted by REFREC[1], REFREC[2] into the  x- and y-direction, respectively. This allows for completely moving the receiver spread without modifying REC\_FILE. This may be useful for the simulation of moving profiles in reflection seismics.
 
-If READREC=0 the receiver locations must be specified in the parameter file. In this case, it is assumed that the receivers are located along a straight line. The first receiver position is defined by (XREC1, YREC1), and the last receiver position by (XREC1, YREC1). The spacing between receivers is NGEOPH grid points. 
+If READREC=0 the receiver locations must be specified in the parameter file. In this case, it is assumed that the receivers are located along a straight line. The first receiver position is defined by (XREC1, YREC1), and the last receiver position by (XREC1, YREC1). The spacing between receivers is NGEOPH grid points.
+
+READREC=2 is made for a moving streamer aquisition geometry. The receiver positions for shot 1 must be specified in the parameter file (as described for READREC=0). For all other shots the receiver positions are moved according to the movement of the following source. This implementation allows a memory saving usage of moving geometries. The receivers must be in the same depth and all receivers must be located in the model for all shots.
 
 Receivers are always located on full grid indices, i.e. a receiver that is located between two grid points will be shifted by the FD program to the closest next grid point. It is not yet possible
 to output seismograms for arbitrary receiver locations since this would require a certain wavefield interpolation.

src/IFOS2D.c

@@ -243,10 +243,14 @@ int main(int argc, char **argv){
     /* In the following, NX and NY denote size of the local grid ! */
     NX = IENDX;
     NY = IENDY;
-    
+        
+    /* Reading source positions from SOURCE_FILE */
+    srcpos=sources(&nsrc);
+    nsrc_glob=nsrc;
+    ishot=0;    
     
     if (SEISMO){
-        recpos=receiver(FP, &ntr);
+        recpos=receiver(&ntr, srcpos, ishot);
         recswitch = ivector(1,ntr);
         recpos_loc = splitrec(recpos,&ntr_loc, ntr, recswitch);
         ntr_glob=ntr;
@@ -711,105 +715,14 @@ int main(int argc, char **argv){
             
     }
     if (ntr>0){
-        switch (SEISMO){
-            case 1 : /* particle velocities only */
-                switch (WAVETYPE) {
-                    case 1:
-                        sectionvx=matrix(1,ntr,1,ns);
-                        sectionvy=matrix(1,ntr,1,ns);
-                        break;
-                    case 2:
-                        sectionvz=matrix(1,ntr,1,ns);
-                        break;
-                    case 3:
-                        sectionvx=matrix(1,ntr,1,ns);
-                        sectionvy=matrix(1,ntr,1,ns);
-                        sectionvz=matrix(1,ntr,1,ns);
-                        break;
-                }
-                break;
-            case 2 : /* pressure only */
-                sectionp=matrix(1,ntr,1,ns);
-                sectionpnp1=matrix(1,ntr,1,ns);
-                sectionpn=matrix(1,ntr,1,ns);
-                break;
-            case 3 : /* curl and div only */
-                sectioncurl=matrix(1,ntr,1,ns);
-                sectiondiv=matrix(1,ntr,1,ns);
-                break;
-            case 4 : /* everything */
-                switch (WAVETYPE) {
-                    case 1:
-                        sectionvx=matrix(1,ntr,1,ns);
-                        sectionvy=matrix(1,ntr,1,ns);
-                        break;
-                    case 2:
-                        sectionvz=matrix(1,ntr,1,ns);
-                        break;
-                    case 3:
-                        sectionvx=matrix(1,ntr,1,ns);
-                        sectionvy=matrix(1,ntr,1,ns);
-                        sectionvz=matrix(1,ntr,1,ns);
-                        break;
-                }
-                sectioncurl=matrix(1,ntr,1,ns);
-                sectiondiv=matrix(1,ntr,1,ns);
-                sectionp=matrix(1,ntr,1,ns);
-                break;
-            case 5 : /* everything except curl and div*/
-                switch (WAVETYPE) {
-                    case 1:
-                        sectionvx=matrix(1,ntr,1,ns);
-                        sectionvy=matrix(1,ntr,1,ns);
-                        break;
-                    case 2:
-                        sectionvz=matrix(1,ntr,1,ns);
-                        break;
-                    case 3:
-                        sectionvx=matrix(1,ntr,1,ns);
-                        sectionvy=matrix(1,ntr,1,ns);
-                        sectionvz=matrix(1,ntr,1,ns);
-                        break;
-                }
-                sectionp=matrix(1,ntr,1,ns);
-                break;
-        }
+      alloc_sections(ntr,ns,&sectionvx,&sectionvy,&sectionvz,&sectionp,&sectionpnp1,&sectionpn,&sectioncurl,&sectiondiv,
+	&sectionpdata,&sectionpdiff,&sectionpdiffold,&sectionvxdata,&sectionvxdiff,&sectionvxdiffold,&sectionvydata,
+	&sectionvydiff,&sectionvydiffold,&sectionvzdata,&sectionvzdiff,&sectionvzdiffold);
     }
     
     /* Memory for seismic data */
     sectionread=matrix(1,ntr_glob,1,ns);
-    sectionpdata=matrix(1,ntr,1,ns);
-    sectionpdiff=matrix(1,ntr,1,ns);
-    sectionpdiffold=matrix(1,ntr,1,ns);
-    switch (WAVETYPE) {
-        case 1:
-            sectionvxdata=matrix(1,ntr,1,ns);
-            sectionvxdiff=matrix(1,ntr,1,ns);
-            sectionvxdiffold=matrix(1,ntr,1,ns);
-            sectionvydata=matrix(1,ntr,1,ns);
-            sectionvydiff=matrix(1,ntr,1,ns);
-            sectionvydiffold=matrix(1,ntr,1,ns);
-            break;
-            
-        case 2:
-            sectionvzdata=matrix(1,ntr,1,ns);
-            sectionvzdiff=matrix(1,ntr,1,ns);
-            sectionvzdiffold=matrix(1,ntr,1,ns);
-            break;
-            
-        case 3:
-            sectionvxdata=matrix(1,ntr,1,ns);
-            sectionvxdiff=matrix(1,ntr,1,ns);
-            sectionvxdiffold=matrix(1,ntr,1,ns);
-            sectionvydata=matrix(1,ntr,1,ns);
-            sectionvydiff=matrix(1,ntr,1,ns);
-            sectionvydiffold=matrix(1,ntr,1,ns);
-            sectionvzdata=matrix(1,ntr,1,ns);
-            sectionvzdiff=matrix(1,ntr,1,ns);
-            sectionvzdiffold=matrix(1,ntr,1,ns);
-            break;
-    }
-    
+        
     /* Memory for inversion for source time function */
     if((INV_STF==1)||(TIME_FILT==1) || (TIME_FILT==2)){
         sectionp_conv=matrix(1,ntr_glob,1,NT);
@@ -857,10 +770,6 @@ int main(int argc, char **argv){
     
     MPI_Barrier(MPI_COMM_WORLD);
     
-    /* Reading source positions from SOURCE_FILE */
-    srcpos=sources(&nsrc);
-    nsrc_glob=nsrc;
-    
     if(FORWARD_ONLY==0&&USE_WORKFLOW){
         read_workflow(FILE_WORKFLOW,&workflow, &workflow_lines,workflow_header);
     }
@@ -1176,6 +1085,28 @@ int main(int argc, char **argv){
                     /*------------------------------------------------------------------------------*/
                     
                     for (ishot=1;ishot<=nshots;ishot+=SHOTINC){
+     
+       			if (SEISMO && READREC==2){
+			  if (ntr>0) {
+			    dealloc_sections(ntr,ns,recpos_loc,sectionvx,sectionvy,sectionvz,sectionp,sectionpnp1,sectionpn,sectioncurl,sectiondiv,
+					     sectionpdata,sectionpdiff,sectionpdiffold,sectionvxdata,sectionvxdiff,sectionvxdiffold,sectionvydata,
+					     sectionvydiff,sectionvydiffold,sectionvzdata,sectionvzdiff,sectionvzdiffold);
+			  }
+			  free_imatrix(recpos,1,3,1,ntr_glob);
+			  recpos=receiver(&ntr, srcpos, ishot);
+			  recpos_loc = splitrec(recpos,&ntr_loc, ntr, recswitch);
+			  ntr_glob=ntr;
+			  ntr=ntr_loc;
+			  if (ntr>0){
+				alloc_sections(ntr,ns,&sectionvx,&sectionvy,&sectionvz,&sectionp,&sectionpnp1,&sectionpn,&sectioncurl,&sectiondiv,
+					      &sectionpdata,&sectionpdiff,&sectionpdiffold,&sectionvxdata,&sectionvxdiff,&sectionvxdiffold,&sectionvydata,
+					      &sectionvydiff,&sectionvydiffold,&sectionvzdata,&sectionvzdiff,&sectionvzdiffold);
+			  }
+			  if (ntr) group_id = 1;
+			  else group_id = 0;
+			  MPI_Comm_split(MPI_COMM_WORLD, group_id, MYID, &MPI_COMM_NTR);
+			  MPI_Comm_rank(MPI_COMM_NTR, &myid_ntr);
+			}
 
                         SOURCE_SHAPE = SOURCE_SHAPE_OLD;
                         if(WAVETYPE==2 || WAVETYPE==3) SOURCE_SHAPE_SH=SOURCE_SHAPE_OLD_SH;
@@ -3325,7 +3256,26 @@ int main(int argc, char **argv){
                         fprintf(FP,"\n=================================================================================================\n");
                         fprintf(FP,"\n *****  Starting simulation (test-forward model) no. %d for shot %d of %d (rel. step length %.5f) \n",itest,ishot,nshots,eps_scale);
                         fprintf(FP,"\n=================================================================================================\n\n");
-                        
+                              
+			if (SEISMO && READREC==2){
+			  if (ntr>0) {
+			    dealloc_sections(ntr,ns,recpos_loc,sectionvx,sectionvy,sectionvz,sectionp,sectionpnp1,sectionpn,sectioncurl,sectiondiv,
+					     sectionpdata,sectionpdiff,sectionpdiffold,sectionvxdata,sectionvxdiff,sectionvxdiffold,sectionvydata,
+					     sectionvydiff,sectionvydiffold,sectionvzdata,sectionvzdiff,sectionvzdiffold);
+			  }
+			  free_imatrix(recpos,1,3,1,ntr_glob);
+			  recpos=receiver(&ntr, srcpos, ishot);
+			  recpos_loc = splitrec(recpos,&ntr_loc, ntr, recswitch);
+			  ntr_glob=ntr;
+			  ntr=ntr_loc;
+			  
+			  if (ntr>0){
+				alloc_sections(ntr,ns,&sectionvx,&sectionvy,&sectionvz,&sectionp,&sectionpnp1,&sectionpn,&sectioncurl,&sectiondiv,
+					      &sectionpdata,&sectionpdiff,&sectionpdiffold,&sectionvxdata,&sectionvxdiff,&sectionvxdiffold,&sectionvydata,
+					      &sectionvydiff,&sectionvydiffold,&sectionvzdata,&sectionvzdiff,&sectionvzdiffold);
+			  }			  
+			}
+	
                         for (nt=1;nt<=8;nt++) srcpos1[nt][1]=srcpos[nt][ishot];
                         
                         /*-----------------------------------*/
@@ -4308,53 +4258,9 @@ int main(int argc, char **argv){
             break;
     }
     if ((ntr>0) && (SEISMO)){
-        free_imatrix(recpos_loc,1,3,1,ntr);
-        switch (SEISMO){
-            case 1 : /* particle velocities only */
-                if (WAVETYPE==1 || WAVETYPE==3) {
-                    free_matrix(sectionvx,1,ntr,1,ns);
-                    free_matrix(sectionvy,1,ntr,1,ns);
-                }
-                if (WAVETYPE==2 || WAVETYPE==3) {
-                    free_matrix(sectionvz,1,ntr,1,ns);
-                }
-                break;
-            case 2 : /* pressure only */
-                if (WAVETYPE==1 || WAVETYPE==3) {
-                    free_matrix(sectionp,1,ntr,1,ns);
-                    free_matrix(sectionpn,1,ntr,1,ns);
-                    free_matrix(sectionpnp1,1,ntr,1,ns);
-                }
-                break;
-            case 3 : /* curl and div only */
-                if (WAVETYPE==1 || WAVETYPE==3) {
-                    free_matrix(sectioncurl,1,ntr,1,ns);
-                    free_matrix(sectiondiv,1,ntr,1,ns);
-                }
-                break;
-            case 4 : /* everything */
-                if (WAVETYPE==1 || WAVETYPE==3) {
-                    free_matrix(sectionvx,1,ntr,1,ns);
-                    free_matrix(sectionvy,1,ntr,1,ns);
-                    free_matrix(sectionp,1,ntr,1,ns);
-                    free_matrix(sectioncurl,1,ntr,1,ns);
-                    free_matrix(sectiondiv,1,ntr,1,ns);
-                }
-                if (WAVETYPE==2 || WAVETYPE==3) {
-                    free_matrix(sectionvz,1,ntr,1,ns);
-                }
-                break;
-            case 5 : /* everything except curl and div */
-                if (WAVETYPE==1 || WAVETYPE==3) {
-                    free_matrix(sectionvx,1,ntr,1,ns);
-                    free_matrix(sectionvy,1,ntr,1,ns);
-                    free_matrix(sectionp,1,ntr,1,ns);
-                }
-                if (WAVETYPE==2 || WAVETYPE==3) {
-                    free_matrix(sectionvz,1,ntr,1,ns);
-                }
-                break;
-        }
+      dealloc_sections(ntr,ns,recpos_loc,sectionvx,sectionvy,sectionvz,sectionp,sectionpnp1,sectionpn,sectioncurl,sectiondiv,
+	sectionpdata,sectionpdiff,sectionpdiffold,sectionvxdata,sectionvxdiff,sectionvxdiffold,sectionvydata,
+	sectionvydiff,sectionvydiffold,sectionvzdata,sectionvzdiff,sectionvzdiffold);
     }
     
     
@@ -4372,23 +4278,7 @@ int main(int argc, char **argv){
             free_matrix(We_SH,-nd+1,NY+nd,-nd+1,NX+nd);
         }
     }
-    
-    if (WAVETYPE==1 || WAVETYPE==3) {
-        free_matrix(sectionvxdata,1,ntr,1,ns);
-        free_matrix(sectionvxdiff,1,ntr,1,ns);
-        free_matrix(sectionvydata,1,ntr,1,ns);
-        free_matrix(sectionvydiff,1,ntr,1,ns);
-        free_matrix(sectionvydiffold,1,ntr,1,ns);
-        free_matrix(sectionvxdiffold,1,ntr,1,ns);
-        free_matrix(sectionpdata,1,ntr,1,ns);
-        free_matrix(sectionpdiff,1,ntr,1,ns);
-        free_matrix(sectionpdiffold,1,ntr,1,ns);
-    }
-    if (WAVETYPE==2 || WAVETYPE==3) {
-        free_matrix(sectionvzdata,1,ntr,1,ns);
-        free_matrix(sectionvzdiff,1,ntr,1,ns);
-        free_matrix(sectionvzdiffold,1,ntr,1,ns);
-    }
+
     free_matrix(sectionread,1,ntr_glob,1,ns);
     
     

src/Makefile

@@ -70,6 +70,7 @@ IFOS2D= \
 	IFOS2D.c \
 	stf.c \
 	window_cos.c \
+	alloc_sections.c \
 	calc_mat_change_test.c \
     	calc_res.c \
 	calc_misfit.c \
@@ -205,4 +206,4 @@ clean:
 
 install: clean all
 
--include $(IFOS_OBJ:.o=.d)
\ No newline at end of file
+-include $(IFOS_OBJ:.o=.d)

src/alloc_sections.c

+/*-----------------------------------------------------------------------------------------
+ * Copyright (C) 2016  For the list of authors, see file AUTHORS.
+ *
+ * This file is part of IFOS.
+ *
+ * IFOS is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, version 2.0 of the License only.
+ *
+ * IFOS is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with IFOS. See file COPYING and/or <http://www.gnu.org/licenses/gpl-2.0.html>.
+ -----------------------------------------------------------------------------------------*/
+
+/*  Computation of local source coordinates
+ *
+ *
+ */
+#include "fd.h"
+ 
+void alloc_sections(int ntr,int ns,float ***sectionvx,float ***sectionvy,float ***sectionvz,float ***sectionp,float ***sectionpnp1,float ***sectionpn,float ***sectioncurl,float ***sectiondiv,
+                    float ***sectionpdata,float ***sectionpdiff,float ***sectionpdiffold,float ***sectionvxdata,float ***sectionvxdiff,float ***sectionvxdiffold,float ***sectionvydata,
+                    float ***sectionvydiff,float ***sectionvydiffold,float ***sectionvzdata,float ***sectionvzdiff,float ***sectionvzdiffold)
+{
+	extern int SEISMO, WAVETYPE;
+	extern FILE *FP;
+	
+	switch (SEISMO){
+            case 1 : /* particle velocities only */
+                switch (WAVETYPE) {
+                    case 1:
+                        *sectionvx=matrix(1,ntr,1,ns);
+                        *sectionvy=matrix(1,ntr,1,ns);
+                        break;
+                    case 2:
+                        *sectionvz=matrix(1,ntr,1,ns);
+                        break;
+                    case 3:
+                        *sectionvx=matrix(1,ntr,1,ns);
+                        *sectionvy=matrix(1,ntr,1,ns);
+                        *sectionvz=matrix(1,ntr,1,ns);
+                        break;
+                }
+                break;
+            case 2 : /* pressure only */
+                *sectionp=matrix(1,ntr,1,ns);
+                *sectionpnp1=matrix(1,ntr,1,ns);
+                *sectionpn=matrix(1,ntr,1,ns);
+                break;
+            case 3 : /* curl and div only */
+                *sectioncurl=matrix(1,ntr,1,ns);
+                *sectiondiv=matrix(1,ntr,1,ns);
+                break;
+            case 4 : /* everything */
+                switch (WAVETYPE) {
+                    case 1:
+                        *sectionvx=matrix(1,ntr,1,ns);
+                        *sectionvy=matrix(1,ntr,1,ns);
+                        break;
+                    case 2:
+                        *sectionvz=matrix(1,ntr,1,ns);
+                        break;
+                    case 3:
+                        *sectionvx=matrix(1,ntr,1,ns);
+                        *sectionvy=matrix(1,ntr,1,ns);
+                        *sectionvz=matrix(1,ntr,1,ns);
+                        break;
+                }
+                *sectioncurl=matrix(1,ntr,1,ns);
+                *sectiondiv=matrix(1,ntr,1,ns);
+                *sectionp=matrix(1,ntr,1,ns);
+                break;
+            case 5 : /* everything except curl and div*/
+                switch (WAVETYPE) {
+                    case 1:
+                        *sectionvx=matrix(1,ntr,1,ns);
+                        *sectionvy=matrix(1,ntr,1,ns);
+                        break;
+                    case 2:
+                        *sectionvz=matrix(1,ntr,1,ns);
+                        break;
+                    case 3:
+                        *sectionvx=matrix(1,ntr,1,ns);
+                        *sectionvy=matrix(1,ntr,1,ns);
+                        *sectionvz=matrix(1,ntr,1,ns);
+                        break;
+                }
+                *sectionp=matrix(1,ntr,1,ns);
+                break;
+        }
+        
+        *sectionpdata=matrix(1,ntr,1,ns);
+    *sectionpdiff=matrix(1,ntr,1,ns);
+    *sectionpdiffold=matrix(1,ntr,1,ns);
+    switch (WAVETYPE) {
+        case 1:
+            *sectionvxdata=matrix(1,ntr,1,ns);
+            *sectionvxdiff=matrix(1,ntr,1,ns);
+            *sectionvxdiffold=matrix(1,ntr,1,ns);
+            *sectionvydata=matrix(1,ntr,1,ns);
+            *sectionvydiff=matrix(1,ntr,1,ns);
+            *sectionvydiffold=matrix(1,ntr,1,ns);
+            break;
+            
+        case 2:
+            *sectionvzdata=matrix(1,ntr,1,ns);
+            *sectionvzdiff=matrix(1,ntr,1,ns);
+            *sectionvzdiffold=matrix(1,ntr,1,ns);
+            break;
+            
+        case 3:
+            *sectionvxdata=matrix(1,ntr,1,ns);
+            *sectionvxdiff=matrix(1,ntr,1,ns);
+            *sectionvxdiffold=matrix(1,ntr,1,ns);
+            *sectionvydata=matrix(1,ntr,1,ns);
+            *sectionvydiff=matrix(1,ntr,1,ns);
+            *sectionvydiffold=matrix(1,ntr,1,ns);
+            *sectionvzdata=matrix(1,ntr,1,ns);
+            *sectionvzdiff=matrix(1,ntr,1,ns);
+            *sectionvzdiffold=matrix(1,ntr,1,ns);
+            break;
+    }
+ }
+ 
+ 
+ 
+ void dealloc_sections(int ntr,int ns,int **recpos_loc,float **sectionvx,float **sectionvy,float **sectionvz,float **sectionp,float **sectionpnp1,float **sectionpn,float **sectioncurl,float **sectiondiv,
+                    float **sectionpdata,float **sectionpdiff,float **sectionpdiffold,float **sectionvxdata,float **sectionvxdiff,float **sectionvxdiffold,float **sectionvydata,
+                    float **sectionvydiff,float **sectionvydiffold,float **sectionvzdata,float **sectionvzdiff,float **sectionvzdiffold)
+{
+	extern int SEISMO, WAVETYPE;
+	extern FILE *FP;
+	
+	free_imatrix(recpos_loc,1,3,1,ntr);
+        switch (SEISMO){
+            case 1 : /* particle velocities only */
+                if (WAVETYPE==1 || WAVETYPE==3) {
+                    free_matrix(sectionvx,1,ntr,1,ns);
+                    free_matrix(sectionvy,1,ntr,1,ns);
+                }
+                if (WAVETYPE==2 || WAVETYPE==3) {
+                    free_matrix(sectionvz,1,ntr,1,ns);
+                }
+                break;
+            case 2 : /* pressure only */
+                if (WAVETYPE==1 || WAVETYPE==3) {
+                    free_matrix(sectionp,1,ntr,1,ns);
+                    free_matrix(sectionpn,1,ntr,1,ns);
+                    free_matrix(sectionpnp1,1,ntr,1,ns);
+                }
+                break;
+            case 3 : /* curl and div only */
+                if (WAVETYPE==1 || WAVETYPE==3) {
+                    free_matrix(sectioncurl,1,ntr,1,ns);
+                    free_matrix(sectiondiv,1,ntr,1,ns);
+                }
+                break;
+            case 4 : /* everything */
+                if (WAVETYPE==1 || WAVETYPE==3) {
+                    free_matrix(sectionvx,1,ntr,1,ns);
+                    free_matrix(sectionvy,1,ntr,1,ns);
+                    free_matrix(sectionp,1,ntr,1,ns);
+                    free_matrix(sectioncurl,1,ntr,1,ns);
+                    free_matrix(sectiondiv,1,ntr,1,ns);
+                }
+                if (WAVETYPE==2 || WAVETYPE==3) {
+                    free_matrix(sectionvz,1,ntr,1,ns);
+                }
+                break;
+            case 5 : /* everything except curl and div */
+                if (WAVETYPE==1 || WAVETYPE==3) {
+                    free_matrix(sectionvx,1,ntr,1,ns);
+                    free_matrix(sectionvy,1,ntr,1,ns);
+                    free_matrix(sectionp,1,ntr,1,ns);
+                }
+                if (WAVETYPE==2 || WAVETYPE==3) {
+                    free_matrix(sectionvz,1,ntr,1,ns);
+                }
+                break;
+        }
+    
+    
+    if (WAVETYPE==1 || WAVETYPE==3) {
+        free_matrix(sectionvxdata,1,ntr,1,ns);
+        free_matrix(sectionvxdiff,1,ntr,1,ns);
+        free_matrix(sectionvydata,1,ntr,1,ns);
+        free_matrix(sectionvydiff,1,ntr,1,ns);
+        free_matrix(sectionvydiffold,1,ntr,1,ns);
+        free_matrix(sectionvxdiffold,1,ntr,1,ns);
+        free_matrix(sectionpdata,1,ntr,1,ns);
+        free_matrix(sectionpdiff,1,ntr,1,ns);
+        free_matrix(sectionpdiffold,1,ntr,1,ns);
+    }
+    if (WAVETYPE==2 || WAVETYPE==3) {
+        free_matrix(sectionvzdata,1,ntr,1,ns);
+        free_matrix(sectionvzdiff,1,ntr,1,ns);
+        free_matrix(sectionvzdiffold,1,ntr,1,ns);
+    }
+ }
\ No newline at end of file

src/checkfd.c

@@ -277,7 +277,7 @@ void checkfd(FILE *fp, float ** prho, float ** ppi, float ** pu, float ** ptaus,
                   therefore we determine the minimum/maximum position in y-direction by the ZREC1 variable and vice versa.
                   this has to be considered for the receiver line coordinates specified in both the input file and separate source/receiver files*/
 
-		if (READREC==0) {
+		if (READREC==0 || READREC==2) {
 			if (XREC1>XREC2) {
 				srec_maxx=XREC1;
 				srec_minx=XREC2;

src/fd.h

@@ -47,6 +47,10 @@ void spat_filt(float ** waveconv, int iter, int sws);
 
 float norm(float ** waveconv, int iter, int sws);
 
+void alloc_sections(int ntr,int ns,float ***sectionvx,float ***sectionvy,float ***sectionvz,float ***sectionp,float ***sectionpnp1,float ***sectionpn,float ***sectioncurl,float ***sectiondiv,
+                    float ***sectionpdata,float ***sectionpdiff,float ***sectionpdiffold,float ***sectionvxdata,float ***sectionvxdiff,float ***sectionvxdiffold,float ***sectionvydata,
+                    float ***sectionvydiff,float ***sectionvydiffold,float ***sectionvzdata,float ***sectionvzdiff,float ***sectionvzdiffold);
+
 void av_mat(float **  pi, float **  u,
             float **  ppijm, float **  puip, float ** pujm);
 
@@ -95,6 +99,10 @@ void count_killed_traces(int ntr, int swstestshot, int ntr_glob, int **recpos_lo
 
 void create_trkill_table(int ** killtable, int ntr_glob, int **recpos, int nsrc_glob, float **srcpos, int ishot, float kill_offset_lower, float kill_offset_upper);
 
+void dealloc_sections(int ntr,int ns,int **recpos_loc,float **sectionvx,float **sectionvy,float **sectionvz,float **sectionp,float **sectionpnp1,float **sectionpn,float **sectioncurl,float **sectiondiv,
+                    float **sectionpdata,float **sectionpdiff,float **sectionpdiffold,float **sectionvxdata,float **sectionvxdiff,float **sectionvxdiffold,float **sectionvydata,
+                    float **sectionvydiff,float **sectionvydiffold,float **sectionvzdata,float **sectionvzdiff,float **sectionvzdiffold);
+
 float exchange_L2(float L2, int sw, int bcast_l2);
 
 void exchange_rsg(float ** vx, float ** vy, float ** vz,
@@ -226,7 +234,7 @@ void readmod_elastic(float  **  rho, float **  pi, float **  u);
 
 void readmod_elastic_es(float  **  rho, float **  pi, float **  u, float ** matmod, int is);
 
-int **receiver(FILE *fp, int *ntr);
+int **receiver(int* ntr, float** srcpos, int shotno);
 
 void save_checkpoint(int nx1, int nx2, int ny1, int ny2,
                      float **  vx, float ** vy, float ** sxx, float ** syy, float ** sxy);

src/read_par_json.c

@@ -354,7 +354,7 @@ void read_par_json(FILE *fp, char *fileinp){
                 if (get_int_from_objectlist("READREC",number_readobjects,&READREC,varname_list, value_list))
                     declare_error("Variable READREC could not be retrieved from the json input file!");
                 else {
-                    if (READREC==0) {
+                    if (READREC==0 || READREC==2) {
                         if (get_float_from_objectlist("XREC1",number_readobjects,&XREC1,varname_list, value_list))
                             declare_error("Variable XREC1 could not be retrieved from the json input file!");
                         if (get_float_from_objectlist("XREC2",number_readobjects,&XREC2,varname_list, value_list))
@@ -366,7 +366,7 @@ void read_par_json(FILE *fp, char *fileinp){
                         if (get_int_from_objectlist("NGEOPH",number_readobjects,&NGEOPH,varname_list, value_list))
                             declare_error("Variable NGEOPH could not be retrieved from the json input file!");
                     }
-                    else {
+                    if (READREC>0) {
                         if (get_string_from_objectlist("REC_FILE",number_readobjects,REC_FILE,varname_list, value_list))
                             declare_error("Variable REC_FILE could not be retrieved from the json input file!");
                     }
@@ -1052,7 +1052,7 @@ void read_par_json(FILE *fp, char *fileinp){
          }*/
         
         /* receiver file */
-        if (READREC)
+        if (READREC==1)
         {
             if (access(REC_FILE,0) != 0)
             {

src/receiver.c

@@ -24,42 +24,44 @@
 
 #include "fd.h"
 
-int **receiver(FILE *fp, int *ntr){
+int **receiver(int *ntr, float **srcpos, int shotno){
 
 	/* declaration of extern variables */
 	extern  char REC_FILE[STRING_SIZE];
 	extern float DH, REFREC[4], REC_ARRAY_DEPTH, REC_ARRAY_DIST, FW;
-	extern int READREC, NGEOPH, DRX, REC_ARRAY, NX;
-	extern int MYID;
+	extern int READREC, NGEOPH, DRX, REC_ARRAY, NXG, NYG;
+	extern int MYID, VERBOSE,TRKILL;
+	extern FILE *FP;
 
-	int **recpos1, **recpos = NULL, nxrec=0, nyrec=0, nzrec=0;
-	int   itr=1, itr1=0, itr2=0, recflag=0, c, ifw, n, i, j;