diff --git a/fdelmodc3D/.fuse_hidden0000015000000001 b/fdelmodc3D/.fuse_hidden0000015000000001
deleted file mode 100644
index 158899df6305898453f54fc4344e21bd645b7fe8..0000000000000000000000000000000000000000
--- a/fdelmodc3D/.fuse_hidden0000015000000001
+++ /dev/null
@@ -1,227 +0,0 @@
-#include<stdlib.h>
-#include<stdio.h>
-#include<math.h>
-
-typedef struct _compType { /* Receiver Type */
- long vz;
- long vx;
- long vy;
- long p;
- long txx;
- long tyy;
- long tzz;
- long txz;
- long tyz;
- long txy;
- long pp;
- long ss;
- long ud;
-} compType;
-
-typedef struct _receiverPar { /* Receiver Parameters */
- char *file_rcv;
- compType type;
- long n;
- long nt;
- long delay;
- long skipdt;
- long max_nrec;
- long *z;
- long *y;
- long *x;
- float *zr;
- float *yr;
- float *xr;
- long int_p;
- long int_vx;
- long int_vy;
- long int_vz;
- long scale;
- long sinkdepth;
- long sinkvel;
- float cp;
- float rho;
-} recPar;
-
-typedef struct _snapshotPar { /* Snapshot Parameters */
- char *file_snap;
- char *file_beam;
- compType type;
- long nsnap;
- long delay;
- long skipdt;
- long skipdz;
- long skipdy;
- long skipdx;
- long nz;
- long ny;
- long nx;
- long z1;
- long z2;
- long x1;
- long x2;
- long y1;
- long y2;
- long vxvztime;
- long beam;
- long withbnd;
-} snaPar;
-
-typedef struct _modelPar { /* Model Parameters */
- long iorder;
- long ischeme;
- long grid_dir;
- long sh;
- char *file_cp;
- char *file_ro;
- char *file_cs;
- char *file_qp;
- char *file_qs;
- float dz;
- float dy;
- float dx;
- float dt;
- float tmod;
- long nt;
- float z0;
- float y0;
- float x0;
- /* medium max/min values */
- float cp_min;
- float cp_max;
- float cs_min;
- float cs_max;
- float ro_min;
- float ro_max;
- long nz;
- long ny;
- long nx;
- long naz;
- long nay;
- long nax;
- /* Vx: rox */
- long ioXx;
- long ioXy;
- long ioXz;
- long ieXx;
- long ieXy;
- long ieXz;
- /* Vy: roy */
- long ioYx;
- long ioYy;
- long ioYz;
- long ieYx;
- long ieYy;
- long ieYz;
- /* Vz: roz */
- long ioZx;
- long ioZy;
- long ioZz;
- long ieZx;
- long ieZy;
- long ieZz;
- /* P, Txx, Tyy, Tzz: lam, l2m */
- long ioPx;
- long ioPy;
- long ioPz;
- long iePx;
- long iePy;
- long iePz;
- /* Txz, Txy, Tyz: muu */
- long ioTx;
- long ioTy;
- long ioTz;
- long ieTx;
- long ieTy;
- long ieTz;
- /* attenuation / dissipative medium */
- float Qp;
- float Qs;
- float fw;
- float qr;
-} modPar;
-
-typedef struct _waveletPar { /* Wavelet Parameters */
- char *file_src; /* general source */
- long nsrcf;
- long nt;
- long ns;
- long nx;
- float dt;
- float ds;
- float fmax;
- long random;
- long seed;
- long nst;
- size_t *nsamp;
-} wavPar;
-
-typedef struct _sourcePar { /* Source Array Parameters */
- long n;
- long type;
- long orient;
- long *z;
- long *y;
- long *x;
- long single;
- long plane;
- long circle;
- long array;
- long random;
- float *tbeg;
- float *tend;
- long multiwav;
- float angle;
- float velo;
- float amplitude;
- float dip;
- float strike;
- long distribution;
- long window;
- long injectionrate;
- long sinkdepth;
- long src_at_rcv; /* Indicates that wavefield should be injected at receivers */
-} srcPar;
-
-typedef struct _shotPar { /* Shot Parameters */
- long n;
- long *z;
- long *y;
- long *x;
-} shotPar;
-
-typedef struct _boundPar { /* Boundary Parameters */
- long top;
- long bot;
- long lef;
- long rig;
- long fro;
- long bac;
- float *tapz;
- float *tapy;
- float *tapx;
- float *tapxz;
- float *tapxyz;
- long cfree;
- long ntap;
- long *surface;
- long npml;
- float R; /* reflection at side of model */
- float m; /* scaling order */
- float *pml_Vx;
- float *pml_Vy;
- float *pml_nzVx;
- float *pml_nxVz;
- float *pml_nzVz;
- float *pml_nxP;
- float *pml_nzP;
-
-} bndPar;
-
-
-#if __STDC_VERSION__ >= 199901L
- /* "restrict" is a keyword */
-#else
-#define restrict
-#endif
-
diff --git a/fdelmodc3D/Makefile b/fdelmodc3D/Makefile
index 051ebfb2b300a11d4f05cfb0dc00f7fd00889210..e3f21d2bd2a8f7636a8bde0f7bf7ce8784177db4 100644
--- a/fdelmodc3D/Makefile
+++ b/fdelmodc3D/Makefile
@@ -54,6 +54,7 @@ SRCC = $(PRG).c \
atopkge.c \
docpkge.c \
threadAffinity.c \
+ alloc3D.c \
getpars.c
OBJC = $(SRCC:%.c=%.o)
diff --git a/fdelmodc3D/alloc3D.c b/fdelmodc3D/alloc3D.c
new file mode 100644
index 0000000000000000000000000000000000000000..d82748fabacda9dd5605dae2aa35815a77d15997
--- /dev/null
+++ b/fdelmodc3D/alloc3D.c
@@ -0,0 +1,73 @@
+#include <stdlib.h>
+#include"fdelmodc3D.h"
+
+/* Copyright (c) Colorado School of Mines, 2011.*/
+/* All rights reserved. */
+
+/* allocate a 3-d array of floats */
+float ***alloc3float(modPar mod)
+{
+ size_t i3,i2,n1,n2,n3,size;
+ float ***p;
+
+ n1 = mod.naz;
+ n2 = mod.nax;
+ n3 = mod.nay;
+ size = sizeof(float);
+
+/* allocate pointer arrays of n3 and n2 */
+ if ((p=(float***)malloc(n3*sizeof(float**)))==NULL)
+ return NULL;
+ if ((p[0]=(float**)malloc(n3*n2*sizeof(float*)))==NULL) {
+ free(p);
+ return NULL;
+ }
+
+/* allocate data size and assign pointers to n1, n2 and n3 */
+ if (mod.nfx==1 && mod.nfy==1 ) { // 1D model
+ fprintf(stderr,"Allocating 1D model \n");
+ if ((p[0][0]=(float*)malloc(n1*size))==NULL) {
+ free(p);
+ return NULL;
+ }
+ for (i3=0; i3<n3; i3++) {
+ p[i3] = p[0];
+ for (i2=0; i2<n2; i2++)
+ p[i3][i2] = (float*)p[0][0];
+ }
+ }
+ else if (mod.nfy==1) { // 2D model
+ fprintf(stderr,"Allocating 2D model \n");
+ if ((p[0][0]=(float*)malloc(n2*n1*size))==NULL) {
+ free(p);
+ return NULL;
+ }
+ for (i3=0; i3<n3; i3++) {
+ p[i3] = p[0];
+ for (i2=0; i2<n2; i2++)
+ p[i3][i2] = (float*)p[0]+n1*i2;
+ }
+ }
+ else { // 3D model
+ fprintf(stderr,"Allocating 3D model \n");
+ if ((p[0][0]=(float*)malloc(n3*n2*n1*size))==NULL) {
+ free(p[0]);
+ free(p);
+ return NULL;
+ }
+ for (i3=0; i3<n3; i3++) {
+ p[i3] = p[0]+n2*i3;
+ for (i2=0; i2<n2; i2++)
+ p[i3][i2] = (float*)p[0][0]+n1*(i2+n2*i3);
+ }
+ }
+ return p;
+}
+
+void free3float(float ***p)
+{
+ free(p[0][0]);
+ free(p[0]);
+ free(p);
+}
+
diff --git a/fdelmodc3D/demo/FD_elastic.scr b/fdelmodc3D/demo/FD_elastic.scr
deleted file mode 100755
index 31ab0ca7be8a5d1af38266c71ce1573a056a8b4c..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/FD_elastic.scr
+++ /dev/null
@@ -1,167 +0,0 @@
-#!/bin/bash
-# Elastic decomposition
-
-fmax=60
-z0=0
-z1=300
-z1dzu=296
-z1dzd=304
-z2=700
-z3=1000
-cp0=1500
-cp1=2000
-cp2=2500
-cs0=0
-cs0=600
-cs1=700
-cs2=800
-ro0=1000
-ro1=1400
-ro2=1800
-
-
-# Source wavelet
-makewave dt=0.0004 nt=1024 w=fw fmin=0 flef=30 frig=30 fmax=$fmax t0=0.1 > wav.su
-#suxgraph < wav.su style=normal &
-
-# Subsurface model
-
-makemod file_base=model.su \
- cp0=$cp0 ro0=$ro0 cs0=$cs0 sizex=2000 sizez=1000 \
- dx=2 dz=2 orig=0,0 writeint=1 \
- intt=def poly=0 cp=$cp1,$cp1 ro=$ro1,$ro1 cs=$cs1,$cs1 x=0,2000 z=$z1,$z1 \
- intt=def poly=0 cp=$cp2,$cp2 ro=$ro2,$ro2 cs=$cs2,$cs2 x=0,2000 z=$z2,$z2 \
- verbose=1
-
-#FD Acoustic modeling, recording at Ocean bottom
-
-../fdelmodc \
- file_cp=model_cp.su file_den=model_ro.su file_cs=model_cs.su file_src=wav.su \
- ischeme=1 fmax=$fmax tmod=2 \
- file_rcv=el_obc.su rec_delay=0.1 \
- xrcv1=0 xrcv2=2000 dxrcv=10 zrcv1=$z1dzu zrcv2=$z1dzu \
- rec_type_ud=1 rec_type_vz=1 rec_type_vx=1 rec_type_tzz=1 rec_type_txz=1 \
- rec_int_vx=2 rec_int_vz=2 dtrcv=0.004 \
- xsrc=1000 zsrc=10 src_type=1 src_orient=2 nshot=1 \
- ntaper=200 left=4 right=4 bottom=4 top=4 \
- verbose=1
-
-#suximage < el_obc_rtzz.su wbox=400 hbox=500 perc=99.9 windowtitle=Tzz_OBC title="Total Tzz at OBC" &
-#suximage < el_obc_rvz.su wbox=400 hbox=500 perc=99.9 windowtitle=Vz_OBC title="Total Vz at OBC" &
-#suximage < el_obc_rvx.su wbox=400 hbox=500 perc=99.9 windowtitle=Vx_OBC title="Total Vx at OBC" &
-
-#cat el_obc_rvx.su el_obc_rvz.su | \
-#suwind key=offset min=-400 max=400 tmin=0.20 tmax=2 j=60 | \
-#suxwigb xcur=1 wbox=1000 hbox=500 grid1=dash \
-# title="Zoom of vx and vz with FD. Elastic Modeling" windowtitle=VX_VZ_FD &
-
-
-# Acoustic decomposition above the ocean bottom
-
-# 1- Downgoing wave field
-# A) Pressure component
-kxdecom file_in=el_obc_rp.su step=1 mode=0 col=1 row=1 cp=$cp0 ro=$ro0 cs=$cs0 nxmax=201 ntmax=501 nxfft=2048 ntfft=2048 alpha=-1 file_out=Pd.su verbose=1
-# B) Vertical velocity component
-kxdecom file_in=el_obc_rvz.su step=1 mode=0 col=2 row=1 cp=$cp0 ro=$ro0 cs=$cs0 nxmax=201 ntmax=501 nxfft=2048 ntfft=2048 alpha=-1 file_out=Vzd.su verbose=1
-# C) Adding P and Vz to get P_Down, P+= tmp1.su + tmp2.su
-addmul file_in1=Pd.su file_in2=Vzd.su file_out=el_pp_down_obc.su
-
-# 2- Upgoing wave field
-# A) Pressure component
-kxdecom file_in=el_obc_rp.su step=1 mode=0 col=1 row=2 cp=$cp0 ro=$ro0 cs=$cs0 nxmax=201 ntmax=501 nxfft=2048 ntfft=2048 alpha=-1 file_out=Pu.su verbose=1
-# B) Vertical velocity component
-kxdecom file_in=el_obc_rvz.su step=1 mode=0 col=2 row=2 cp=$cp0 ro=$ro0 cs=$cs0 nxmax=201 ntmax=501 nxfft=2048 ntfft=2048 alpha=-1 file_out=Vzu.su verbose=1
-# C) Subtracting Vz from P to get P_up, P-= tmp1.su - tmp2.su
-addmul < Pu.su file_in2=Vzu.su > el_pp_up_obc.su verbose=1
-
-#suximage < el_pp_down_obc.su wbox=400 hbox=500 perc=99.9 windowtitle=P_Down_OBC title="Downgoing P at OBC" &
-#suximage < el_pp_up_obc.su wbox=400 hbox=500 perc=99.9 windowtitle=P_Up_OBC title="Upugoing P at OBC" &
-#
-#sleep 4
-#echo " " 1>&2
-#echo " " 1>&2
-#echo "Hit return to continue" 1>&2
-#read cont
-
-exit;
-#-----------------------------------------------------------------------
-
-#FD Elastic modeling, recording just Ocean bottom
-
-fdelmodc \
- file_cp=model_cp.su file_den=model_ro.su file_cs=model_cs.su file_src=wav.su \
- ischeme=3 fmax=$fmax tmod=2 \
- file_rcv=el_obc_d.su rec_delay=0.1 \
- xrcv1=0 xrcv2=2000 dxrcv=10 zrcv1=$z1dzd zrcv2=$z1dzd rec_type_vz=1 rec_type_vx=1 rec_type_tzz=1 rec_type_txz=1 \
- rec_int_vx=2 rec_int_vz=2 dtrcv=0.004 \
- xsrc=1000 zsrc=10 src_type=1 src_orient=2 nshot=1 \
- ntaper=200 left=4 right=4 bottom=4 top=4 \
- verbose=1
-
-# Elastic decomposition below the ocean bottom
-#|P+| |Vx| | 0|
-#|S+| = N1+ |Vz| + N2+ |-P|
-
-
-# 1- Downgoing P- wave
-# A) Pressure component
-kxdecom file_in=el_obc_d_rtzz.su step=1 mode=2 col=2 row=1 cp=$cp1 ro=$ro1 cs=$cs1 fmax=$fmax nxmax=201 ntmax=501 nxfft=2048 ntfft=2048 alpha=-1 file_out=tmp1.su verbose=1
-# B) Horizontal velocity component
-kxdecom file_in=el_obc_d_rvx.su step=1 mode=1 col=1 row=1 cp=$cp1 ro=$ro1 cs=$cs1 fmax=$fmax nxmax=201 ntmax=501 nxfft=2048 ntfft=2048 alpha=-1 file_out=tmp2.su verbose=1
-# C) Vertical velocity component
-kxdecom file_in=el_obc_d_rvz.su step=1 mode=1 col=2 row=1 cp=$cp1 ro=$ro1 cs=$cs1 fmax=$fmax nxmax=201 ntmax=501 nxfft=2048 ntfft=2048 alpha=-1 file_out=tmp3.su verbose=1
-# D) Adding -P and Vx first, then adding Vz to get Phi_Down,
-addmul < tmp1.su a=-1 file_in2=tmp2.su | addmul file_in2=tmp3.su > P_Wave_Down_obc.su verbose=1
-
-# 2- Upgoing P- wave
-# A) Pressure component
-kxdecom file_in=el_obc_d_rtzz.su step=1 mode=-2 col=2 row=1 cp=$cp1 ro=$ro1 cs=$cs1 fmax=$fmax nxmax=201 ntmax=501 nxfft=2048 ntfft=2048 alpha=-1 file_out=tmp1.su verbose=1
-# B) Horizontal velocity component
-kxdecom file_in=el_obc_d_rvx.su step=1 mode=-1 col=1 row=1 cp=$cp1 ro=$ro1 cs=$cs1 fmax=$fmax nxmax=201 ntmax=501 nxfft=2048 ntfft=2048 alpha=-1 file_out=tmp2.su verbose=1
-# C) Vertical velocity component
-kxdecom file_in=el_obc_d_rvz.su step=1 mode=-1 col=2 row=1 cp=$cp1 ro=$ro1 cs=$cs1 fmax=$fmax nxmax=201 ntmax=501 nxfft=2048 ntfft=2048 alpha=-1 file_out=tmp3.su verbose=1
-# D) Adding -P and Vx first, then adding Vz to get Phi_Up,
-addmul < tmp1.su a=-1 file_in2=tmp2.su | addmul file_in2=tmp3.su > P_Wave_Up_obc.su verbose=1
-
-suximage < P_Wave_Down_obc.su wbox=400 hbox=500 perc=99.9 windowtitle=P_Wave_Down_obc title="Downgoing P-wave at OBC" &
-suximage < P_Wave_Up_obc.su wbox=400 hbox=500 perc=99.9 windowtitle=P_Wave_Up_obc title="Upugoing P-wave at OBC" &
-
-sleep 4
-echo " " 1>&2
-echo " " 1>&2
-echo "Hit return to continue" 1>&2
-read cont
-#-----------------------------------------------------------------------
-
-#|P+| |Vx| | 0|
-#|S+| = N1+ |Vz| + N2+ |-P|
-
-# 3- Downgoing S- wave
-# A) Pressure component
-kxdecom file_in=el_obc_d_rtzz.su step=1 mode=2 col=2 row=2 cp=$cp1 ro=$ro1 cs=$cs1 fmax=$fmax nxmax=201 ntmax=501 nxfft=2048 ntfft=2048 alpha=-1 file_out=tmp1.su verbose=1
-# B) Horizontal velocity component
-kxdecom file_in=el_obc_d_rvx.su step=1 mode=1 col=1 row=2 cp=$cp1 ro=$ro1 cs=$cs1 fmax=$fmax nxmax=201 ntmax=501 nxfft=2048 ntfft=2048 alpha=-1 file_out=tmp2.su verbose=1
-# C) Vertical velocity component
-kxdecom file_in=el_obc_d_rvz.su step=1 mode=1 col=2 row=2 cp=$cp1 ro=$ro1 cs=$cs1 fmax=$fmax nxmax=201 ntmax=501 nxfft=2048 ntfft=2048 alpha=-1 file_out=tmp3.su verbose=1
-# D) Adding -P and Vx first, then adding Vz to get Psi_Down,
-addmul < tmp1.su a=-1 file_in2=tmp2.su | addmul file_in2=tmp3.su > S_Wave_Down_obc.su verbose=1
-
-# 4- Upgoing S- wave
-# A) Pressure component
-kxdecom file_in=el_obc_d_rtzz.su step=1 mode=-2 col=2 row=2 cp=$cp1 ro=$ro1 cs=$cs1 fmax=$fmax nxmax=201 ntmax=501 nxfft=2048 ntfft=2048 alpha=-1 file_out=tmp1.su verbose=1
-# B) Horizontal velocity component
-kxdecom file_in=el_obc_d_rvx.su step=1 mode=-1 col=1 row=2 cp=$cp1 ro=$ro1 cs=$cs1 fmax=$fmax nxmax=201 ntmax=501 nxfft=2048 ntfft=2048 alpha=-1 file_out=tmp2.su verbose=1
-# C) Vertical velocity component
-kxdecom file_in=el_obc_d_rvz.su step=1 mode=-1 col=2 row=2 cp=$cp1 ro=$ro1 cs=$cs1 fmax=$fmax nxmax=201 ntmax=501 nxfft=2048 ntfft=2048 alpha=-1 file_out=tmp3.su verbose=1
-# D) Adding -P and Vx first, then adding Vz to get Psi_Up,
-addmul < tmp1.su a=-1 file_in2=tmp2.su | addmul file_in2=tmp3.su > S_Wave_Up_obc.su verbose=1
-
-suximage < S_Wave_Down_obc.su wbox=400 hbox=500 perc=99.9 windowtitle=S_Wave_Down_obc title="Downgoing S-wave at OBC" &
-suximage < S_Wave_Up_obc.su wbox=400 hbox=500 perc=99.9 windowtitle=S_Wave_Up_obc title="Upugoing S-wave at OBC" &
-
-sleep 5
-echo " " 1>&2
-echo " " 1>&2
-echo "Hit return to close the program" 1>&2
-read cont
-kill 0
diff --git a/fdelmodc3D/demo/RcvTextInput.scr b/fdelmodc3D/demo/RcvTextInput.scr
deleted file mode 100755
index 84a66f27b6264a73d137205925e232944169a781..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/RcvTextInput.scr
+++ /dev/null
@@ -1,16 +0,0 @@
-#example from Max Holicki who implemented the rcv_txt= option
-
-dt=0.001;
-# Make Wavelet & Model Files
-makewave file_out=wavelet.su verbose=2 dt=${dt} nt=1024 fp=5 shift=1 w=g2;
-makemod file_base=model.su verbose=2 cp0=100 cs0=1 ro0=1 sizex=100 sizez=100 dx=1 dz=1 orig=0,0;
-# Test File Load 1
-printf "%s %s\n%s %s\n %s %s" 25 75 35 55 12 37.5 > RcvCoord1.txt;
-../fdelmodc file_cp=model_cp.su file_cs=model_cs.su file_den=model_ro.su \
- ischeme=1 file_src=wavelet.su file_rcv=Data1.su \
- rcv_txt=RcvCoord1.txt rec_int_p=0 dtrcv=${dt} tmod=2.0 \
- rec_type_pp=1 rec_type_vx=1 rec_type_vz=1 \
- xsrc=50 zsrc=50 nshot=1 src_type=1 \
- ntaper=50 verbose=5
-
-
diff --git a/fdelmodc3D/demo/back_injrate_planes.scr b/fdelmodc3D/demo/back_injrate_planes.scr
deleted file mode 100755
index a6411e8a7e10d27828c657e5a6657c1234f70fbd..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/back_injrate_planes.scr
+++ /dev/null
@@ -1,170 +0,0 @@
-#!/bin/bash
-
-export PATH=:$HOME/src/OpenSource/bin:$HOME/bin64:$PATH:
-
-dx=0.5
-dt=0.0001
-fast=""
-
-dx=2.5
-dt=0.00050
-fast="fast"
-
-dx=1.25
-dt=0.00025
-
-makemod sizex=6000 sizez=1250 dx=$dx dz=$dx cp0=1500 ro0=1000 \
- orig=-3000,0 file_base=tutodel${fast}.su verbose=2 \
- intt=def x=-3000,-2000,-1000,0,1000,2000,3000 z=240,130,250,300,350,380,320 poly=2 cp=1950 ro=4500 grad=0 \
- intt=def x=-3000,-2200,-1500,0,1300,2100,3000 z=620,640,590,600,740,700,600 poly=2 cp=2000 ro=1400 grad=0 \
- intt=def x=-3000,-1800,0,2200,3000 z=920,1000,900,1000,1010 poly=2 cp=2300 ro=1600 grad=0
-
-# intt=def x=-3000,-1800,0,2200,3000 z=920,1000,900,1000,1010 poly=2 cp=1500 ro=1000 grad=0
-
-export OMP_NUM_THREADS=2
-makewave fp=30 dt=$dt file_out=wave${fast}.su nt=4096 t0=0.1 scale=1
-
-file_cp=tutodel${fast}_cp.su
-file_ro=tutodel${fast}_ro.su
-
-../fdelmodc \
- file_cp=$file_cp ischeme=1 iorder=4 \
- file_den=$file_ro \
- file_src=wave${fast}.su \
- file_rcv=inj_rate_plane.su \
- src_type=1 \
- src_injectionrate=1 \
- rec_type_vz=1 \
- rec_type_vx=1 \
- rec_type_p=0 \
- rec_int_vz=2 \
- rec_int_vx=2 \
- dtrcv=$dt \
- rec_delay=0.1 \
- verbose=4 \
- tmod=4.4000 \
- xrcv1=-3000,-3000,-3000,3000 xrcv2=3000,3000,-3000,3000 zrcv1=0,1200,0,0 zrcv2=0,1200,1200,1200 \
- dxrcv=2.5,2.5,0,0 dzrcv=0,0,2.5,2.5 \
- xsrc=0 zsrc=800 \
- ntaper=35 \
- left=2 right=2 top=2 bottom=2
-
-# xrcv1=-3000,-3000,-3000,3000 xrcv2=3000,3000,-3000,3000 zrcv1=0,1200,0,0 zrcv2=0,1200,1200,1200 \
-# dxrcv=2.5,2.5,0,0 dzrcv=0,0,2.5,2.5 \
-
-# 1500/2300
-scale=0.65217391304347826086
-suwind key=tracl min=1 max=2401 < inj_rate_plane_rp.su > inj_rate_plane0_rp.su
-suwind key=tracl min=2402 max=4802 < inj_rate_plane_rp.su | sugain scale=$scale >> inj_rate_plane0_rp.su
-
-scale=-1.0
-suwind key=tracl min=1 max=2401 < inj_rate_plane_rvz.su | sutaper tr1=100 tr2=100 ntr=2401 > inj_rate_plane0_rvz.su
-suwind key=tracl min=2402 max=4802 < inj_rate_plane_rvz.su | sutaper tr1=100 tr2=100 ntr=2401 | sugain scale=$scale >> inj_rate_plane0_rvz.su
-
-suwind key=tracl min=1 max=2401 < inj_rate_plane_rvz.su > inj_rate_planevz.su
-suwind key=tracl min=2402 max=4802 < inj_rate_plane_rvz.su | sugain scale=$scale >> inj_rate_planevz.su
-
-suwind < inj_rate_plane_rvx.su key=tracl min=4803 max=5283 | sugain scale=$scale > inj_rate_planevx.su
-suwind < inj_rate_plane_rvx.su key=tracl min=5284 max=5764 >> inj_rate_planevx.su
-
-#good results with scaled Vz src_type=1 src_injectionrate=0 and Vz snapshots
-# suxmovie < snapinj_rate_plane1vzrate0_sp.su loop=1 clip=30
-#good results with scaled Vz src_type=1 src_injectionrate=1 and Vz snapshots
-# suxmovie < snapinj_rate_plane1vzrate1_sp.su loop=1 clip=4000
-
-# at 3.2000 seconds the focus is at t=0
-
-file_snap=snapinj_rate_plane0_rvzrate1
-
-../fdelmodc \
- file_cp=$file_cp ischeme=1 iorder=4 \
- file_den=$file_ro \
- file_src=inj_rate_planevz.su \
- file_snap=snapinj_rate1_planevz.su \
- grid_dir=1 \
- src_type=1 \
- src_injectionrate=1 \
- rec_type_vz=0 \
- rec_type_p=1 \
- rec_int_p=0 \
- dtrcv=$dt \
- rec_delay=0.0 \
- verbose=4 \
- tmod=5.0000 \
- tsnap1=3.000 tsnap2=5.00 dtsnap=0.05 \
- xsnap1=-1000 xsnap2=1000 \
- ntaper=35 \
- left=2 right=2 top=2 bottom=2
-
-# tsnap1=4.200 tsnap2=4.50 dtsnap=0.004 \
-
-../fdelmodc \
- file_cp=$file_cp ischeme=1 iorder=4 \
- file_den=$file_ro \
- file_src=inj_rate_planevx.su \
- file_snap=snapinj_rate1_planevx.su \
- grid_dir=1 \
- src_type=1 \
- src_injectionrate=1 \
- rec_type_vz=0 \
- rec_type_p=1 \
- rec_int_p=0 \
- dtrcv=$dt \
- rec_delay=0.0 \
- verbose=4 \
- tmod=5.0000 \
- tsnap1=3.000 tsnap2=5.00 dtsnap=0.05 \
- xsnap1=-1000 xsnap2=1000 \
- ntaper=35 \
- left=2 right=2 top=2 bottom=2
-
-# tsnap1=4.200 tsnap2=4.50 dtsnap=0.004 \
-
-suop2 snapinj_rate1_planevz_sp.su snapinj_rate1_planevx_sp.su op=sum w1=1 w2=-1 > snapinj_rate1_planevzvxsum_sp.su
-
-exit;
-
-file_snap="snapinj_rate1_planevzvxsum"
-
-# tsnap1=3.200 tsnap2=3.50 dtsnap=0.004 \
-# tsnap1=3.290 tsnap2=3.31 dtsnap=0.0005 \
-
-suop2 tutodel${fast}_cp.su SrcRecPositions.su op=sum w1=1 w2=2000 | \
- supsimage hbox=4 wbox=6 labelsize=10 \
- x1beg=0 x1end=1250.0 legend=0 threecolor=1 \
- d1s=1.0 d2s=1.0 \
- wrgb=1.0,.5,0 grgb=0,.7,1.0 brgb=0,1.0,0 \
- bps=24 bclip=2400 wclip=1500 \
- n1tic=5 x2beg=-3000 f2num=-3000 d2num=1000 x2end=3000 > tutodelBackacq_cp.eps
-
-#sumax < inj_rate_plane0_rvz.su mode=abs outpar=nep
-#clip=`cat nep | awk '{print $1/3}'`
-#sugain epow=1.2 < inj_rate_plane0_rvz.su | \
-# supsimage hbox=4 wbox=8 labelsize=10 linewidth=0.0 \
-# n1tic=2 d2=2.5 f1=0.0 x1beg=0 x1end=3.004 \
-# f2=0 f2num=0 d2num=1000 clip=$clip > inj_rate_rvz.eps
-
-sumax < ${file_snap}_sp.su mode=abs outpar=nep
-clip=`cat nep | awk '{print $1/10}'`
-echo $clip
-
-for fldr in 27 32 22 17 12 7
-do
-suwind key=fldr min=$fldr max=$fldr < ${file_snap}_sp.su | \
- supsimage hbox=4 wbox=6 labelsize=10 \
- x1beg=0 x1end=1200.0 clip=$clip \
- n1tic=5 x2beg=-1000 f2num=-1000 d2num=500 x2end=1000 > snapinj_rate_$fldr.eps
-done
-
-suwind key=fldr min=27 max=27 < ${file_snap}_sp.su | \
- suwind key=gx min=0 max=0 | \
- supsgraph hbox=6 wbox=2 labelsize=10 style=seismic \
- x1beg=0 d1=2.5 f1=0 > snapinj_rate_27_trace0_t0.eps
-
-suwind key=fldr min=27 max=27 < ${file_snap}_sp.su | \
- suwind key=gx itmin=321 itmax=321 | sustrip > trace.bin
- suaddhead < trace.bin n1=801 dt=25 | supsgraph hbox=2 wbox=6 labelsize=10 \
- f1=-1000 d1=$dx f1num=-1000 d1num=500 style=normal > snapinj_rate_27_z800_t0.eps
-
-
-
diff --git a/fdelmodc3D/demo/back_injrate_planes_1D.scr b/fdelmodc3D/demo/back_injrate_planes_1D.scr
deleted file mode 100755
index 8b27f35afad257f42d221c15b51ab8075bf5c449..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/back_injrate_planes_1D.scr
+++ /dev/null
@@ -1,129 +0,0 @@
-#!/bin/bash
-
-export PATH=:$HOME/src/OpenSource/bin:$HOME/bin64:$PATH:
-
-dx=1.0
-dt=0.0002
-fast=""
-
-#dx=2.5
-#dt=0.00050
-#fast="fast"
-
-makemod sizex=6000 sizez=1250 dx=$dx dz=$dx cp0=1500 ro0=1000 \
- orig=-3000,0 file_base=tutodel${fast}.su verbose=2 \
- intt=def x=-3000,3000 z=240,240 cp=1950 ro=4500 grad=0 \
- intt=def x=-3000,3000 z=620,620 cp=1500 ro=1000 grad=0
-
-makewave w=fw fmin=0 flef=5 frig=80 fmax=100 dt=$dt file_out=wavefwfast.su nt=4096 t0=0.4 scale=0 scfft=1
-
-export OMP_NUM_THREADS=8
-makewave fp=30 dt=$dt file_out=wave${fast}.su nt=4096 t0=0.1 scale=1
-
-file_cp=tutodel${fast}_cp.su
-file_ro=tutodel${fast}_ro.su
-
-fdelmodc \
- file_cp=$file_cp ischeme=1 iorder=4 \
- file_den=$file_ro \
- file_src=wave${fast}.su \
- file_rcv=inj_rate_plane.su \
- src_type=1 \
- src_injectionrate=1 \
- rec_type_vz=1 \
- rec_type_p=1 \
- rec_int_vz=2 \
- rec_int_vx=2 \
- dtrcv=$dt \
- rec_delay=0.0 \
- verbose=1 \
- tmod=4.4000 \
- xrcv1=-3000,-3000 xrcv2=3000,3000 zrcv1=0,1200 zrcv2=0,1200 \
- dxrcv=2.5,2.5 dzrcv=0,0 \
- xsrc=0 zsrc=800 \
- ntaper=400 \
- left=4 right=4 top=4 bottom=4
-
-# xrcv1=-3000,-3000,-3000,3000 xrcv2=3000,3000,-3000,3000 zrcv1=0,1200,0,0 zrcv2=0,1200,1200,1200 \
-# dxrcv=2.5,2.5,0,0 dzrcv=0,0,2.5,2.5 \
-
-scale=1
-scale=0.40760869
-suwind key=tracl min=1 max=2401 < inj_rate_plane_rp.su > inj_rate_plane0_rp.su
-suwind key=tracl min=2402 max=4802 < inj_rate_plane_rp.su | sugain scale=$scale >> inj_rate_plane0_rp.su
-
-scale=-1.0
-suwind key=tracl min=1 max=2401 < inj_rate_plane_rvz.su > inj_rate_planez0_rvz.su
-suwind key=tracl min=2402 max=4802 < inj_rate_plane_rvz.su | sugain scale=$scale >> inj_rate_planez0_rvz.su
-#suwind key=tracl min=2402 max=4802 < inj_rate_plane_rvz.su | sugain scale=$scale > inj_rate_planez1200_rvz.su
-
-#good results with scaled Vz src_type=1 src_injectionrate=0 and Vz snapshots
-# suxmovie < snapinj_rate_plane1vzrate0_sp.su loop=1 clip=30
-#good results with scaled Vz src_type=1 src_injectionrate=1 and Vz snapshots
-# suxmovie < snapinj_rate_plane1vzrate1_sp.su loop=1 clip=4000
-
-fdelmodc \
- file_cp=$file_cp ischeme=1 iorder=4 \
- file_den=$file_ro \
- file_src=inj_rate_planez0_rvz.su \
- file_rcv=back_inj_rate_planez0.su \
- file_snap=snapinj_rate1_planevz0.su \
- grid_dir=1 \
- src_type=1 \
- src_injectionrate=1 \
- rec_type_vz=0 \
- rec_type_p=1 \
- rec_int_p=0 \
- dtrcv=$dt \
- rec_delay=0.0 \
- verbose=1 \
- tmod=5.0000 \
- tsnap1=4.200 tsnap2=4.50 dtsnap=0.004 \
- xsnap1=-1000 xsnap2=1000 \
- ntaper=400 \
- left=4 right=4 top=4 bottom=4
-
-exit
-
-fdelmodc \
- file_cp=$file_cp ischeme=1 iorder=4 \
- file_den=$file_ro \
- file_src=inj_rate_planez1200_rvz.su \
- file_rcv=back_inj_rate_planez1200.su \
- file_snap=snapinj_rate_planevz1200.su \
- grid_dir=1 \
- src_type=1 \
- src_injectionrate=0 \
- rec_type_vz=0 \
- rec_type_p=1 \
- rec_int_p=0 \
- dtrcv=$dt \
- rec_delay=0.0 \
- verbose=4 \
- tmod=4.0000 \
- tsnap1=3.200 tsnap2=3.50 dtsnap=0.004 \
- ntaper=400 \
- left=4 right=4 top=4 bottom=4
-
-
-suop2 snapinj_rate_planevz0_sp.su snapinj_rate_planevz1200_sp.su op=sum w1=1 w2=1 > snapinj_rate_planevzsum_sp.su
-
-exit
-sumax < inj_rate_plane0_rvz.su mode=abs outpar=nep
-clip=`cat nep | awk '{print $1/3}'`
-echo $clip
-
-sugain epow=1.2 < inj_rate_plane0_rvz.su | \
- supsimage hbox=4 wbox=8 labelsize=10 linewidth=0.0 \
- n1tic=2 d2=2.5 f1=0.0 x1beg=0 x1end=3.004 \
- f2=0 f2num=0 d2num=1000 clip=$clip > inj_rate_rvz.eps
-
-for fldr in 27 32 22 17 12 7
-do
-suwind key=fldr min=$fldr max=$fldr < snapinj_rate_plane1vzrate0_sp.su | \
- supsimage hbox=4 wbox=6 labelsize=10 \
- x1beg=0 x1end=1200.0 clip=30 \
- n1tic=5 x2beg=-3000 f2num=-3000 d2num=1000 x2end=3000 > snapinj_rate_$fldr.eps
-done
-
-
diff --git a/fdelmodc3D/demo/back_injrate_planes_1Dlong.scr b/fdelmodc3D/demo/back_injrate_planes_1Dlong.scr
deleted file mode 100755
index a0d7341c901e997bc1bd5115725d0ea05d6309b1..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/back_injrate_planes_1Dlong.scr
+++ /dev/null
@@ -1,131 +0,0 @@
-#!/bin/bash
-
-export PATH=:$HOME/src/OpenSource/bin:$HOME/bin64:$PATH:
-
-dx=0.5
-dt=0.0001
-fast=""
-
-dx=2.5
-dt=0.00050
-fast="fast"
-
-makemod sizex=12000 sizez=1250 dx=$dx dz=$dx cp0=1500 ro0=1000 \
- orig=-6000,0 file_base=tutodelfast.su verbose=2 \
- intt=def x=-6000,6000 z=240,240 cp=1950 ro=4500 grad=0 \
- intt=def x=-6000,6000 z=620,620 cp=1500 ro=1000 grad=0
-
-makewave w=fw fmin=0 flef=5 frig=80 fmax=100 dt=$dt file_out=wavefwfast.su nt=4096 t0=0.4 scale=0 scfft=1
-
-export OMP_NUM_THREADS=2
-makewave fp=30 dt=$dt file_out=wave${fast}.su nt=4096 t0=0.1 scale=1
-
-file_cp=tutodel${fast}_cp.su
-file_ro=tutodel${fast}_ro.su
-
-fdelmodc \
- file_cp=$file_cp ischeme=1 iorder=4 \
- file_den=$file_ro \
- file_src=wave${fast}.su \
- file_rcv=inj_rate_plane.su \
- src_type=1 \
- src_injectionrate=1 \
- rec_type_vz=1 \
- rec_type_p=1 \
- rec_int_vz=2 \
- rec_int_vx=2 \
- dtrcv=$dt \
- rec_delay=0.0 \
- verbose=4 \
- tmod=5.4000 \
- xrcv1=-6000,-6000 xrcv2=6000,6000 zrcv1=0,1200 zrcv2=0,1200 \
- dxrcv=2.5,2.5 dzrcv=0,0 \
- xsrc=0 zsrc=800 \
- ntaper=400 \
- left=4 right=4 top=4 bottom=4
-
-# xrcv1=-3000,-3000,-3000,3000 xrcv2=3000,3000,-3000,3000 zrcv1=0,1200,0,0 zrcv2=0,1200,1200,1200 \
-# dxrcv=2.5,2.5,0,0 dzrcv=0,0,2.5,2.5 \
-
-scale=1
-scale=0.40760869
-suwind key=tracl min=1 max=4801 < inj_rate_plane_rp.su > inj_rate_plane0_rp.su
-suwind key=tracl min=4802 max=9602 < inj_rate_plane_rp.su | sugain scale=$scale >> inj_rate_plane0_rp.su
-
-scale=-1.0
-suwind key=tracl min=1 max=4801 < inj_rate_plane_rvz.su > inj_rate_planez0_rvz.su
-suwind key=tracl min=4802 max=9602 < inj_rate_plane_rvz.su | sugain scale=$scale >> inj_rate_planez0_rvz.su
-suwind key=tracl min=4802 max=9602 < inj_rate_plane_rvz.su | sugain scale=$scale > inj_rate_planez1200_rvz.su
-
-#good results with scaled Vz src_type=1 src_injectionrate=0 and Vz snapshots
-# suxmovie < snapinj_rate_plane1vzrate0_sp.su loop=1 clip=30
-#good results with scaled Vz src_type=1 src_injectionrate=1 and Vz snapshots
-# suxmovie < snapinj_rate_plane1vzrate1_sp.su loop=1 clip=4000
-
-fdelmodc \
- file_cp=$file_cp ischeme=1 iorder=4 \
- file_den=$file_ro \
- file_src=inj_rate_planez0_rvz.su \
- file_rcv=back_inj_rate_planez0.su \
- file_snap=snapinj_rate1_planevz0.su \
- grid_dir=1 \
- src_type=1 \
- src_injectionrate=1 \
- rec_type_vz=0 \
- rec_type_p=1 \
- rec_int_p=0 \
- fmax=120 \
- dtrcv=$dt \
- rec_delay=0.0 \
- verbose=4 \
- tmod=5.5000 \
- tsnap1=5.200 tsnap2=5.50 dtsnap=0.004 \
- xsnap1=-1000 xsnap2=1000 \
- ntaper=400 \
- left=4 right=4 top=4 bottom=4
-
-
-fdelmodc \
- file_cp=$file_cp ischeme=1 iorder=4 \
- file_den=$file_ro \
- file_src=inj_rate_planez1200_rvz.su \
- file_rcv=back_inj_rate_planez1200.su \
- file_snap=snapinj_rate1_planevz1200.su \
- grid_dir=1 \
- src_type=1 \
- src_injectionrate=1 \
- rec_type_vz=0 \
- rec_type_p=1 \
- rec_int_p=0 \
- dtrcv=$dt \
- rec_delay=0.0 \
- verbose=4 \
- tmod=5.5000 \
- tsnap1=5.200 tsnap2=5.50 dtsnap=0.004 \
- xsnap1=-1000 xsnap2=1000 \
- ntaper=400 \
- left=4 right=4 top=4 bottom=4
-
-# tsnap1=3.200 tsnap2=3.50 dtsnap=0.004 \
-
-suop2 snapinj_rate1_planevz0_sp.su snapinj_rate1_planevz1200_sp.su op=sum w1=1 w2=1 > snapinj_rate_planevzsum_sp.su
-
-exit
-sumax < inj_rate_plane0_rvz.su mode=abs outpar=nep
-clip=`cat nep | awk '{print $1/3}'`
-echo $clip
-
-sugain epow=1.2 < inj_rate_plane0_rvz.su | \
- supsimage hbox=4 wbox=8 labelsize=10 linewidth=0.0 \
- n1tic=2 d2=2.5 f1=0.0 x1beg=0 x1end=3.004 \
- f2=0 f2num=0 d2num=1000 clip=$clip > inj_rate_rvz.eps
-
-for fldr in 27 32 22 17 12 7
-do
-suwind key=fldr min=$fldr max=$fldr < snapinj_rate_plane1vzrate0_sp.su | \
- supsimage hbox=4 wbox=6 labelsize=10 \
- x1beg=0 x1end=1200.0 clip=30 \
- n1tic=5 x2beg=-3000 f2num=-3000 d2num=1000 x2end=3000 > snapinj_rate_$fldr.eps
-done
-
-
diff --git a/fdelmodc3D/demo/benchmark.scr b/fdelmodc3D/demo/benchmark.scr
deleted file mode 100755
index e176dfc1c9be60206dfd174dba5fd4bce911246b..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/benchmark.scr
+++ /dev/null
@@ -1,40 +0,0 @@
-#!/bin/bash
-
-cp=2000
-rho=1000
-dx=2.5
-dt=0.0005
-
-makemod sizex=6000 sizez=4000 dx=$dx dz=$dx cp0=$cp cs0=$cs ro0=$rho \
- orig=-3000,-1000 file_base=syncl.su \
- intt=def x=-3000,0,3000 z=250,250,250 poly=0 cp=2300 ro=5000 \
- intt=def x=-3000,-2000,-1000,-800,0,800,3000 z=650,650,700,750,900,750,600 poly=2 cp=2600 ro=1000 \
- intt=def x=-3000,0,3000 z=1390,1390,1390 poly=0 cp=2000 ro=5000
-
-makewave fp=20 dt=$dt file_out=wave.su nt=4096 t0=0.1
-
-xsrc=-200
-
-set -x
-../fdelmodc \
- file_cp=syncl_cp.su ischeme=1 \
- file_den=syncl_ro.su \
- file_src=wave.su \
- file_rcv=shot_xsrc${xsrc}.su \
- src_type=7 \
- src_orient=1 \
- src_injectionrate=1 \
- rec_type_vz=0 \
- rec_type_p=1 \
- rec_int_vz=2 \
- dtrcv=0.004 \
- rec_delay=0.1 \
- verbose=2 \
- tmod=4.10 \
- dxrcv=10.0 \
- xrcv1=-2250 xrcv2=2250 \
- zrcv1=0 zrcv2=0 \
- xsrc=0 zsrc=1150 \
- ntaper=200 \
- left=2 right=2 top=1 bottom=2
-
diff --git a/fdelmodc3D/demo/boundaries.scr b/fdelmodc3D/demo/boundaries.scr
deleted file mode 100755
index e4786615df77dc372b82fc70180571c5584c9bcf..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/boundaries.scr
+++ /dev/null
@@ -1,58 +0,0 @@
-#!/bin/bash
-#PBS -N fdelmodc
-#PBS -k eo
-#PBS -j eo
-#
-# Models plane wave at depth to receivers at the surface, including snapshots
- set -vx
-export PATH=../../utils:$PATH:
-
-makewave file_out=wavelet.su dt=0.001 nt=1024 fp=13 t0=0.1 w=g2 verbose=1
-
-makemod file_base=model.su \
- cp0=1500 ro0=1000 cs0=600 sizex=1200 sizez=1200 \
- dx=3 dz=3 orig=0,0
-
-export filecp=model_cp.su
-export filecs=model_cs.su
-export filero=model_ro.su
-
-export OMP_NUM_THREADS=1
-
-../fdelmodc \
- file_cp=$filecp file_cs=$filecs file_den=$filero \
- ischeme=3 \
- src_type=1 src_orient=1 tmod=2.0 \
- file_src=wavelet.su verbose=2 \
- file_rcv=recS.su \
- file_snap=snapS.su \
- xrcv1=0 xrcv2=2100 dxrcv=15 \
- zrcv1=400 zrcv2=400 \
- rec_type_vx=1 rec_type_pp=1 rec_type_ss=1 rec_int_vx=1 \
- dtrcv=0.004 \
- xsrc=600 zsrc=600 \
- tapfact=0.20 \
- top=1 left=1 right=1 bottom=1 \
- tsnap1=0.1 tsnap2=3.0 dtsnap=0.1 \
- sna_type_ss=1 sna_type_p=1 sna_type_txz=1 sna_type_tzz=1
-
-exit;
-../fdelmodc \
- file_cp=$filecp file_cs=$filecs file_den=$filero \
- ischeme=3 \
- file_src=wavelet.su verbose=4 \
- file_rcv=recP.su \
- file_snap=snapP.su \
- xrcv1=0 xrcv2=2100 dxrcv=15 \
- zrcv1=400 zrcv2=400 \
- rec_type_vx=1 rec_type_pp=1 rec_type_ss=1 rec_int_vx=1 \
- dtrcv=0.004 \
- xsrc=1000 zsrc=1700 \
- src_type=8 src_orient=1 tmod=2.0 \
- top=4 left=4 right=4 bottom=4 \
- tsnap1=0.1 tsnap2=3.0 dtsnap=0.1 \
- sna_type_ss=1 sna_type_pp=1
-
-
-exit;
-
diff --git a/fdelmodc3D/demo/compare_green_dtxd_invariant.scr b/fdelmodc3D/demo/compare_green_dtxd_invariant.scr
deleted file mode 100755
index 2433c401b5abb5195aa9c2b556e68816c440cfd8..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/compare_green_dtxd_invariant.scr
+++ /dev/null
@@ -1,204 +0,0 @@
-#!/bin/bash
-#PBS -l nodes=1:ppn=2
-#PBS -N InterfModeling
-#PBS -V
-#
-# source construction shown in Figure A2-A3-A4, 150 s.
-
-cp=2000
-rho=1000
-dx=2.5
-dt=0.0001
-halfdt=`perl -e "print 0.5*$dt;"`
-
-export PATH=../../bin:$PATH
-
-
-######### MONOPOLE ACOUSTIC #######
-
-for dx in 2.5 5
-do
-for dt in 0.0001 0.0005
-do
-makemod sizex=2000 sizez=2000 dx=$dx dz=$dx cp0=$cp ro0=$rho orig=-1000,0 file_base=simple.su
-makewave fp=15 dt=$dt file_out=wave.su nt=4096 t0=0.1
-../fdelmodc \
- file_cp=simple_cp.su ischeme=1 \
- file_den=simple_ro.su \
- file_src=wave.su \
- file_rcv=shot_fd.su \
- src_type=1 \
- rec_type_p=1 \
- rec_int_vz=2 \
- dtrcv=0.005 \
- src_injectionrate=1 \
- verbose=2 \
- tmod=0.5115 \
- dxrcv=5.0 \
- xrcv1=-500 xrcv2=500 \
- zrcv1=500 zrcv2=500 \
- xsrc=0 zsrc=1000 \
- ntaper=80 \
- left=4 right=4 bottom=4 top=4
-suwind key=tracl min=101 max=101 < shot_fd_rp.su > trace3_fd${dx}_${dt}.su
-done
-done
-
-
-(suwind key=tracl min=101 max=101 < shot_fd_rp.su | basop choice=shift shift=$halfdt; suwind key=tracl min=101 max=101 < shot_green_rp.su ) | basop choice=shift shift=-0.1 | suxgraph
-
-
-# rvz
-
-(suwind key=tracl min=101 max=101 < shot_fd_rvz.su ; suwind key=tracl min=101 max=101 < shot_green_rvz.su ) | basop choice=shift shift=-0.1 | supsgraph style=normal labelsize=10 wbox=4 hbox=2 label1='time in seconds' label2="Amplitude" linewidth=0.1 d2num=2e-8 f2num=-4e-8 x2end=4e-8 x2beg=-2.7e-8 > mon_rvz.eps
-
-(suwind key=tracl min=101 max=101 < shot_fd_rvz.su ; suwind key=tracl min=101 max=101 < shot_green_rvz.su ) | basop choice=shift shift=-0.1 | supsgraph style=normal labelsize=10 wbox=2 hbox=2 label1='time in seconds' label2="Amplitude" linewidth=0.1 linecolor=red,green d2num=2e-10 f2num=3.86e-8 x2end=3.96e-8 x2beg=3.86e-8 x1beg=0.255 x1end=0.258 > mon_zoom_rvz.eps
-
-suwind key=tracl min=101 max=101 < shot_fd_rvz.su > trace_fd.su
-suwind key=tracl min=101 max=101 < shot_green_rvz.su > trace_green.su
-
-sumax < trace_green.su outpar=nep
-Mmax=`cat nep | awk '{print $1}'`
-a=`perl -e "print 100.0/$Mmax;"`
-echo $a
-
-sudiff trace_green.su trace_fd.su | basop choice=shift shift=-0.1 | sugain scale=$a | suop op=abs | supsgraph style=normal labelsize=12 wbox=4 hbox=2 label1='time in seconds' label2="Relative error in percentage of peak" linewidth=0.1 linecolor=red x2beg=0.0 x2end=1.0 f2num=0.0 d2num=0.5 > mon_diff_dx${dx}_rvz.eps
-
-(suwind key=tracl min=101 max=101 < shot_fd_rvz.su ; suwind key=tracl min=101 max=101 < shot_green_rvz.su) | basop choice=shift shift=-0.1 | suxgraph
-
-
-######### DIPOLE ACOUSTIC #######
-
-makewave fp=15 dt=$dt file_out=wave.su nt=4096 t0=0.1
-
-../fdelmodc \
- file_cp=simple_cp.su ischeme=1 \
- file_den=simple_ro.su \
- file_src=wave.su \
- file_rcv=shot_fd_dip.su \
- src_type=1 \
- src_orient=2 \
- rec_type_p=1 \
- rec_int_vz=2 \
- dtrcv=0.0005 \
- verbose=2 \
- tmod=0.5115 \
- dxrcv=5.0 \
- xrcv1=-500 xrcv2=500 \
- zrcv1=500 zrcv2=500 \
- xsrc=0 zsrc=1000 \
- ntaper=80 \
- left=4 right=4 bottom=4 top=4
-
-makewave fp=15 dt=0.0005 file_out=wave.su nt=4096 t0=0.1
-
-green c=$cp rho=$rho file_src=wave.su zsrc1=500 xrcv=-500,500 dxrcv=5 nt=4096 dip=1 verbose=1 | suwind nt=1024 > shot_green_dip_rp.su
-green c=$cp rho=$rho file_src=wave.su zsrc1=500 xrcv=-500,500 dxrcv=5 nt=4096 p_vz=1 dip=1 verbose=1 | suwind nt=1024 > shot_green_dip_rvz.su
-
-shift=`perl -e "print 0.5*$dx/$cp;"`
-
-# rp
-(suwind key=tracl min=101 max=101 < shot_fd_dip_rp.su | basop choice=shift shift=-$shift; suwind key=tracl min=101 max=101 < shot_green_dip_rp.su ) | basop choice=shift shift=-0.1 | supsgraph style=normal titlesize=-1 labelsize=10 wbox=4 hbox=2 label1='time in seconds' label2="Amplitude" linewidth=0.1 linecolor=red,green d2num=0.5 xend=2.0 f2num=-1.5> dip_rp.eps
-
-(suwind key=tracl min=101 max=101 < shot_fd_dip_rp.su | basop choice=shift shift=-$shift; suwind key=tracl min=101 max=101 < shot_green_dip_rp.su ) | basop choice=shift shift=-0.1 | supsgraph style=normal labelsize=10 wbox=2 hbox=2 label1='time in seconds' label2="Amplitude" linewidth=0.1 linecolor=red,green x2beg=1.8 x1beg=0.2430 x1end=0.24601 f1num=0.243 d1num=0.002 > dip_zoom_rp.eps
-
-suwind key=tracl min=101 max=101 < shot_fd_dip_rp.su | basop choice=shift shift=-$shift > trace_fd.su
-suwind key=tracl min=101 max=101 < shot_green_dip_rp.su > trace_green.su
-
-sumax < trace_green.su outpar=nep
-Mmax=`cat nep | awk '{print $1}'`
-a=`perl -e "print 100.0/$Mmax;"`
-echo $a
-
-sudiff trace_green.su trace_fd.su | basop choice=shift shift=-0.1 | sugain scale=$a | suop op=abs | supsgraph style=normal labelsize=12 wbox=4 hbox=2 label1='time in seconds' label2="Relative error in percentage of peak" linewidth=0.1 linecolor=red x2beg=0.0 x2end=1.0 f2num=0.0 d2num=0.5 > dip_diff_dx${dx}_rp.eps
-
-(suwind key=tracl min=101 max=101 < shot_fd_dip_rp.su | basop choice=shift shift=-$shift ; suwind key=tracl min=101 max=101 < shot_green_dip_rp.su ) | basop choice=shift shift=-0.1 | suxgraph
-
-
-# rvz
-
-(suwind key=tracl min=101 max=101 < shot_fd_dip_rvz.su | basop choice=shift shift=-$shift; suwind key=tracl min=101 max=101 < shot_green_dip_rvz.su ) | basop choice=shift shift=-0.1 | supsgraph style=normal labelsize=10 wbox=4 hbox=2 label1='time in seconds' label2="Amplitude" linewidth=0.1 linecolor=red,green d2num=6e-10 f2num=-1.2e-9 x2end=2e-9 x2beg=-1.3e-9 > dip_rvz.eps
-
-(suwind key=tracl min=101 max=101 < shot_fd_dip_rvz.su | basop choice=shift shift=-$shift; suwind key=tracl min=101 max=101 < shot_green_dip_rvz.su ) | basop choice=shift shift=-0.1 | supsgraph style=normal labelsize=10 wbox=2 hbox=2 label1='time in seconds' label2="Amplitude" linewidth=0.1 linecolor=red,green d2num=2e-11 f2num=1.85e-9 x2end=1.944e-9 x2beg=1.85e-9 x1beg=0.2430 x1end=0.24601 f1num=0.243 d1num=0.002 > dip_zoom_rvz.eps
-
-suwind key=tracl min=101 max=101 < shot_fd_dip_rvz.su | basop choice=shift shift=-$shift > trace_fd.su
-suwind key=tracl min=101 max=101 < shot_green_dip_rvz.su > trace_green.su
-
-sumax < trace_green.su outpar=nep
-Mmax=`cat nep | awk '{print $1}'`
-a=`perl -e "print 100.0/$Mmax;"`
-echo $a
-
-sudiff trace_green.su trace_fd.su | basop choice=shift shift=-0.1 | sugain scale=$a | suop op=abs | supsgraph style=normal labelsize=12 wbox=4 hbox=2 label1='time in seconds' label2="Relative error in percentage of peak" linewidth=0.1 linecolor=red x2beg=0.0 x2end=1.0 f2num=0.0 d2num=0.5 > dip_diff_dx${dx}_rvz.eps
-
-(suwind key=tracl min=101 max=101 < shot_fd_dip_rvz.su | basop choice=shift shift=-$shift; suwind key=tracl min=101 max=101 < shot_green_dip_rvz.su ) | basop choice=shift shift=-0.1 | suxgraph
-
-######### ELASTIC #######
-
-cp=2000
-cs=1400
-rho=1000
-dx=5
-dt=0.0005
-
-makemod sizex=2000 sizez=2000 dx=$dx dz=$dx cp0=$cp cs0=$cs ro0=$rho orig=-1000,0 file_base=simple.su
-
-makewave fp=15 dt=$dt file_out=wave.su nt=4096 t0=0.1
-
-
-../fdelmodc \
- file_cp=simple_cp.su ischeme=3 \
- file_cs=simple_cs.su \
- file_den=simple_ro.su \
- file_src=wave.su \
- file_rcv=shot_fd.su \
- src_type=6 \
- rec_type_vz=1 \
- rec_int_vz=2 \
- dtrcv=0.0005 \
- verbose=2 \
- tmod=0.5115 \
- dxrcv=5.0 \
- xrcv1=-500 xrcv2=500 \
- zrcv1=500 zrcv2=500 \
- xsrc=0 zsrc=1000 \
- ntaper=80 \
- left=4 right=4 bottom=4 top=4
-
-makewave fp=15 dt=0.0005 file_out=waveg.su nt=4096 t0=0.1
-
-green c=$cp cs=$cs rho=$rho file_src=waveg.su zsrc1=500 xrcv=-500,500 dxrcv=5 nt=4096 Fx=1 | suwind nt=1024 > shot_green_FxRz.su
-
- (suwind key=tracl min=51 max=51 < shot_fd_rvz.su ; suwind key=tracl min=51 max=51 < shot_green_FxRz.su) | basop choice=shift shift=-0.1 | suxgraph
-
-
-../fdelmodc \
- file_cp=simple_cp.su ischeme=3 \
- file_cs=simple_cs.su \
- file_den=simple_ro.su \
- file_src=wave.su \
- file_rcv=shot_fd_fz.su \
- src_type=7 \
- rec_type_vz=1 \
- rec_int_vz=0 \
- dtrcv=0.0005 \
- verbose=2 \
- tmod=0.5115 \
- dxrcv=5.0 \
- xrcv1=-500 xrcv2=500 \
- zrcv1=500 zrcv2=500 \
- xsrc=0 zsrc=1000 \
- ntaper=80 \
- left=4 right=4 bottom=4 top=4
-
-green c=$cp cs=$cs rho=$rho file_src=waveg.su zsrc1=500 xrcv=-500,500 dxrcv=5 nt=4096 Fz=1 | suwind nt=1024 > shot_green_FzRz.su
-
- (suwind key=tracl min=101 max=101 < shot_fd_fz_rvz.su ; suwind key=tracl min=101 max=101 < shot_green_FzRz.su) | basop choice=shift shift=-0.1 | suxgraph
-
-
-
-######### DIPOLE ELASTIC #######
-
-
-######### SURFACE WAVES #######
-
diff --git a/fdelmodc3D/demo/compare_green_inmanual.scr b/fdelmodc3D/demo/compare_green_inmanual.scr
deleted file mode 100755
index aeb0d2dc0a80d5c4f9f7ac75ed37a951e3ece16c..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/compare_green_inmanual.scr
+++ /dev/null
@@ -1,216 +0,0 @@
-#!/bin/bash
-#PBS -l nodes=1:ppn=2
-#PBS -N InterfModeling
-#PBS -V
-#
-# source construction shown in Figure A2-A3-A4, 150 s.
-
-cp=2000
-rho=1000
-dx=2.5
-dt=0.0001
-
-export PATH=../../bin:$PATH
-
-export OMP_NUM_THREADS=4
-
-makemod sizex=2000 sizez=2000 dx=$dx dz=$dx cp0=$cp ro0=$rho orig=-1000,0 file_base=simple.su
-makewave fp=15 dt=$dt file_out=wave.su nt=4096 t0=0.1
-
-######### MONOPOLE ACOUSTIC #######
-
-../fdelmodc \
- file_cp=simple_cp.su ischeme=1 \
- file_den=simple_ro.su \
- file_src=wave.su \
- file_rcv=shot_fd.su \
- src_type=1 \
- rec_type_p=1 \
- rec_int_vz=2 \
- dtrcv=0.0005 \
- verbose=2 \
- tmod=0.5115 \
- dxrcv=5.0 \
- xrcv1=-500 xrcv2=500 \
- zrcv1=500 zrcv2=500 \
- xsrc=0 zsrc=1000 \
- ntaper=80 \
- left=4 right=4 bottom=4 top=4
-
-makewave fp=15 dt=0.0005 file_out=wave.su nt=4096 t0=0.1
-
-green c=$cp rho=$rho file_src=wave.su zsrc1=500 xrcv=-500,500 dxrcv=5 nt=4096 dip=0 verbose=1 | suwind nt=1024 > shot_green_rp.su
-green c=$cp rho=$rho file_src=wave.su zsrc1=500 xrcv=-500,500 dxrcv=5 nt=4096 dip=0 p_vz=1 verbose=1 | suwind nt=1024 > shot_green_rvz.su
-
-# rp
-(suwind key=tracl min=101 max=101 < shot_fd_rp.su ; suwind key=tracl min=101 max=101 < shot_green_rp.su ) | basop choice=shift shift=-0.1 | supsgraph style=normal labelsize=10 wbox=4 hbox=2 label1='time in seconds' label2="Amplitude" linewidth=0.1 linecolor=red,green d2num=10 x2end=40 f2num=-40 > mon_rp.eps
-
-(suwind key=tracl min=101 max=101 < shot_fd_rp.su ; suwind key=tracl min=101 max=101 < shot_green_rp.su;) | basop choice=shift shift=-0.1 | supsgraph style=normal labelsize=10 wbox=2 hbox=2 label1='time in seconds' label2="Amplitude" linewidth=0.1 linecolor=red,green x1beg=0.255 x1end=0.258 x2beg=39.5 > mon_zoom_rp.eps
-
-suwind key=tracl min=101 max=101 < shot_fd_rp.su > trace_fd.su
-suwind key=tracl min=101 max=101 < shot_green_rp.su > trace_green.su
-
-sumax < trace_green.su outpar=nep
-Mmax=`cat nep | awk '{print $1}'`
-a=`perl -e "print 100.0/$Mmax;"`
-echo $a
-
-sudiff trace_green.su trace_fd.su | basop choice=shift shift=-0.1 | sugain scale=$a | suop op=abs | supsgraph style=normal labelsize=12 wbox=4 hbox=2 label1='time in seconds' label2="Relative error in percentage of peak" linewidth=0.1 linecolor=red x2beg=0.0 x2end=1.0 f2num=0.0 d2num=0.5 > mon_diff_dx${dx}_rp.eps
-
-(suwind key=tracl min=101 max=101 < shot_fd_rp.su; suwind key=tracl min=101 max=101 < shot_green_rp.su ) | basop choice=shift shift=-0.1 | suxgraph
-
-# rvz
-
-(suwind key=tracl min=101 max=101 < shot_fd_rvz.su ; suwind key=tracl min=101 max=101 < shot_green_rvz.su ) | basop choice=shift shift=-0.1 | supsgraph style=normal labelsize=10 wbox=4 hbox=2 label1='time in seconds' label2="Amplitude" linewidth=0.1 linecolor=red,green d2num=1e-5 f2num=-2e-5 x2end=1.5e-5 x2beg=-2e-5 > mon_rvz.eps
-
-(suwind key=tracl min=101 max=101 < shot_fd_rvz.su ; suwind key=tracl min=101 max=101 < shot_green_rvz.su ) | basop choice=shift shift=-0.1 | sugain scale=-1 | supsgraph style=normal labelsize=10 wbox=2 hbox=2 label1='time in seconds' label2="Amplitude" linewidth=0.1 linecolor=red,green d2num=5e-8 f2num=1.96e-5 x2end=1.98e-5 x2beg=1.96e-5 f1=0 x1beg=0.255 x1end=0.258 > mon_zoom_rvz.eps
-
-suwind key=tracl min=101 max=101 < shot_fd_rvz.su > trace_fd.su
-suwind key=tracl min=101 max=101 < shot_green_rvz.su > trace_green.su
-
-sumax < trace_green.su outpar=nep
-Mmax=`cat nep | awk '{print $1}'`
-a=`perl -e "print 100.0/$Mmax;"`
-echo $a
-
-sudiff trace_green.su trace_fd.su | basop choice=shift shift=-0.1 | sugain scale=$a | suop op=abs | supsgraph style=normal labelsize=12 wbox=4 hbox=2 label1='time in seconds' label2="Relative error in percentage of peak" linewidth=0.1 linecolor=red x2beg=0.0 x2end=1.0 f2num=0.0 d2num=0.5 > mon_diff_dx${dx}_rvz.eps
-
-(suwind key=tracl min=101 max=101 < shot_fd_rvz.su ; suwind key=tracl min=101 max=101 < shot_green_rvz.su) | basop choice=shift shift=-0.1 | suxgraph
-
-
-######### DIPOLE ACOUSTIC #######
-
-makewave fp=15 dt=$dt file_out=wave.su nt=4096 t0=0.1
-
-../fdelmodc \
- file_cp=simple_cp.su ischeme=1 \
- file_den=simple_ro.su \
- file_src=wave.su \
- file_rcv=shot_fd_dip.su \
- src_type=1 \
- src_orient=2 \
- rec_type_p=1 \
- rec_int_vz=2 \
- dtrcv=0.0005 \
- verbose=2 \
- tmod=0.5115 \
- dxrcv=5.0 \
- xrcv1=-500 xrcv2=500 \
- zrcv1=500 zrcv2=500 \
- xsrc=0 zsrc=1000 \
- ntaper=80 \
- left=4 right=4 bottom=4 top=4
-
-makewave fp=15 dt=0.0005 file_out=wave.su nt=4096 t0=0.1
-
-green c=$cp rho=$rho file_src=wave.su zsrc1=500 xrcv=-500,500 dxrcv=5 nt=4096 dip=1 verbose=1 | suwind nt=1024 > shot_green_dip_rp.su
-green c=$cp rho=$rho file_src=wave.su zsrc1=500 xrcv=-500,500 dxrcv=5 nt=4096 p_vz=1 dip=1 verbose=1 | suwind nt=1024 > shot_green_dip_rvz.su
-
-shift=`perl -e "print 0.5*$dx/$cp;"`
-
-# rp
-(suwind key=tracl min=101 max=101 < shot_fd_dip_rp.su | basop choice=shift shift=-$shift; suwind key=tracl min=101 max=101 < shot_green_dip_rp.su ) | basop choice=shift shift=-0.1 | supsgraph style=normal titlesize=-1 labelsize=10 wbox=4 hbox=2 label1='time in seconds' label2="Amplitude" linewidth=0.1 linecolor=red,green d2num=0.5 xend=2.0 f2num=-1.5> dip_rp.eps
-
-(suwind key=tracl min=101 max=101 < shot_fd_dip_rp.su | basop choice=shift shift=-$shift; suwind key=tracl min=101 max=101 < shot_green_dip_rp.su ) | basop choice=shift shift=-0.1 | supsgraph style=normal labelsize=10 wbox=2 hbox=2 label1='time in seconds' label2="Amplitude" linewidth=0.1 linecolor=red,green x2beg=1.8 x1beg=0.2430 x1end=0.24601 f1num=0.243 d1num=0.002 > dip_zoom_rp.eps
-
-suwind key=tracl min=101 max=101 < shot_fd_dip_rp.su | basop choice=shift shift=-$shift > trace_fd.su
-suwind key=tracl min=101 max=101 < shot_green_dip_rp.su > trace_green.su
-
-sumax < trace_green.su outpar=nep
-Mmax=`cat nep | awk '{print $1}'`
-a=`perl -e "print 100.0/$Mmax;"`
-echo $a
-
-sudiff trace_green.su trace_fd.su | basop choice=shift shift=-0.1 | sugain scale=$a | suop op=abs | supsgraph style=normal labelsize=12 wbox=4 hbox=2 label1='time in seconds' label2="Relative error in percentage of peak" linewidth=0.1 linecolor=red x2beg=0.0 x2end=1.0 f2num=0.0 d2num=0.5 > dip_diff_dx${dx}_rp.eps
-
-(suwind key=tracl min=101 max=101 < shot_fd_dip_rp.su | basop choice=shift shift=-$shift ; suwind key=tracl min=101 max=101 < shot_green_dip_rp.su ) | basop choice=shift shift=-0.1 | suxgraph
-
-
-# rvz
-
-(suwind key=tracl min=101 max=101 < shot_fd_dip_rvz.su | basop choice=shift shift=-$shift; suwind key=tracl min=101 max=101 < shot_green_dip_rvz.su ) | basop choice=shift shift=-0.1 | supsgraph style=normal labelsize=10 wbox=4 hbox=2 label1='time in seconds' label2="Amplitude" linewidth=0.1 linecolor=red,green d2num=6e-10 f2num=-1.2e-9 x2end=2e-9 x2beg=-1.3e-9 > dip_rvz.eps
-
-(suwind key=tracl min=101 max=101 < shot_fd_dip_rvz.su | basop choice=shift shift=-$shift; suwind key=tracl min=101 max=101 < shot_green_dip_rvz.su ) | basop choice=shift shift=-0.1 | sugain scale=-1 | supsgraph style=normal labelsize=10 wbox=2 hbox=2 label1='time in seconds' label2="Amplitude" linewidth=0.1 linecolor=red,green d2num=5e-9 f2num=9.5e-7 x2end=9.78e-7 x2beg=9.5e-7 x1beg=0.2430 x1end=0.24601 f1=0 f1num=0.243 d1num=0.002 > dip_zoom_rvz.eps
-
-suwind key=tracl min=101 max=101 < shot_fd_dip_rvz.su | basop choice=shift shift=-$shift > trace_fd.su
-suwind key=tracl min=101 max=101 < shot_green_dip_rvz.su > trace_green.su
-
-sumax < trace_green.su outpar=nep
-Mmax=`cat nep | awk '{print $1}'`
-a=`perl -e "print 100.0/$Mmax;"`
-echo $a
-
-sudiff trace_green.su trace_fd.su | basop choice=shift shift=-0.1 | sugain scale=$a | suop op=abs | supsgraph style=normal labelsize=12 wbox=4 hbox=2 label1='time in seconds' label2="Relative error in percentage of peak" linewidth=0.1 linecolor=red x2beg=0.0 x2end=1.0 f2num=0.0 d2num=0.5 > dip_diff_dx${dx}_rvz.eps
-
-(suwind key=tracl min=101 max=101 < shot_fd_dip_rvz.su | basop choice=shift shift=-$shift; suwind key=tracl min=101 max=101 < shot_green_dip_rvz.su ) | basop choice=shift shift=-0.1 | suxgraph
-
-exit;
-######### ELASTIC #######
-
-cp=2000
-cs=1400
-rho=1000
-dx=5
-dt=0.0005
-
-makemod sizex=2000 sizez=2000 dx=$dx dz=$dx cp0=$cp cs0=$cs ro0=$rho orig=-1000,0 file_base=simple.su
-
-makewave fp=15 dt=$dt file_out=wave.su nt=4096 t0=0.1
-
-
-../fdelmodc \
- file_cp=simple_cp.su ischeme=3 \
- file_cs=simple_cs.su \
- file_den=simple_ro.su \
- file_src=wave.su \
- file_rcv=shot_fd.su \
- src_type=6 \
- rec_type_vz=1 \
- rec_int_vz=2 \
- dtrcv=0.0005 \
- verbose=2 \
- tmod=0.5115 \
- dxrcv=5.0 \
- xrcv1=-500 xrcv2=500 \
- zrcv1=500 zrcv2=500 \
- xsrc=0 zsrc=1000 \
- ntaper=80 \
- left=4 right=4 bottom=4 top=4
-
-makewave fp=15 dt=0.0005 file_out=waveg.su nt=4096 t0=0.1
-
-green c=$cp cs=$cs rho=$rho file_src=waveg.su zsrc1=500 xrcv=-500,500 dxrcv=5 nt=4096 Fx=1 | suwind nt=1024 > shot_green_FxRz.su
-
- (suwind key=tracl min=51 max=51 < shot_fd_rvz.su ; suwind key=tracl min=51 max=51 < shot_green_FxRz.su) | basop choice=shift shift=-0.1 | suxgraph
-
-
-../fdelmodc \
- file_cp=simple_cp.su ischeme=3 \
- file_cs=simple_cs.su \
- file_den=simple_ro.su \
- file_src=wave.su \
- file_rcv=shot_fd_fz.su \
- src_type=7 \
- rec_type_vz=1 \
- rec_int_vz=0 \
- dtrcv=0.0005 \
- verbose=2 \
- tmod=0.5115 \
- dxrcv=5.0 \
- xrcv1=-500 xrcv2=500 \
- zrcv1=500 zrcv2=500 \
- xsrc=0 zsrc=1000 \
- ntaper=80 \
- left=4 right=4 bottom=4 top=4
-
-green c=$cp cs=$cs rho=$rho file_src=waveg.su zsrc1=500 xrcv=-500,500 dxrcv=5 nt=4096 Fz=1 | suwind nt=1024 > shot_green_FzRz.su
-
- (suwind key=tracl min=101 max=101 < shot_fd_fz_rvz.su ; suwind key=tracl min=101 max=101 < shot_green_FzRz.su) | basop choice=shift shift=-0.1 | suxgraph
-
-
-
-######### DIPOLE ELASTIC #######
-
-
-######### SURFACE WAVES #######
-
diff --git a/fdelmodc3D/demo/decompfree.scr b/fdelmodc3D/demo/decompfree.scr
deleted file mode 100755
index 070c3fe0ddcbbbfab87c5a99d43f4b15c943b50f..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/decompfree.scr
+++ /dev/null
@@ -1,66 +0,0 @@
-#!/bin/bash
-#PBS -N fdelmod
-#PBS -q verylong
-#PBS -l nodes=7
-#PBS -k eo
-#PBS -j eo
-
-which makewave
-which makemod
-
-
-cp=2000
-rho=1000
-dx=4
-dt=0.0010
-
-makemod sizex=3000 sizez=1000 dx=$dx dz=$dx cp0=$cp ro0=$rho cs0=0 \
- orig=-1500,0 file_base=freesurf.su \
- intt=def x=-1500,0,1500 z=200,200,200 poly=0 cp=2300 ro=2000 cs=0 \
- intt=def x=-1500,0,1500 z=500,500,500 poly=0 cp=2100 ro=1400 cs=0
- verbose=1
-
-makewave fp=20 dt=$dt file_out=wave.su nt=4096 t0=0.1
-
-../fdelmodc \
- file_cp=freesurf_cp.su ischeme=1 \
- file_cs=freesurf_cs.su \
- file_den=freesurf_ro.su \
- file_src=wave.su \
- file_rcv=shot_x0.su \
- src_type=7 \
- verbose=4 \
- src_orient=2 \
- src_injectionrate=1 \
- nshot=2 \
- dxshot=50 \
- rec_type_ud=1 \
- rec_int_vz=3 \
- dtrcv=0.0010 \
- rec_delay=0.1 \
- tmod=1.10 \
- dxrcv=8.0 \
- xrcv1=-1500 xrcv2=1500 \
- zrcv1=0 zrcv2=0 \
- xsrc=100 zsrc=0 \
- ntaper=300 \
- left=4 right=4 top=1 bottom=4
-
-
-#sfsuread <freesurf_cp.su tfile=tfile.rsf endian=0>model.rsf
-#sfsuread <wave.su tfile=tfile.rsf endian=0>wave.rsf
-#sfsuread <shot_x0_ru.su tfile=tfile.rsf endian=0>shotu.rsf
-#sfsuread <shot_x0_rp.su tfile=tfile.rsf endian=0>shotp.rsf
-#sfsuread <shot_x0_rd.su tfile=tfile.rsf endian=0>shotd.rsf
-#sfsuread <shot_x0_rvz.su tfile=tfile.rsf endian=0>shotv.rsf
-#
-#sfgrey<shotu.rsf title="data">shots.vpl
-#sfgrey<shotp.rsf title="data">shotp.vpl
-#sfgrey<shotv.rsf title="data">shotv.vpl
-#
-#xtpen shots.vpl
-#xtpen shotp.vpl
-#xtpen shotv.vpl
-
-
-
diff --git a/fdelmodc3D/demo/decomposition.scr b/fdelmodc3D/demo/decomposition.scr
deleted file mode 100755
index 384422de337aaa6a9f368f4c365edd56050fe288..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/decomposition.scr
+++ /dev/null
@@ -1,95 +0,0 @@
-#!/bin/bash
-#PBS -N fdelmod
-#PBS -q verylong
-#PBS -l nodes=1
-#PBS -k eo
-#PBS -j eo
-
-which makewave
-which makemod
-
-cd /Users/jan/src/OpenSource/fdelmodc/demo
-
-#makewave fp=20 dt=$dt file_out=wave.su nt=4096 t0=0.1
-#makewave w=fw fmin=0 flef=5 frig=80 fmax=100 dt=$dt file_out=wavefw.su nt=4096 t0=0.3
-
-cp=2000
-rho=1000
-dx=2.5
-dt=0.0005
-
-makemod sizex=6000 sizez=4000 dx=$dx dz=$dx cp0=$cp cs0=$cs ro0=$rho \
- orig=-3000,-1000 file_base=syncl.su \
- intt=def x=-3000,0,3000 z=250,250,250 poly=0 cp=2300 ro=5000 \
- intt=def x=-3000,-2000,-1000,-800,0,800,3000 z=650,650,700,750,900,750,600 poly=2 cp=2600 ro=1000 \
- intt=def x=-3000,0,3000 z=1390,1390,1390 poly=0 cp=2000 ro=5000 \
- intt=def x=-3000,0,3000 z=1490,1490,1490 poly=0 cp=2400 ro=2000
-
-makewave fp=20 dt=$dt file_out=wave.su nt=4096 t0=0.1
-
-# pressure Normalised decompostion
-../fdelmodc \
- file_cp=syncl_cp.su ischeme=1 \
- file_den=syncl_ro.su \
- file_src=wave.su \
- file_rcv=shot_fd_Fz_zsrc1150.su \
- nshot=1 dxshot=500 \
- src_type=7 \
- src_orient=1 \
- src_injectionrate=1 \
- rec_type_ud=1 \
- dtrcv=0.0040 \
- rec_delay=0.1 \
- verbose=2 \
- tmod=3.10 \
- dxrcv=10 \
- xrcv1=-2250 xrcv2=2250 \
- zrcv1=1150 zrcv2=1150 \
- xsrc=0 zsrc=0 \
- ntaper=50 \
- left=2 right=2 top=2 bottom=2
-
-
-supsgraph < anglerp.su hbox=2 wbox=4 style=normal \
- labelsize=10 label2='energy' label1='angle in degrees' \
- titlesize=-1 f1=0 d1=1 d1num=10.0 x1beg=1 > anglerp.eps
-
-supsimage < shot_fd_Fz_zsrc1150_rvz.su \
- wbox=2 hbox=4 titlesize=-1 labelsize=10 verbose=1 \
- label1="time [s]" label2="lateral position [m]" > shot_fd_Fz_zsrc1150_rvz.eps
-
-supsimage < shot_fd_Fz_zsrc1150_rp.su \
- wbox=2 hbox=4 titlesize=-1 labelsize=10 verbose=1 \
- label1="time [s]" label2="lateral position [m]" > shot_fd_Fz_zsrc1150_rp.eps
-
-supsimage < shot_fd_Fz_zsrc1150_ru.su \
- wbox=2 hbox=4 titlesize=-1 labelsize=10 verbose=1 \
- label1="time [s]" label2="lateral position [m]" > shot_fd_Fz_zsrc1150_ru.eps
-
-supsimage < shot_fd_Fz_zsrc1150_rd.su \
- wbox=2 hbox=4 titlesize=-1 labelsize=10 verbose=1 \
- label1="time [s]" label2="lateral position [m]" > shot_fd_Fz_zsrc1150_rd.eps
-
-# Particle Velocity Normalised decompostion
-../fdelmodc \
- file_cp=syncl_cp.su ischeme=1 \
- file_den=syncl_ro.su \
- file_src=wave.su \
- file_rcv=shot_fd_Fz_zsrc1150_vznorm.su \
- nshot=1 dxshot=500 \
- src_type=7 \
- src_orient=1 \
- src_injectionrate=1 \
- rec_type_ud=2 \
- dtrcv=0.0040 \
- rec_delay=0.1 \
- verbose=2 \
- tmod=3.10 \
- dxrcv=10 \
- xrcv1=-2250 xrcv2=2250 \
- zrcv1=1150 zrcv2=1150 \
- xsrc=0 zsrc=0 \
- ntaper=50 \
- left=2 right=2 top=2 bottom=2
-
-
diff --git a/fdelmodc3D/demo/demoStaircase.scr b/fdelmodc3D/demo/demoStaircase.scr
deleted file mode 100755
index 4fd328a3cc41f996de5639e46763e2894db0341b..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/demoStaircase.scr
+++ /dev/null
@@ -1,85 +0,0 @@
-#!/bin/bash
-
-#export PATH=$HOME/bin:$HOME/src/OpenSource/utils:$PATH:
-
-cp=2000
-rho=2500
-dx=2.5
-dt=0.0005
-
-#dx=5
-#dt=0.0005
-
-makemod sizex=5000 sizez=2500 dx=$dx dz=$dx cp0=$cp ro0=$rho \
- orig=-2500,0 file_base=tilt.su \
- intt=def x=-2500,0,2500 z=2000,1200,400 cp=2500 ro=5500
-
-makemod sizex=5000 sizez=2500 dx=$dx dz=$dx cp0=$cp ro0=$rho \
- orig=-2500,0 file_base=hom.su
-
-makewave w=g1 fp=20 dt=$dt file_out=wave.su nt=4096 t0=0.1
-
-export OMP_NUM_THREADS=2
-
-zsrc=1100
-zsrc=0
-
-../fdelmodc \
- file_cp=tilt_cp.su ischeme=1 iorder=4 \
- file_den=tilt_ro.su \
- file_src=wave.su \
- file_rcv=shot_fd.su \
- src_type=7 \
- src_orient=1 \
- src_injectionrate=0 \
- rec_type_vz=1 \
- rec_type_p=1 \
- rec_int_vz=2 \
- dtrcv=0.004 \
- rec_delay=0.1 \
- verbose=2 \
- tmod=2.01 \
- dxrcv=10.0 \
- xrcv1=-2250 xrcv2=2250 \
- zrcv1=0 zrcv2=0 \
- xsrc=0 zsrc=$zsrc \
- file_snap=snapF_$zsrc \
- tsnap1=0.1 tsnap2=2.0 dtsnap=0.05 dxsnap=5 dzsnap=5 \
- ntaper=101 \
- snapwithbnd=1 \
- left=2 right=2 top=2 bottom=2
-
-#suxmovie < snapF_${zsrc}_svz.su loop=1 clip=1e-13
-sugain scale=-1 < snapF_0_svz.su | sustrip > snapF_0_dx${dx}_svz.bin
-
-exit;
-../fdelmodc \
- file_cp=hom_cp.su ischeme=1 iorder=4 \
- file_den=hom_ro.su \
- file_src=wave.su \
- file_rcv=shoth_fd.su \
- src_type=7 \
- src_orient=1 \
- src_injectionrate=0 \
- rec_type_vz=1 \
- rec_type_p=1 \
- rec_int_vz=2 \
- dtrcv=0.004 \
- rec_delay=0.1 \
- verbose=2 \
- tmod=2.01 \
- dxrcv=10.0 \
- xrcv1=-2250 xrcv2=2250 \
- zrcv1=0 zrcv2=0 \
- xsrc=0 zsrc=$zsrc \
- file_snap=snapH_$zsrc \
- tsnap1=0.1 tsnap2=2.0 dtsnap=0.05 dxsnap=5 dzsnap=5 \
- ntaper=101 \
- snapwithbnd=1 \
- left=2 right=2 top=2 bottom=2
-
-sudiff snapF_${zsrc}_svz.su snapH_${zsrc}_svz.su > snap_svz.su
-
-sugain scale=-1 < snap_svz.su | sustrip > snap_svz.bin
-
-suxmovie < snap_svz.su loop=1 clip=1e-13
diff --git a/fdelmodc3D/demo/demo_dissipative.scr b/fdelmodc3D/demo/demo_dissipative.scr
deleted file mode 100755
index f26bca913f02b67fd5664d4cdd4172e0c68a2d3b..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/demo_dissipative.scr
+++ /dev/null
@@ -1,42 +0,0 @@
-#!/bin/bash
-
-export PATH=:$HOME/src/OpenSource/bin:$HOME/bin64:$PATH:
-
-dx=2.5
-dt=0.00050
-
-makemod sizex=6000 sizez=1250 dx=$dx dz=$dx cp0=1500 ro0=1000 \
- orig=-3000,0 file_base=tutodel.su verbose=2 \
- intt=def x=-3000,-2000,-1000,0,1000,2000,3000 z=240,130,250,300,350,380,320 poly=2 cp=1950 ro=4500 grad=0 \
- intt=def x=-3000,-2200,-1500,0,1300,2100,3000 z=620,640,590,600,740,700,600 poly=2 cp=2000 ro=1400 grad=0 \
- intt=def x=-3000,-1800,0,2200,3000 z=920,1000,900,1000,1010 poly=2 cp=2300 ro=1600 grad=0
-
-
-export OMP_NUM_THREADS=2
-makewave fp=30 dt=$dt file_out=wave.su nt=4096 t0=0.1 scale=1
-
-file_cp=tutodel_cp.su
-file_ro=tutodel_ro.su
-
-../fdelmodc \
- file_cp=$file_cp ischeme=-1 iorder=4 \
- file_den=$file_ro \
- file_src=wave.su \
- file_snap=snapinj_rate1_planevz.su \
- file_rcv=recvE.su \
- src_type=1 \
- src_injectionrate=1 \
- qr=0.0010 \
- dtrcv=$dt \
- rec_delay=0.1 \
- verbose=4 \
- tmod=2.1000 \
- xrcva=0,0,0 zrcva=100,500,900 \
- xrcv1=-3000 xrcv2=3000 zrcv1=0 zrcv2=0 dxrcv=10 \
- tsnap1=0.100 tsnap2=0.00 dtsnap=0.01 \
- xsnap1=-2000 xsnap2=2000 dxsnap=5 dzsnap=5 \
- xsrc=0 zsrc=0 \
- ntaper=500 \
- left=4 right=4 top=4 bottom=4
-
-
diff --git a/fdelmodc3D/demo/demo_multiwave.scr b/fdelmodc3D/demo/demo_multiwave.scr
deleted file mode 100755
index ca045482a1861857eabfba350dfc15101b7437f3..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/demo_multiwave.scr
+++ /dev/null
@@ -1,64 +0,0 @@
-#!/bin/bash
-#PBS -l nodes=1:ppn=2
-#PBS -N InterfModeling
-#PBS -V
-#
-
-#demo for sources with different wavelets for each source postions
-cp=2000
-rho=1000
-dx=2.5
-dt=0.0005
-
-export PATH=../../bin:$PATH
-
-makemod sizex=2000 sizez=2000 dx=$dx dz=$dx cp0=$cp ro0=$rho orig=-1000,0 file_base=simple.su
-
-times=(0.101 0.11 0.2 0.3)
-ampl=(1.0 2.0 3.0 4.0)
-xpos=(-500 0 700 900)
-zpos=(700 800 900 950)
-n=${#times[@]}
-
-rm traces.su
-
-for (( i=0; i < $n; i++ ));
-do
-
-(( gx = ${xpos[i]}*1000 ))
-(( gelev = ${zpos[i]}*-1000 ))
-echo $gx $gelev ${times[i]} ${ampl[i]}
-
-makewave fp=15 dt=$dt nt=4096 t0=${times[i]} | \
- sugain scale=${ampl[i]} | \
- sushw key=gx,gelev,scalco,scalel a=$gx,$gelev,-1000,-1000 >> traces.su
-
-done
-
-#suxgraph < traces.su
-
-######### MONOPOLE ACOUSTIC #######
-
-fdelmodc \
- file_cp=simple_cp.su ischeme=1 \
- file_den=simple_ro.su \
- file_src=traces.su \
- src_multiwav=1 \
- file_rcv=shot_fd.su \
- src_type=1 \
- rec_type_p=1 \
- rec_type_vz=0 \
- rec_int_vz=2 \
- dtrcv=0.004 \
- verbose=4 \
- tmod=4.000 \
- dxrcv=5.0 \
- xrcv1=-1000 xrcv2=1000 \
- zrcv1=0 zrcv2=0 \
- ntaper=100 \
- tsnap1=0.0 tsnap2=0.4 dtsnap=0.05 \
- left=4 right=4 bottom=4 top=4
-
-suximage < shot_fd_rp.su
-
-suxmovie < snap_sp.su loop=1 clip=100
diff --git a/fdelmodc3D/demo/demo_reciprocity.scr b/fdelmodc3D/demo/demo_reciprocity.scr
deleted file mode 100755
index 071fe4f9b735ef11e81956b7a47b06df227a4865..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/demo_reciprocity.scr
+++ /dev/null
@@ -1,257 +0,0 @@
-#!/bin/bash
-#PBS -l nodes=1:ppn=2
-#PBS -N InterfModeling
-#PBS -V
-#
-# source construction shown in Figure A2-A3-A4, 150 s.
-
-cp=2000
-rho=1000
-dx=2.5
-dt=0.00025
-injectionrate=0
-
-set -x
-if [ $injectionrate == 1 ];
-then
- scalep=0.02
- scalev=0.01
-else
- scalep=0.0004
- scalev=0.0002
-fi
-
-export OMP_NUM_THREADS=4
-
-makemod sizex=3000 sizez=3000 dx=$dx dz=$dx cp0=$cp ro0=$rho orig=-1500,-1500 file_base=layers.su \
- intt=def poly=0 x=-1500,1500 z=250,250 cp=2000 ro=3000
-
-makewave fp=15 dt=$dt file_out=wave.su nt=4096 t0=0.1 scale=0 scfft=1
-sumax < wave.su
-
-######### Pressure source #######
-
-../fdelmodc \
- file_cp=layers_cp.su ischeme=1 \
- file_den=layers_ro.su \
- file_src=wave.su \
- file_rcv=shot_monZ600.su \
- src_type=1 \
- src_orient=1 \
- src_injectionrate=$injectionrate \
- rec_type_p=1 \
- rec_int_vz=2 \
- dtrcv=0.001 \
- verbose=2 \
- rec_delay=0.1 \
- tmod=0.5 \
- dxrcv=10.0 \
- xrcv1=-1000 xrcv2=1000 \
- zrcv1=0 zrcv2=0 \
- xsrc=0 zsrc=600 \
- ntaper=100 \
- left=4 right=4 bottom=4 top=4
-
-../fdelmodc \
- file_cp=layers_cp.su ischeme=1 \
- file_den=layers_ro.su \
- file_src=wave.su \
- file_rcv=shot_monZ0.su \
- src_type=1 \
- src_orient=1 \
- src_injectionrate=$injectionrate \
- rec_type_p=1 \
- rec_int_vz=2 \
- dtrcv=0.001 \
- verbose=2 \
- rec_delay=0.1 \
- tmod=0.5 \
- dxrcv=10.0 \
- xrcv1=-1000 xrcv2=1000 \
- zrcv1=600 zrcv2=600 \
- xsrc=0 zsrc=0 \
- ntaper=100 \
- left=4 right=4 bottom=4 top=4
-
-
-######### Force Source #######
-
-../fdelmodc \
- file_cp=layers_cp.su ischeme=1 \
- file_den=layers_ro.su \
- file_src=wave.su \
- file_rcv=shot_dipZ600.su \
- src_type=7 \
- src_orient=1 \
- src_injectionrate=$injectionrate \
- rec_type_p=1 \
- rec_int_vz=2 \
- dtrcv=0.001 \
- verbose=2 \
- rec_delay=0.1 \
- tmod=0.5 \
- dxrcv=10.0 \
- xrcv1=-1000 xrcv2=1000 \
- zrcv1=0 zrcv2=0 \
- xsrc=0 zsrc=600 \
- ntaper=100 \
- left=4 right=4 bottom=4 top=4
-
-../fdelmodc \
- file_cp=layers_cp.su ischeme=1 \
- file_den=layers_ro.su \
- file_src=wave.su \
- file_rcv=shot_dipZ0.su \
- src_type=7 \
- src_orient=1 \
- src_injectionrate=$injectionrate \
- rec_type_p=1 \
- rec_int_vz=2 \
- dtrcv=0.001 \
- verbose=2 \
- rec_delay=0.1 \
- tmod=0.5 \
- dxrcv=10.0 \
- xrcv1=-1000 xrcv2=1000 \
- zrcv1=600 zrcv2=600 \
- xsrc=0 zsrc=0 \
- ntaper=100 \
- left=4 right=4 bottom=4 top=4
-
-susum shot_monZ0_rvz.su shot_dipZ600_rp.su > nep.su
-suximage < shot_monZ0_rvz.su title="shot_monZ0_rvz.su" clip=$scalev
-suximage < nep.su clip=$scalev title="difference"
-sumax < shot_monZ0_rvz.su; sumax < shot_dipZ600_rp.su
-susum shot_dipZ0_rp.su shot_monZ600_rvz.su > nep.su
-suximage < shot_dipZ0_rp.su title="shot_dipZ0_rp.su" clip=$scalep
-suximage < nep.su clip=$scalep title="difference"
-sumax < shot_dipZ0_rp.su; sumax < shot_monZ600_rvz.su
-
-
-exit
-
-# use different dx and dt to test independence of sampling on the amplitudes
-#########################
-cp=2000
-rho=1000
-dx=5
-dt=0.001
-
-export OMP_NUM_THREADS=1
-
-makemod sizex=3000 sizez=3000 dx=$dx dz=$dx cp0=$cp ro0=$rho orig=-1500,-1500 file_base=layers.su \
- intt=def poly=0 x=-1500,1500 z=250,250 cp=2000 ro=3000
-
-makewave fp=15 dt=$dt file_out=wave.su nt=4096 t0=0.1 scale=0 scfft=1
-sumax < wave.su
-
-######### MONOPOLE #######
-
-../fdelmodc \
- file_cp=layers_cp.su ischeme=1 \
- file_den=layers_ro.su \
- file_src=wave.su \
- file_rcv=shot_dxtmonZ600.su \
- src_type=1 \
- src_orient=1 \
- src_injectionrate=$injectionrate \
- rec_type_p=1 \
- rec_int_vz=2 \
- dtrcv=0.001 \
- verbose=2 \
- rec_delay=0.1 \
- tmod=0.5 \
- dxrcv=10.0 \
- xrcv1=-1000 xrcv2=1000 \
- zrcv1=0 zrcv2=0 \
- xsrc=0 zsrc=600 \
- ntaper=100 \
- left=4 right=4 bottom=4 top=4
-
-../fdelmodc \
- file_cp=layers_cp.su ischeme=1 \
- file_den=layers_ro.su \
- file_src=wave.su \
- file_rcv=shot_dxtmonZ0.su \
- src_type=1 \
- src_orient=1 \
- src_injectionrate=$injectionrate \
- rec_type_p=1 \
- rec_int_vz=2 \
- dtrcv=0.001 \
- verbose=2 \
- rec_delay=0.1 \
- tmod=0.5 \
- dxrcv=10.0 \
- xrcv1=-1000 xrcv2=1000 \
- zrcv1=600 zrcv2=600 \
- xsrc=0 zsrc=0 \
- ntaper=100 \
- left=4 right=4 bottom=4 top=4
-
-
-######### DIPOLE #######
-
-../fdelmodc \
- file_cp=layers_cp.su ischeme=1 \
- file_den=layers_ro.su \
- file_src=wave.su \
- file_rcv=shot_dxtdipZ600.su \
- src_type=7 \
- src_orient=1 \
- src_injectionrate=$injectionrate \
- rec_type_p=1 \
- rec_int_vz=2 \
- dtrcv=0.001 \
- verbose=2 \
- rec_delay=0.1 \
- tmod=0.5 \
- dxrcv=10.0 \
- xrcv1=-1000 xrcv2=1000 \
- zrcv1=0 zrcv2=0 \
- xsrc=0 zsrc=600 \
- ntaper=100 \
- left=4 right=4 bottom=4 top=4
-
-../fdelmodc \
- file_cp=layers_cp.su ischeme=1 \
- file_den=layers_ro.su \
- file_src=wave.su \
- file_rcv=shot_dxtdipZ0.su \
- src_type=7 \
- src_orient=1 \
- src_injectionrate=$injectionrate \
- rec_type_p=1 \
- rec_int_vz=2 \
- dtrcv=0.001 \
- verbose=2 \
- rec_delay=0.1 \
- tmod=0.5 \
- dxrcv=10.0 \
- xrcv1=-1000 xrcv2=1000 \
- zrcv1=600 zrcv2=600 \
- xsrc=0 zsrc=0 \
- ntaper=100 \
- left=4 right=4 bottom=4 top=4
-
-set -x
-dx=5
-dt=0.001
-echo "maximum with dx=$dx dt=$dt"
-sumax < shot_dxtmonZ0_rvz.su; sumax < shot_dxtdipZ600_rp.su
-dx=2.5
-dt=0.00025
-echo "maximum with dx=$dx dt=$dt"
-sumax < shot_monZ0_rvz.su; sumax < shot_dipZ600_rp.su
-
-dx=5
-dt=0.001
-echo "maximum with dx=$dx dt=$dt"
-sumax < shot_dxtdipZ0_rp.su; sumax < shot_dxtmonZ600_rvz.su
-dx=2.5
-dt=0.00025
-echo "maximum with dx=$dx dt=$dt"
-sumax < shot_dipZ0_rp.su; sumax < shot_monZ600_rvz.su
-
-exit;
-
diff --git a/fdelmodc3D/demo/demo_snapshots.scr b/fdelmodc3D/demo/demo_snapshots.scr
deleted file mode 100755
index 5045197d18118f2ead1315f7d8272bc5ceff86cc..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/demo_snapshots.scr
+++ /dev/null
@@ -1,40 +0,0 @@
-#!/bin/bash
-
-export PATH=:$HOME/src/OpenSource/bin:$HOME/bin64:$PATH:
-
-dx=1.0
-dt=0.00010
-
-makemod sizex=6000 sizez=1250 dx=$dx dz=$dx cp0=1500 ro0=1000 \
- orig=-3000,0 file_base=tutodel.su verbose=2 \
- intt=def x=-3000,-2000,-1000,0,1000,2000,3000 z=240,130,250,300,350,380,320 poly=2 cp=1950 ro=4500 grad=0 \
- intt=def x=-3000,-2200,-1500,0,1300,2100,3000 z=620,640,590,600,740,700,600 poly=2 cp=2000 ro=1400 grad=0 \
- intt=def x=-3000,-1800,0,2200,3000 z=920,1000,900,1000,1010 poly=2 cp=2300 ro=1600 grad=0
-
-
-export OMP_NUM_THREADS=2
-makewave fp=30 dt=$dt file_out=wave.su nt=4096 t0=0.1 scale=1
-
-file_cp=tutodel_cp.su
-file_ro=tutodel_ro.su
-
-fdelmodc \
- file_cp=$file_cp ischeme=1 iorder=4 \
- file_den=$file_ro \
- file_src=wave.su \
- file_snap=snapinj_rate1_planevz.su \
- src_type=1 \
- src_injectionrate=1 \
- dtrcv=$dt \
- rec_delay=0.1 \
- verbose=2 \
- tmod=1.1000 \
- tsnap1=0.100 tsnap2=1.10 dtsnap=0.01 \
- xsnap1=-2000 xsnap2=2000 dxsnap=5 dzsnap=5 \
- xsrc=0 zsrc=800 \
- ntaper=500 \
- left=4 right=4 top=4 bottom=4
-
-
-suwind key=gx min=-2000000 max=2000000 < tutodel_cp.su | convert saminc=5 trinc=5 | sustrip > tutodel_cp.bin
-
diff --git a/fdelmodc3D/demo/eps_for_manual.scr b/fdelmodc3D/demo/eps_for_manual.scr
deleted file mode 100755
index 7dde0dc45f2ddef98433171a93767bfaf8b70854..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/eps_for_manual.scr
+++ /dev/null
@@ -1,52 +0,0 @@
-#!/bin/bash
-
-#first run this script to generate the output which contains the source signatures
-./fdelmodc_rand.scr
-
-#generate the pictures used in the manual
-supsgraph < G2.su hbox=2 wbox=4 style=normal \
- labelsize=10 label2='amplitude' label1='time' \
- titlesize=-1 d1num=1 d1num=0.05 x1end=0.2 > G2_time.eps
-
-sufft < G2.su | suamp| supsgraph hbox=2 wbox=4 style=normal \
- labelsize=10 label2='amplitude' label1='frequency' x1end=100 \
- titlesize=-1 x2end=40 d1num=10 > G2_ampl.eps
-
-supswigp < src_nwav.su \
- labelsize=10 label1='time' label2='source number' x1end=6 \
- d2=1 d2num=1 hbox=4 wbox=6 fill=0 \
- titlesize=-1 > src_nwav.eps
-
-suwind < src_nwav.su key=tracl min=11 max=11 | \
- supsgraph hbox=2 wbox=4 style=normal \
- labelsize=10 label2='amplitude' label1='time' \
- titlesize=-1 d1num=1.0 > src11_wiggle.eps
-
-suwind < src_nwav.su key=tracl min=11 max=11 | \
- supsgraph hbox=2 wbox=4 style=normal \
- labelsize=10 label2='amplitude' label1='time' \
- titlesize=-1 x1end=0.05 > src11_wiggle_zbeg.eps
-
-suwind < src_nwav.su key=tracl min=11 max=11 | \
- supsgraph hbox=2 wbox=4 style=normal \
- labelsize=10 label2='amplitude' label1='time' \
- titlesize=-1 x1beg=3.65 x1end=3.70 > src11_wiggle_zend.eps
-
-suwind < src_nwav.su key=tracl min=11 max=11 | \
- sufft | suamp| supsgraph hbox=2 wbox=4 style=normal \
- labelsize=10 label2='amplitude' label1='frequency' \
- titlesize=-1 x1end=100 d1num=10 > src11_ampl.eps
-
-fconv file_in1=src_nwav.su auto=1 shift=1 mode=cor1 | \
- sugain qbal=1 | \
- supswigp x1beg=-1 x1end=1 d2num=1 hbox=4 wbox=6 \
- labelsize=10 label2='source number' label1='time (s)' \
- titlesize=-1 fill=0 > src_nwav_autoCorr_Norm.eps
-
-#type of tapers
-supsgraph < tapx.su hbox=2 wbox=4 style=normal \
- labelsize=10 label2='amplitude' label1='grid points' \
- d1=1 f1=1 f1num=1 x2beg=0.0 \
- linecolor=blue,red,green,yellow,voilet,maroon,brown,sepia,limegreen,skyblue,blueviolet,orangered,goldenrod,orchid,wildstrawberry,royalpurple,pinegreen,bluegreen,magenta,redorange > tapers_0.1.eps
-
-exit;
diff --git a/fdelmodc3D/demo/fdelmodc_acoustic_slanted_cable.sh b/fdelmodc3D/demo/fdelmodc_acoustic_slanted_cable.sh
deleted file mode 100755
index 57e02bd0b21b5d6912639db210c74f231de4851c..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/fdelmodc_acoustic_slanted_cable.sh
+++ /dev/null
@@ -1,168 +0,0 @@
-#!/bin/bash
-#PBS -N fdelmod
-#PBS -q verylong
-#PBS -l nodes=1
-#PBS -k eo
-#PBS -j eo
-
-set -x
-#-----------------------------------------------------------------------------
-# Modeling of acoustic response of marine-type acquisition
-# where a horizontal and a slanted cable is modeled simultaneously
-#
-# Author: Eric Verschuur, Delft University of Technology
-# Date : July 2013
-#-----------------------------------------------------------------------------
-
-#-----------------------------------------------------------------------------
-# define the grid size of the modeling
-# based on the grid, the other parameters can be define
-#-----------------------------------------------------------------------------
-
-grid=5
-grid=10
-
-#-----------------------------------------------------------------------------
-# define the source wavelet:
-# for gridsize 10 m use fp=9.7 (such that fmax<30)
-# for gridsize 5 m use fp=22 (such that fmax<60) and
-#-----------------------------------------------------------------------------
-
-if [ $grid -eq 10 ]; then
- dt=0.00020
- fp=9.7
- vmax=3000
-fi
-if [ $grid -eq 5 ]; then
- dt=0.00010
- fp=22
- vmax=3000
-fi
-
-makewave file_out=wavelet.su dt=$dt nt=1024 fp=$fp shift=1 w=g2 verbose=1
-
-#-----------------------------------------------------------------------------
-# define the velocity model; in this case a flat water bottom and
-# a curved reflector below the water bottom
-#-----------------------------------------------------------------------------
-
-makemod file_base=model.su \
- cp0=1500 ro0=1400 sizex=5000 sizez=1200 \
- dx=$grid dz=$grid orig=0,0 \
- \
- x=0,5000 z=500,500 \
- intt=def poly=2 cp=2000 ro=1800 \
- \
- x=0,2000,5000 z=1000,800,1000 \
- intt=def poly=2 cp=$vmax ro=2300 \
- \
- verbose=1
-
-# display the models (velocity and density)
-
-filecp=model_cp.su
-filero=model_ro.su
-
-suximage < $filecp wbox=800 hbox=300 title="Vp model" xbox=0 legend=1 &
-suximage < $filero wbox=800 hbox=300 title="Rho model" xbox=800 legend=1 &
-
-sleep 1
-
-#-----------------------------------------------------------------------------
-# define the source location and make receivers dependent on the source
-# define length of cable and the vertical slant of the cable, which
-# is defined as the relative depth at the end of the cable
-# the receiver spacing is taken as twice the FD grid size
-#-----------------------------------------------------------------------------
-
-xsrc=500
-cable=4000
-slant=200
-
-xrcv1=`dadd $xsrc 103`
-xrcv2=`dadd $xrcv1 $cable`
-zrcv1=`dadd $grid 3`
-zrcv2=`dadd $zrcv1 $slant`
-zrcv2=`dnint $zrcv2`
-dxrcv=`dmul $grid 2`
-xrcv1=`dnint $xrcv1`
-xrcv2=`dnint $xrcv2`
-dxrcv=`dnint $dxrcv`
-
-#-----------------------------------------------------------------------------
-# generate a list of coorindates for the slanted cable
-# finally, these coordinates are stored in the file rcv.par
-#-----------------------------------------------------------------------------
-
-xrcv=$xrcv1
-zrcv=$zrcv1
-dzrcv=`echo $xrcv1 $xrcv2 $dxrcv $slant | awk '{nx=int(1.5+($2-$1)/$3);print ($4/(nx-1))}'`
-/bin/rm rcv.list
-while [ $xrcv -le $xrcv2 ]
-do
- echo "$xrcv $zrcv" >> rcv.list
- xrcv=`expr $xrcv + $dxrcv`
- zrcv=`dadd $zrcv $dzrcv`
-done
-mkparfile < rcv.list string1=xrcva string2=zrcva > rcv.par
-/bin/rm rcv.list
-
-#-----------------------------------------------------------------------------
-# now do the actual modeling with free surface and monopole src/rcv
-# we use both the regular rcv defintions for a horizontal cable and the
-# extended option with xrcva,zrcva for the slanted cable locations
-#-----------------------------------------------------------------------------
-
-../fdelmodc \
- file_cp=$filecp file_den=$filero \
- ischeme=1 \
- file_src=wavelet.su verbose=4 \
- file_rcv=rec.su \
- file_snap=snap.su \
- xrcv1=$xrcv1 xrcv2=$xrcv2 dxrcv=$dxrcv \
- zrcv1=$zrcv1 zrcv2=$zrcv1 \
- par=rcv.par \
- sinkdepth=0 \
- rec_type_p=1 rec_type_vz=1 rec_int_vz=3 \
- dtrcv=0.004 \
- src_type=1 src_orient=1 xsrc=$xsrc zsrc=$grid nshot=1 \
- tsnap1=0.1 tsnap2=3.0 dtsnap=0.1 \
- sna_type_p=1 sna_type_vz=0 \
- top=1 bottom=4 left=4 right=4 ntaper=100 tapfact=0.3 \
- tmod=4.0 nzmax=300 nxmax=300
-
-#-----------------------------------------------------------------------------
-# show a movie of the wavefield snapshots
-#-----------------------------------------------------------------------------
-
-suxmovie < snap_sp.su clip=10 width=800 height=300 loop=1 \
- title="Shot at x=$xsrc - P comp. - snapshot at t=%f s." sleep=200000 fframe=0.1 dframe=0.1 &
-
-#-----------------------------------------------------------------------------
-# the 1st part of the receivers is the slanted cable, the 2nd part the flat one
-#-----------------------------------------------------------------------------
-
-nxtot=`surange < rec_rp.su | head -1 | awk '{print $1}'`
-nx=`ddiv $nxtot 2`
-nx=`dnint $nx`
-
-# split into two files; on-the-fly repair dt from 3999 to 4000 us
-
-sushw key=fldr < rec_rp.su a=1 c=1 j=$nx | \
-suchw key1=dt key2=dt a=1 d=10 | \
-suchw key1=dt key2=dt b=10 | \
-sushw key=ntr a=0 | \
-file_distribute file_base=shot verbose=1
-
-suximage < shot1.su wbox=800 hbox=600 xbox=0 ybox=500 perc=99 \
- title="Shot record xsrc=$xsrc - slanted (x1,z1)=$xrcv1,$zrcv1 (x2,z2)=$xrcv2,$zrcv2" &
-
-suximage < shot2.su wbox=800 hbox=600 xbox=800 ybox=500 perc=99 \
- title="Shot record xsrc=$xsrc - flat cable (x1,z1)=$xrcv1,$zrcv1 (x2,z2)=$xrcv2,$zrcv1" &
-
-#-----------------------------------------------------------------------------
-# end of demo, remove some tmp files
-#-----------------------------------------------------------------------------
-
-sleep 1
-#/bin/rm rcv.par
diff --git a/fdelmodc3D/demo/fdelmodc_circ.scr b/fdelmodc3D/demo/fdelmodc_circ.scr
deleted file mode 100755
index 8cecff0a9af7450893a2317c4378de36111b8703..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/fdelmodc_circ.scr
+++ /dev/null
@@ -1,78 +0,0 @@
-#!/bin/bash
-#PBS -N fdelmod
-#PBS -q verylong
-#PBS -l nodes=1
-#PBS -k eo
-#PBS -j eo
-
-# receivers are placed on a circle
-
-export PATH=../../utils:$PATH:
-
-makewave file_out=wavelet.su dt=0.0020 nt=1024 fp=13 shift=1 w=g2 verbose=1
-
-file_rcv=circle.su
-makemod file_base=model.su \
- cp0=2500 ro0=1000 sizex=7000 sizez=7000 dx=10 dz=10 orig=-3500,-3500 \
- intt=elipse var=50,50 x=0 z=0 cp=1955 ro=500 verbose=1
-
-
-#makemod file_base=model.su \
-# cp0=1500 ro0=1000 sizex=5000 sizez=5000 dx=2 dz=2 orig=0,0 \
-# intt=def x=2490,2494,2498,2502,2506,2510 z=2500,2498,2494,2498,2492,2500 cp=400 ro=20 \
-# intt=def x=2490,2492,2496,2500,2504,2510 z=2500,2506,2504,2508,2502,2500 cp=1500 ro=1000 \
-# verbose=1
-
-
-export filecp=model_cp.su
-export filero=model_ro.su
-
-export OMP_NUM_THREADS=1
-
-set -x
-../fdelmodc \
- file_cp=$filecp file_den=$filero \
- ischeme=1 \
- file_src=wavelet.su verbose=5 \
- file_rcv=$file_rcv \
- file_snap=snap.su \
- arcv=1200 rrcv=2800 oxrcv=0 ozrcv=0 dphi=2.0 \
- rec_type_vx=1 rec_type_p=1 rec_int_vx=3 \
- dtrcv=0.004 \
- xsrc=-1600 zsrc=0 nshot=1 nsrc=1 \
- src_type=1 tmod=3.0 \
- ntaper=190 \
- left=4 right=4 bottom=4 top=4
-
-exit
-
-#for exptype in circle square doodle ;
-for exptype in circle ;
-do
-for rectype in rvx rvz rp ;
-do
- file_rcv=${exptype}_$rectype.su
- echo $file_rcv
- supsimage < ${exptype}_$rectype.su hbox=4 wbox=3 titlesize=-1 labelsize=10 titlesize=-1 \
- perc=99 label1="time [s]" f2=0 d2=2 label2="rotation in degrees" > ${exptype}_$rectype.eps
-
-done
-done
-
-
-supsimage < model_cp.su \
- wbox=4 hbox=4 titlesize=-1 labelsize=10 verbose=1 \
-
-
-supsimage < SrcRecPositions.su \
- wbox=4 hbox=4 titlesize=-1 labelsize=10 verbose=1 \
- d2=3 f2=0 wclip=-1 bclip=1 \
- gabel1="depth [m]" label2="lateral position [m]" > SrcRecCircle.eps
-
-suop2 model_cp.su SrcRecPositions.su w1=1 w2=2000 op=sum | \
- supsimage wclip=1400 bclip=2000 \
- wbox=4 hbox=4 titlesize=-1 labelsize=10 verbose=1 \
- d2=3 f2=0 wrgb=1.0,0,0 grgb=0,1.0,0 brgb=0,0,1.0 bps=24 \
- label1="depth [m]" label2="lateral position [m]" > model_plane_src.eps
-
-
diff --git a/fdelmodc3D/demo/fdelmodc_circ_medium.scr b/fdelmodc3D/demo/fdelmodc_circ_medium.scr
deleted file mode 100755
index 390e4d53d42324a3cf123d26423e7e573d43472b..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/fdelmodc_circ_medium.scr
+++ /dev/null
@@ -1,93 +0,0 @@
-#!/bin/bash
-#PBS -N fdelmod
-#PBS -q verylong
-#PBS -l nodes=1
-#PBS -k eo
-#PBS -j eo
-
-# receivers are placed on a circle
-
-export PATH=../../bin:$PATH:
-
-dt=0.0008
-makewave file_out=wave.su dt=$dt nt=1024 fp=25 shift=1 w=g2 verbose=1
-#makewave w=fw fmin=0 flef=6 frig=89 fmax=95 dt=$dt file_out=wavefw.su nt=16384 t0=0.3 scale=0 scfft=1
-#sufft < wavefw.su | suamp | sugain scale=0.0001 | suxgraph style=normal
-
-makemod file_base=model.su \
- cp0=1500 ro0=1000 sizex=4000 sizez=4000 dx=2 dz=2 orig=-2000,-2000 \
- intt=elipse var=1000,1000 x=0 z=0 cp=2000 ro=1000 verbose=1
-
-makemod file_base=hom.su \
- cp0=1500 ro0=1000 sizex=4000 sizez=4000 dx=2 dz=2 orig=-2000,-2000 verbose=1
-
-export filecp=model_cp.su
-export filero=model_ro.su
-file_rcv=circle.su
-
-export OMP_NUM_THREADS=2
-
-set -x
-#../fdelmodc \
- file_cp=$filecp file_den=$filero \
- ischeme=1 \
- file_src=wavefw.su verbose=2 \
- file_rcv=$file_rcv \
- rec_type_vz=0 rec_type_p=1 \
- xrcv1=-2000 xrcv2=2000 zrcv1=-2000 zrcv2=-2000 \
- dxrcv=10 \
- dtrcv=0.004 \
- xsrc=0 zsrc=-2000 nshot=1 nsrc=1 \
- src_type=1 tmod=1.020 \
- ntaper=100 \
- left=2 right=2 bottom=2 top=2
-
-export filecp=hom_cp.su
-export filero=hom_ro.su
-file_rcv=hom.su
-
-fdelmodc \
- file_cp=$filecp file_den=$filero \
- ischeme=1 \
- src_type=7 \
- file_src=wave.su verbose=2 \
- file_rcv=$file_rcv \
- rec_type_vz=1 rec_type_p=1 \
- rrcv=500 dphi=1 \
- dtrcv=0.004 \
- xsrc=0 zsrc=0 nshot=1 nsrc=1 \
- tmod=1.020 \
- ntaper=100 \
- left=2 right=2 bottom=2 top=2
-
-exit
-
-#for exptype in circle square doodle ;
-for exptype in circle ;
-do
-for rectype in rvx rvz rp ;
-do
- file_rcv=${exptype}_$rectype.su
- echo $file_rcv
- supsimage < ${exptype}_$rectype.su hbox=4 wbox=3 titlesize=-1 labelsize=10 titlesize=-1 \
- perc=99 label1="time [s]" f2=0 d2=2 label2="rotation in degrees" > ${exptype}_$rectype.eps
-
-done
-done
-
-supsimage < model_cp.su \
- wbox=4 hbox=4 titlesize=-1 labelsize=10 verbose=1 \
- d2=3 f2=0 wrgb=1.0,0,0 grgb=0,1.0,0 brgb=0,0,1.0 bps=24 \
- label1="depth [m]" label2="lateral position [m]" > model_plane.eps
-
-supsimage < SrcRecPositions.su \
- wbox=4 hbox=4 titlesize=-1 labelsize=10 verbose=1 \
- d2=3 f2=0 wclip=-1 bclip=1 \
- gabel1="depth [m]" label2="lateral position [m]" > SrcRecCircle.eps
-
-suop2 model_cp.su SrcRecPositions.su w1=1 w2=2000 op=sum | \
- supsimage wclip=1400 bclip=2000 \
- wbox=4 hbox=4 titlesize=-1 labelsize=10 verbose=1 \
- d2=3 f2=0 wrgb=1.0,0,0 grgb=0,1.0,0 brgb=0,0,1.0 bps=24 \
- label1="depth [m]" label2="lateral position [m]" > model_plane_src.eps
-
diff --git a/fdelmodc3D/demo/fdelmodc_doublecouple.scr b/fdelmodc3D/demo/fdelmodc_doublecouple.scr
deleted file mode 100755
index ffea7d400c08043b744be9e5f73fa048f0f9d309..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/fdelmodc_doublecouple.scr
+++ /dev/null
@@ -1,59 +0,0 @@
-#!/bin/bash
-#PBS -N fdelmodc
-#PBS -k eo
-#PBS -j eo
-#
-# Models plane wave at depth to receivers at the surface, including snapshots
-export PATH=../../utils:$PATH:
-
-makewave file_out=wavelet.su dt=0.001 nt=1024 fp=13 shift=1 w=g2 verbose=1
-
-makemod file_base=model.su \
- cp0=1500 ro0=1000 cs0=0 sizex=2100 sizez=2100 \
- dx=3 dz=3 orig=0,0 \
- verbose=4
-
-export filecp=model_cp.su
-export filecs=model_cs.su
-export filero=model_ro.su
-
-export OMP_NUM_THREADS=1
-
-../fdelmodc \
- file_cp=$filecp file_den=$filero \
- ischeme=5 \
- src_type=9 dip=0 tmod=2.0 \
- file_src=wavelet.su verbose=2 \
- file_rcv=rec4S.su \
- file_snap=snap4S0.su \
- xrcv1=0 xrcv2=2100 dxrcv=15 \
- zrcv1=400 zrcv2=400 \
- rec_type_vx=1 rec_int_vx=1 \
- dtrcv=0.004 \
- xsrc=1050 zsrc=1050 \
- ntaper=120 sna_type_pp=1 sna_type_ss=1 sna_type_p=1 sna_type_txx=1 sna_type_tzz=1 \
- left=4 right=4 bottom=4 top=4 \
- tsnap1=0.1 tsnap2=3.0 dtsnap=0.01
-
-
-exit;
-../fdelmodc \
- file_cp=$filecp file_cs=$filecs file_den=$filero \
- ischeme=3 \
- file_src=wavelet.su verbose=4 \
- file_rcv=recP.su \
- file_snap=snapP.su \
- xrcv1=0 xrcv2=2100 dxrcv=15 \
- zrcv1=400 zrcv2=400 \
- rec_type_vx=1 rec_type_pp=1 rec_type_ss=1 rec_int_vx=1 \
- dtrcv=0.004 \
- xsrc=1000 zsrc=1700 \
- src_type=8 src_orient=1 tmod=2.0 \
- ntaper=120 \
- left=4 right=4 bottom=4 top=4 \
- tsnap1=0.1 tsnap2=3.0 dtsnap=0.1 \
- sna_type_ss=1 sna_type_pp=1
-
-
-exit;
-
diff --git a/fdelmodc3D/demo/fdelmodc_elastic_potentialS.scr b/fdelmodc3D/demo/fdelmodc_elastic_potentialS.scr
deleted file mode 100755
index 4c7bb8a5236e88ba3b96ed3e2a3b30287284b4de..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/fdelmodc_elastic_potentialS.scr
+++ /dev/null
@@ -1,63 +0,0 @@
-#!/bin/bash
-#PBS -N fdelmodc
-#PBS -k eo
-#PBS -j eo
-#
-# Models plane wave at depth to receivers at the surface, including snapshots
-export PATH=../../utils:$PATH:
-
-makewave file_out=wavelet.su dt=0.001 nt=1024 fp=13 shift=1 w=g2 verbose=1
-
-makemod file_base=model.su \
- cp0=1500 ro0=1000 cs0=600 sizex=2100 sizez=2100 \
- dx=3 dz=3 orig=0,0 \
- intt=def poly=0 cp=1650 ro=2000 cs=1000 \
- x=0,2100 z=500,500 gradcp=0.5 grad=100 \
- intt=def poly=1 cp=1800 ro=2500 cs=1200 \
- x=0,800,1200,2100 z=900,1400,1400,1200 gradcp=0 grad=0 \
- verbose=4
-
-export filecp=model_cp.su
-export filecs=model_cs.su
-export filero=model_ro.su
-
-export OMP_NUM_THREADS=1
-
-../fdelmodc \
- file_cp=$filecp file_cs=$filecs file_den=$filero \
- ischeme=1 \
- src_type=1 src_orient=1 tmod=2.0 \
- file_src=wavelet.su verbose=2 \
- file_rcv=recS.su \
- file_snap=snapS.su \
- xrcv1=0 xrcv2=2100 dxrcv=15 \
- zrcv1=400 zrcv2=400 \
- rec_type_vx=1 rec_type_pp=1 rec_type_ss=1 rec_int_vx=1 \
- dtrcv=0.004 \
- xsrc=1000 zsrc=1700 \
- ntaper=120 \
- left=4 right=4 bottom=4 top=4 \
- tsnap1=0.1 tsnap2=3.0 dtsnap=0.1 \
- sna_type_ss=1 sna_type_pp=1
-
-exit;
-../fdelmodc \
- file_cp=$filecp file_cs=$filecs file_den=$filero \
- ischeme=3 \
- file_src=wavelet.su verbose=4 \
- file_rcv=recP.su \
- file_snap=snapP.su \
- xrcv1=0 xrcv2=2100 dxrcv=15 \
- zrcv1=400 zrcv2=400 \
- rec_type_vx=1 rec_type_pp=1 rec_type_ss=1 rec_int_vx=1 \
- dtrcv=0.004 \
- xsrc=1000 zsrc=1700 \
- src_type=8 src_orient=1 tmod=2.0 \
- ntaper=120 \
- left=4 right=4 bottom=4 top=4 \
- tsnap1=0.1 tsnap2=3.0 dtsnap=0.1 \
- sna_type_ss=1 sna_type_pp=1
-
-
-exit;
-
diff --git a/fdelmodc3D/demo/fdelmodc_fault.scr b/fdelmodc3D/demo/fdelmodc_fault.scr
deleted file mode 100755
index e2d06417aeb42c0346951b658ce69b080d896303..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/fdelmodc_fault.scr
+++ /dev/null
@@ -1,48 +0,0 @@
-#!/bin/bash
-#PBS -l nodes=1
-#PBS -N InterfModeling
-#PBS -q fourweeks
-#PBS -V
-#
-export PATH=$HOME/../thorbcke/src/OpenSource/bin:$PATH
-
-dt=0.0015
-fmax=45
-cp=2000
-
-makemod sizex=6000 sizez=2000 dx=5 dz=5 cp0=$cp ro0=1000 file_base=fault.su orig=0,0 \
- intt=def poly=2 x=0,600,1000,2000,4000,5000 \
- z=550,550,550,300,300,500 cp=$cp ro=2000 \
- intt=def poly=0 x=5000,6000 z=300,200 cp=$cp ro=1500 \
- intt=def poly=0 x=0,2500 z=900,900 cp=$cp ro=2200 \
- intt=def poly=0 x=2000,5000 z=1000,300 cp=$cp ro=1500 \
- intt=def poly=0 x=2000,3000,6000 z=1000,770,770 cp=$cp ro=1800 \
- intt=def poly=0 x=2000,6000 z=1000,1000 cp=$cp ro=2200 \
- intt=def poly=0 x=0,6000 z=1400,1400 cp=$cp ro=2400 \
-
-suximage cmap=hsv4 < fault_ro.su &
-
-makewave w=g2 fmax=45 t0=0.10 dt=$dt nt=4096 db=-40 file_out=G2.su verbose=1
-
-../fdelmodc \
- file_cp=fault_cp.su ischeme=1 \
- file_den=fault_ro.su \
- file_rcv=shots.su \
- file_src=G2.su \
- src_type=1 \
- dtrcv=0.003 \
- verbose=1 \
- tmod=3.104 \
- nshot=101 \
- dxshot=60 \
- rec_delay=0.1 \
- rec_type_vz=0 \
- dxrcv=60.0 \
- xsrc=0 \
- zsrc=0 \
- ntaper=101 \
- left=2 right=2 top=2 bottom=2
-
-suwind key=offset min=0 max=0 < shots_rp.su | suzero itmax=30 | suximage x1end=2
-
-
diff --git a/fdelmodc3D/demo/fdelmodc_glacier.scr b/fdelmodc3D/demo/fdelmodc_glacier.scr
deleted file mode 100755
index 04e3158019c8b9733ed90c5612b4d8961d6834a9..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/fdelmodc_glacier.scr
+++ /dev/null
@@ -1,69 +0,0 @@
-#!/bin/bash
-#
-#OK:
-dt=0.0001
-dx=0.5
-cp=1665
-
-makewave file_out=wavelet.su dt=$dt nt=1024 fp=100 shift=1 w=g2 verbose=1
-
-makemod file_base=modelHom.su \
- cp0=$cp ro0=1000 sizex=250 sizez=125 \
- dx=$dx dz=$dx orig=-25,-25 \
-
-makemod file_base=model.su \
- cp0=$cp ro0=1000 sizex=250 sizez=125 \
- intt=def x=60,90 z=-25,-25 cp=1500 ro=1000 \
- dx=$dx dz=$dx orig=-25,-25 \
-
-export DYLD_LIBRARY_PATH=/opt/intel/Compiler/11.1/046/Frameworks/mkl/lib/universal/:$DYLD_LIBRARY_PATH:/usr/local/cuda/lib:
-
-which smooth
-smooth nxsm=7 niter=5 < model_cp.su > nep.su
-exit
-mv nep.su model_cp.su
-
-export OMP_NUM_THREADS=2
-
-for model in _
-do
-export filecp=model${model}cp.su
-export filero=model${model}ro.su
-
-xsrc=0
-zsrc=0
-
-../fdelmodc \
- file_cp=$filecp file_den=$filero \
- ischeme=1 \
- file_src=wavelet.su verbose=1 \
- file_rcv=shot${model}x${xsrc}_z${zsrc}.su \
- xrcv1=50,100,150 xrcv2=50,100,150 dzrcv=5,1.5,5 dxrcv=0,0,0 \
- zrcv1=0,37,0 zrcv2=75,40,75 \
- rec_type_vz=1 rec_type_vx=0 rec_int_vz=2 \
- dtrcv=0.0005 \
- xsrc=$xsrc zsrc=$zsrc nshot=76 dzshot=1 dxshot=0 \
- src_type=1 tmod=0.3 \
- npml=100 \
- left=2 right=2 bottom=2 top=2 \
-
-xsrc=200
-zsrc=0
-
-../fdelmodc \
- file_cp=$filecp file_den=$filero \
- ischeme=1 \
- file_src=wavelet.su verbose=1 \
- file_rcv=shot${model}x${xsrc}_z${zsrc}.su \
- xrcv1=50,100,150 xrcv2=50,100,150 dzrcv=5,1.5,5 dxrcv=0,0,0 \
- zrcv1=0,37,0 zrcv2=75,40,75 \
- rec_type_vz=1 rec_type_vx=0 rec_int_vz=2 \
- dtrcv=0.0005 \
- xsrc=$xsrc zsrc=$zsrc nshot=76 dzshot=1 dxshot=0 \
- src_type=1 tmod=0.3 \
- npml=100 \
- left=2 right=2 bottom=2 top=2 \
-
-done
-
-
diff --git a/fdelmodc3D/demo/fdelmodc_jurg.scr b/fdelmodc3D/demo/fdelmodc_jurg.scr
deleted file mode 100755
index 53735370fa39abc3a1c580f575652a9416241dd7..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/fdelmodc_jurg.scr
+++ /dev/null
@@ -1,55 +0,0 @@
-#!/bin/bash
-#PBS -l nodes=1
-#PBS -N InterfModeling
-#PBS -q fourweeks
-#PBS -V
-#
-# same as fdelmodc_topography, but with source and receivers on topography of sea-bottom
-
-export PATH=../../bin:$PATH
-
-dt=0.00005
-ntap=120
-
-makemod sizex=160 sizez=10 dx=0.1 dz=0.1 cp0=1000 ro0=1000 cs0=200 file_base=model.su \
- orig=0,0 verbose=1 \
- intt=def x=0,160 z=2,2 cp=1000 cs=300 ro=1000 \
- intt=def x=0,160 z=5,5 cp=1000 cs=400 ro=1000
-
-
-makewave w=g2 fmax=230 t0=0.10 dt=$dt nt=4096 db=-40 file_out=G2.su verbose=1
-
-#extendModel file_in=model_ro.su nafter=$ntap nbefore=$ntap nabove=0 nbelow=$ntap > vel2_edge_ro.su
-#extendModel file_in=model_cp.su nafter=$ntap nbefore=$ntap nabove=0 nbelow=$ntap > vel2_edge_cp.su
-#extendModel file_in=model_cs.su nafter=$ntap nbefore=$ntap nabove=0 nbelow=$ntap > vel2_edge_cs.su
-
-../fdelmodc \
- ischeme=3 \
- src_type=2 \
- file_cp=vel2_edge_cp.su \
- file_cs=vel2_edge_cs.su \
- file_den=vel2_edge_ro.su \
- file_rcv=shot_xl.su \
- file_src=G2.su \
- dtrcv=0.0005 \
- rec_type_vx=1 \
- rec_type_vz=0 \
- rec_type_tzz=0 \
- rec_type_p=0 \
- xsrc=80 \
- zsrc=0 \
- verbose=4 \
- tmod=0.60 \
- dxrcv=0.5 \
- zrcv1=0 \
- zrcv2=0 \
- xrcv1=0 \
- xrcv2=160 \
- rec_delay=0.1 \
- src_random=0 \
- wav_random=0 \
- dipsrc=1 \
- ntaper=$ntap \
- left=4 right=4 bottom=4 top=1
-
-
diff --git a/fdelmodc3D/demo/fdelmodc_multishot.scr b/fdelmodc3D/demo/fdelmodc_multishot.scr
deleted file mode 100755
index f569c47e601fcc0308d11d57538da7254df4c684..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/fdelmodc_multishot.scr
+++ /dev/null
@@ -1,66 +0,0 @@
-#!/bin/bash
-#PBS -N fdelmod
-#PBS -q verylong
-#PBS -l nodes=1
-#PBS -k eo
-#PBS -j eo
-#
-# illustrates source and receiver positions, used in Figure 10 of the manual
-
-export PATH=../../utils:$PATH:
-
-#OK:
-dt=0.0005
-dx=5
-ntaper=10
-
-makewave file_out=wavelet.su dt=$dt nt=1024 shift=1 fmax=10 verbose=1
-
-# build a model with a steep salt-like flank of the side
-./model_flank.scr
-
-export filecp=grad_salt.su
-export filero=salt_ro.su
-
-#model 50 shots for sources on a horizontal line left from the flank
-
-../fdelmodc \
- file_cp=$filecp file_den=$filero \
- ischeme=1 \
- file_src=wavelet.su verbose=4 \
- file_rcv=rec.su \
- xrcv1=6000 xrcv2=6000 dxrcv=0 \
- zrcv1=100 zrcv2=6000 dzrcv=100 \
- rec_type_vz=0 rec_int_vx=1 \
- dtrcv=0.004 \
- xsrc=500 zsrc=100 nshot=50 dxshot=100 dzshot=0 \
- src_type=1 tmod=0.001 \
- ntaper=$ntaper \
- left=4 right=4 bottom=4 top=1 \
- fmax=10
-
-sugain < SrcRecPositions.su scale=5000 > nep.su
-
-susum nep.su grad_salt.su > sum.su
-
-supsimage < sum.su bclip=5000 wclip=0 \
- wbox=4 hbox=4 titlesize=-1 labelsize=10 verbose=1 \
- label1="depth [m]" label2="lateral position [m]" blockinterp=1 \
- > salt_mod_srcrec.eps
-
-exit;
-
-#alternative ways of plotting src and receiver positions
-supsimage < SrcRecPositions.su \
- grgb=1.0,1.0,1.0 brgb=1.0,0.0,0.0 wrgb=0.0,1.0,0.0 \
- ghls=1.0,1.0,0.0 bhls=1.0,1.0,0.0 whls=1.0,1.0,0.0 \
- wbox=4 hbox=4 titlesize=-1 labelsize=10 verbose=1 \
- label1="time [s]" label2="lateral position [m]" blockinterp=1 \
- > salt_mod_srcrec.eps
-
-supsimage < grad_salt.su \
- wbox=4 hbox=4 titlesize=-1 labelsize=10 verbose=1 \
- label1="time [s]" label2="lateral position [m]" > salt.eps
-
-
-
diff --git a/fdelmodc3D/demo/fdelmodc_obc.scr b/fdelmodc3D/demo/fdelmodc_obc.scr
deleted file mode 100755
index 057d5b9407601b5c3e1ff23e717af37af7d8157c..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/fdelmodc_obc.scr
+++ /dev/null
@@ -1,84 +0,0 @@
-#!/bin/bash
-#PBS -l nodes=1
-#PBS -N InterfModeling
-#PBS -q fourweeks
-#PBS -V
-#
-# same as fdelmodc_topography, but with source and receivers on topography of sea-bottom
-
-export PATH=../../bin:$PATH
-
-dt=0.0004
-ntap=120
-fmax=45
-
-makemod sizex=10000 sizez=4100 dx=5 dz=5 cp0=1500 ro0=1000 cs0=0 file_base=real2.su \
- orig=0,-800 gradunit=0 verbose=1 \
- intt=def poly=2 cp=2450 ro=1000 cs=1600 gradcp=14 gradcs=9 grad=0 \
- x=0,1000,1700,1800,2000,3000,4000,4500,6000,6800,7000,7500,8100,8800,10000 \
- z=-100,-200,-250,-200,-200,-120,-300,-600,-650,-500,-350,-200,-200,-150,-200 \
- intt=def poly=2 cp=2450 ro=1000 cs=1600 gradcp=14 gradcs=9 grad=40 \
- x=0,1000,1700,1800,2000,3000,4000,4500,6000,6800,7000,7500,8100,8800,10000 \
- z=-100,-200,-250,-200,-200,-120,-300,-600,-650,-500,-350,-200,-200,-150,-200 \
- intt=rough var=200,3.2,1 poly=2 x=0,3000,8000,10000 \
- z=400,250,300,500 cp=4500,4200,4800,4500 cs=3000,2900,3100,3000 ro=1400 gradcp=5 gradcs=2 grad=0 \
- intt=def poly=2 x=0,2000,3000,5000,7000,8000,10000 \
- z=1100,1100,1100,1600,1100,1100,1100 cp=4000 cs=2800 ro=2000 gradcp=8 gradcs=8 grad=0 \
- intt=def poly=0 x=0,10000 z=1750,2050 cp=4500,5100 cs=3000,3300 ro=1500 gradcp=13 gradcs=7 grad=0 \
- intt=def poly=0 x=0,10000 z=1850,2150 cp=6000,4200 cs=4000,2900 ro=1500 gradcp=14 gradcs=8 grad=0 \
- intt=def poly=0 x=0,10000 z=1950,2250 cp=4800,4800 cs=3100,3100 ro=1500 gradcp=5 gradcs=4 grad=0 \
- intt=def poly=0 x=0,10000 z=2000,2300 cp=6100,5000 cs=3100,3300 ro=1500 gradcp=13 gradcs=9 grad=0 \
- intt=def poly=0 x=0,10000 z=2100,2400 cp=3800,5000 cs=1400,3300 ro=1500 gradcp=20 gradcs=12 grad=0 \
- intt=def poly=0 x=0,10000 z=2150,2450 cp=5000 cs=3300 ro=1500 gradcp=14 gradcs=10 grad=0 \
- intt=def poly=0 x=0,10000 z=2350,2650 cp=5800 cs=3300 ro=1500 gradcp=5 gradcs=5 grad=0 \
- intt=def poly=0 x=0,10000 z=2600,2600 cp=5500 cs=3300 ro=2200 gradcp=5 gradcs=5 grad=0
-
-#sushw key=f1 a=0 < real2_cp.su | \
-# sushw key=f1 a=0 | \
-# supsimage hbox=6 wbox=8 labelsize=10 f2num=-5000 d2num=1000 \
-# wrgb=0,0,1.0 grgb=0,1.0,0 brgb=1.0,0,0 \
-# bclip=7053.02 wclip=0 label1="depth [m]" label2="lateral position [m]" \
-# > model2_cp.eps
-
-
-makewave w=g2 fmax=45 t0=0.10 dt=$dt nt=4096 db=-40 file_out=G2.su verbose=1
-
-#extendModel file_in=real2_ro.su nafter=$ntap nbefore=$ntap nabove=0 nbelow=$ntap > vel2_edge_ro.su
-#extendModel file_in=real2_cp.su nafter=$ntap nbefore=$ntap nabove=0 nbelow=$ntap > vel2_edge_cp.su
-#extendModel file_in=real2_cs.su nafter=$ntap nbefore=$ntap nabove=0 nbelow=$ntap > vel2_edge_cs.su
-
-../fdelmodc \
- ischeme=3 \
- file_cp=vel2_edge_cp.su \
- file_cs=vel2_edge_cs.su \
- file_den=vel2_edge_ro.su \
- file_rcv=shot_obc_x5000_topo.su \
- file_src=G2.su \
- dtrcv=0.004 \
- rec_type_vx=1 \
- rec_type_vz=1 \
- rec_type_tzz=1 \
- xsrc=5000 \
- zsrc=-795 \
- verbose=4 \
- tmod=3.004 \
- dxrcv=20.0 \
- zrcv1=-800 \
- zrcv2=-800 \
- xrcv1=0 \
- xrcv2=10000 \
- sinkdepth=2 \
- sinkvel=1 \
- src_random=0 \
- wav_random=0 \
- dipsrc=1 \
- ntaper=$ntap \
- left=4 right=4 top=1 bottom=4
-
-
-sushw key=f1,delrt a=0.0,0.0 < shot_real2_x5000_topo_rvz.su | \
- basop choice=1 shift=-0.1 | \
- supsimage clip=2e-12 f1=0 f2=-5000 x1end=3.004 hbox=8 wbox=6 \
- label1="time (s)" label2="lateral position (m)" \
- labelsize=10 f2num=-5000 d2num=1000 d1num=0.5 > shot_real2_x5000_topo.eps
-
diff --git a/fdelmodc3D/demo/fdelmodc_obc_deltares.scr b/fdelmodc3D/demo/fdelmodc_obc_deltares.scr
deleted file mode 100755
index ef67ce4e1032f05f314a7a1ed756dd352d3e6683..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/fdelmodc_obc_deltares.scr
+++ /dev/null
@@ -1,65 +0,0 @@
-#!/bin/bash
-#PBS -l nodes=1
-#PBS -N InterfModeling
-#PBS -q fourweeks
-#PBS -V
-#
-# same as fdelmodc_topography, but with source and receivers on topography of sea-bottom
-
-export PATH=../../bin:$PATH
-
-dt=0.00002
-ntap=120
-fmax=30
-
-makemod sizex=1118 sizez=50 dx=0.1 dz=0.1 cs0=0 cp0=1500 ro0=1000 file_base=dunes.su orig=0,0 \
- verbose=1 intt=def poly=0 \
-x=0,4.989278785,9.978557567,14.96783635,19.95711513,24.94639392,29.9356727,34.92495149,39.91423027,44.90350905,49.89278784,54.88206662,59.8713454,64.86062418,69.84990297,74.83918175,79.82846053,84.81773932,89.8070181,94.79629688,99.78557567,104.7748544,109.7641332,114.753412,119.7426908,124.7319696,129.7212484,134.7105272,139.6998059,144.6890847,149.6783635,154.6676423,159.6569211,164.6461998,169.6354786,174.6247574,179.6140362,184.603315,189.5925938,194.5818725,199.5711513,204.5604301,209.5497089,214.5389877,219.5282665,224.5175452,229.506824,234.4961028,239.4853816,244.4746604,249.4639392,254.4532179,259.4424967,264.4317755,269.4210543,274.4103331,279.3996119,284.3888907,289.3781694,294.3674482,299.356727,304.3460058,309.3352846,314.3245633,319.3138421,324.3031209,329.2923997,334.2816785,339.2709573,344.260236,349.2495148,354.2387936,359.2280724,364.2173512,369.20663,374.1959087,379.1851875,384.1744663,389.1637451,394.1530239,399.1423027,404.1315814,409.1208602,414.110139,419.0994178,424.0886966,429.0779754,434.0672541,439.0565329,444.0458117,449.0350905,454.0243693,459.0136481,464.0029268,468.9922056,473.9814844,478.9707632,483.960042,488.9493208,493.9385995,498.9278783,503.9171571,508.9064359,513.8957147,518.8849935,523.8742722,528.863551,533.8528298,538.8421086,543.8313874,548.8206662,553.8099449,558.7992237,563.7885025,568.7777813,573.7670601,578.7563389,583.7456176,588.7348964,593.7241752,598.713454,603.7027328,608.6920116,613.6812903,618.6705691,623.6598479,628.6491267,633.6384055,638.6276843,643.616963,648.6062418,653.5955206,658.5847994,663.5740782,668.563357,673.5526357,678.5419145,683.5311933,688.5204721,693.5097509,698.4990297,703.4883084,708.4775872,713.466866,718.4561448,723.4454236,728.4347024,733.4239811,738.4132599,743.4025387,748.3918175,753.3810963,758.3703751,763.3596538,768.3489326,773.3382114,778.3274902,783.316769,788.3060478,793.2953265,798.2846053,803.2738841,808.2631629,813.2524417,818.2417205,823.2309992,828.220278,833.2095568,838.1988356,843.1881144,848.1773932,853.1666719,858.1559507,863.1452295,868.1345083,873.1237871,878.1130659,883.1023446,888.0916234,893.0809022,898.070181,903.0594598,908.0487386,913.0380173,918.0272961,923.0165749,928.0058537,932.9951325,937.9844113,942.97369,947.9629688,952.9522476,957.9415264,962.9308052,967.920084,972.9093627,977.8986415,982.8879203,987.8771991,992.8664779,997.8557567,1002.845035,1007.834314,1012.823593,1017.812872,1022.802151,1027.791429,1032.780708,1037.769987,1042.759266,1047.748544,1052.737823,1057.727102,1062.716381,1067.70566,1072.694938,1077.684217,1082.673496,1087.662775,1092.652054,1097.641332,1102.630611,1107.61989,1112.609169,1118 \
-z=29.3824,29.3588,29.3176,29.252,29.1942,29.1445,29.1022,29.0754,29.0633,29.024,28.9744,28.9188,28.8637,28.8216,28.7949,28.7335,28.6521,28.612,28.5514,28.5014,28.4718,28.4137,28.3281,28.252,28.1901,28.1005,28.0643,28.0058,27.8679,27.8262,27.7721,27.674,27.5649,27.4764,27.3647,27.276,27.221,27.1218,27.0147,26.9272,26.8145,26.764,26.8204,27.1333,27.586,28.0833,28.6328,29.0162,29.2111,29.4167,29.6366,29.7805,29.8626,29.9578,30.0481,30.0327,30.0169,30.0378,29.9736,29.9087,29.858,29.762,29.6985,29.5942,29.5022,29.4256,29.3452,29.2426,29.1809,29.1029,28.952,28.8904,28.7907,28.6837,28.5855,28.481,28.3696,28.2818,28.1881,28.0854,28.0425,27.9827,27.8543,27.7555,27.6597,27.5591,27.4323,27.2993,27.2294,27.1636,27.0862,27.0065,26.9591,26.8628,26.7604,26.7147,26.7983,27.2001,27.7855,28.3254,28.8055,29.1561,29.4988,29.6726,29.8463,29.9967,30.0654,30.1303,30.1931,30.2603,30.3239,30.314,30.2709,30.2152,30.1697,30.1097,30.0521,29.9975,29.9129,29.8553,29.8362,29.7413,29.6596,29.587,29.5253,29.4601,29.3847,29.3043,29.2461,29.1701,29.0959,29.0147,28.941,28.8566,28.7724,28.7032,28.6491,28.585,28.5201,28.4252,28.3344,28.2789,28.2004,28.1163,28.0728,28.0122,27.9259,27.8606,27.7929,27.7139,27.6539,27.6084,27.5292,27.4676,27.3796,27.2755,27.1434,27.0777,27.0211,26.9787,26.9362,26.8472,26.8677,27.0764,27.4351,27.8719,28.4272,28.8629,29.16,29.3875,29.5391,29.6389,29.7532,29.8745,29.9364,29.9736,30.0274,29.9687,29.9057,29.8955,29.85,29.7563,29.7003,29.6253,29.5333,29.4688,29.317,29.2253,29.1851,29.0555,28.9646,28.8427,28.7373,28.6687,28.5522,28.4677,28.3907,28.2464,28.1628,28.0732,27.9337,27.8505,27.7818,27.6664,27.5443,27.4945,27.4253,27.4398,27.5949,28.0526,28.6129,29.0875,29.4419,29.6561,29.8852,30.0617,30.2174,30.3048,30.361,30.3477,30.3687,30.3881,30.3108,30.2617,30.2483 \
- cp=1700 ro=1000 cs=333 \
-intt=def poly=0 x=0,1118 z=32,32 cp=1800 ro=1200 cs=300 \
-intt=def poly=0 x=0,1118 z=35,35 cp=2200 ro=1200 cs=50 \
-intt=def poly=0 x=0,1118 z=36,36 cp=2500 ro=1200 cs=600 \
-intt=def poly=0 x=350,650 z=32,32 cp=2000 ro=1200 cs=700 \
-intt=def poly=1 x=350,400,450,500,550,600,650 z=32,42,43,43,43,42,32 cp=2500 ro=1200 cs=800
-
-
-#z=9.3824,9.3588,9.3176,9.252,9.1942,9.1445,9.1022,9.0754,9.0633,9.024,8.9744,8.9188,8.8637,8.8216,8.7949,8.7335,8.6521,8.612,8.5514,8.5014,8.4718,8.4137,8.3281,8.252,8.1901,8.1005,8.0643,8.0058,7.8679,7.8262,7.7721,7.674,7.5649,7.4764,7.3647,7.276,7.221,7.1218,7.0147,6.9272,6.8145,6.764,6.8204,7.1333,7.586,8.0833,8.6328,9.0162,9.2111,9.4167,9.6366,9.7805,9.8626,9.9578,10.0481,10.0327,10.0169,10.0378,9.9736,9.9087,9.858,9.762,9.6985,9.5942,9.5022,9.4256,9.3452,9.2426,9.1809,9.1029,8.952,8.8904,8.7907,8.6837,8.5855,8.481,8.3696,8.2818,8.1881,8.0854,8.0425,7.9827,7.8543,7.7555,7.6597,7.5591,7.4323,7.2993,7.2294,7.1636,7.0862,7.0065,6.9591,6.8628,6.7604,6.7147,6.7983,7.2001,7.7855,8.3254,8.8055,9.1561,9.4988,9.6726,9.8463,9.9967,10.0654,10.1303,10.1931,10.2603,10.3239,10.314,10.2709,10.2152,10.1697,10.1097,10.0521,9.9975,9.9129,9.8553,9.8362,9.7413,9.6596,9.587,9.5253,9.4601,9.3847,9.3043,9.2461,9.1701,9.0959,9.0147,8.941,8.8566,8.7724,8.7032,8.6491,8.585,8.5201,8.4252,8.3344,8.2789,8.2004,8.1163,8.0728,8.0122,7.9259,7.8606,7.7929,7.7139,7.6539,7.6084,7.5292,7.4676,7.3796,7.2755,7.1434,7.0777,7.0211,6.9787,6.9362,6.8472,6.8677,7.0764,7.4351,7.8719,8.4272,8.8629,9.16,9.3875,9.5391,9.6389,9.7532,9.8745,9.9364,9.9736,10.0274,9.9687,9.9057,9.8955,9.85,9.7563,9.7003,9.6253,9.5333,9.4688,9.317,9.2253,9.1851,9.0555,8.9646,8.8427,8.7373,8.6687,8.5522,8.4677,8.3907,8.2464,8.1628,8.0732,7.9337,7.8505,7.7818,7.6664,7.5443,7.4945,7.4253,7.4398,7.5949,8.0526,8.6129,9.0875,9.4419,9.6561,9.8852,10.0617,10.2174,10.3048,10.361,10.3477,10.3687,10.3881,10.3108,10.2617,10.2483 \
-
-
-makewave w=g2 fp=14 t0=0.10 dt=$dt nt=4096 file_out=G2.su verbose=1
-
-../fdelmodc \
- ischeme=3 \
- file_cp=dunes_cp.su \
- file_cs=dunes_cs.su \
- file_den=dunes_ro.su \
- file_rcv=shot_obc_dunes.su \
- file_src=G2.su \
- dtrcv=0.001 \
- rec_type_vx=1 \
- rec_type_vz=1 \
- rec_type_tzz=1 \
- xsrc=550 \
- zsrc=25 \
- verbose=4 \
- tmod=3.004 \
- dxrcv=1.0 \
- zrcv1=25 \
- zrcv2=25 \
- xrcv1=0 \
- xrcv2=1118 \
- tsnap1=0.1 tsnap2=3.0 dtsnap=0.2 dxsnap=10 dzsnap=10 \
- ntaper=$ntap \
- left=4 right=4 top=1 bottom=4
-
-exit;
-
-suxmovie < snap_svz.su loop=1 clip=1e-5
-
-sushw key=f1,delrt a=0.0,0.0 < shot_real2_x5000_topo_rvz.su | \
- basop choice=1 shift=-0.1 | \
- supsimage clip=2e-12 f1=0 f2=-5000 x1end=3.004 hbox=8 wbox=6 \
- label1="time (s)" label2="lateral position (m)" \
- labelsize=10 f2num=-5000 d2num=1000 d1num=0.5 > shot_real2_x5000_topo.eps
-
diff --git a/fdelmodc3D/demo/fdelmodc_plane.scr b/fdelmodc3D/demo/fdelmodc_plane.scr
deleted file mode 100755
index cf4f1335d47ca76d43e70701085d92fff276dcd6..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/fdelmodc_plane.scr
+++ /dev/null
@@ -1,95 +0,0 @@
-#!/bin/bash
-#PBS -N fdelmodc
-#PBS -k eo
-#PBS -j eo
-#
-# Models plane wave at depth to receivers at the surface, including snapshots
-export PATH=../../utils:$PATH:
-
-makewave file_out=wavelet.su dt=0.001 nt=1024 fp=13 shift=1 w=g2 verbose=1
-
-makemod file_base=model.su \
- cp0=1500 ro0=1000 cs0=600 sizex=2100 sizez=2100 \
- dx=3 dz=3 orig=0,0 \
- intt=def poly=0 cp=1650 ro=2000 cs=1000 \
- x=0,2100 z=500,500 gradcp=0.5 grad=100 \
- intt=def poly=1 cp=1800 ro=2500 cs=1200 \
- x=0,800,1200,2100 z=900,1400,1400,1200 gradcp=0 grad=0 \
- verbose=4
-
-export filecp=model_cp.su
-export filecs=model_cs.su
-export filero=model_ro.su
-
-export OMP_NUM_THREADS=1
-
-time ../fdelmodc \
- file_cp=$filecp file_cs=$filecs file_den=$filero \
- ischeme=3 \
- file_src=wavelet.su verbose=4 \
- file_rcv=rec.su \
- file_snap=snap.su \
- xrcv1=0 xrcv2=2100 dxrcv=15 \
- zrcv1=400 zrcv2=400 \
- rec_type_vx=1 rec_type_pp=1 rec_type_ss=1 rec_int_vx=1 \
- dtrcv=0.004 \
- xsrc=1000 zsrc=1700 nshot=1 plane_wave=1 nsrc=301 \
- src_type=1 tmod=3.0 src_velo=1800 src_angle=5 \
- ntaper=21 src_window=101 \
- left=4 right=4 bottom=4 top=4 \
- tsnap1=0.1 tsnap2=3.0 dtsnap=0.1 \
- sna_type_ss=1 sna_type_pp=1
-
-exit;
-
-# to show a movie of the snapshots
-#suxmovie < snap_svz.su perc=99 loop=1
-
-# to reproduce the images in the manual use:
-supsimage < model_cp.su \
- wbox=4 hbox=4 titlesize=-1 labelsize=10 verbose=1 \
- d2=3 f2=0 wrgb=1.0,0,0 grgb=0,1.0,0 brgb=0,0,1.0 bps=24 \
- label1="depth [m]" label2="lateral position [m]" > model_plane.eps
-
-supsimage < SrcRecPositions.su \
- wbox=4 hbox=4 titlesize=-1 labelsize=10 verbose=1 \
- d2=3 f2=0 wclip=-1 bclip=1 \
- gabel1="depth [m]" label2="lateral position [m]" > SrcRecPositions.eps
-
-suop2 model_cp.su SrcRecPositions.su w1=1 w2=2000 op=sum | \
- supsimage wclip=1400 bclip=2000 \
- wbox=4 hbox=4 titlesize=-1 labelsize=10 verbose=1 \
- d2=3 f2=0 wrgb=1.0,0,0 grgb=0,1.0,0 brgb=0,0,1.0 bps=24 \
- label1="depth [m]" label2="lateral position [m]" > model_plane_src.eps
-
-supsimage < rec_rvz.su \
- wbox=3 hbox=4 titlesize=-1 labelsize=10 clip=1e-10 verbose=1 \
- label1="time [s]" label2="lateral position [m]" > rec_plane_rvz.eps
-
-supsimage < rec_rpp.su \
- wbox=3 hbox=4 titlesize=-1 labelsize=10 clip=1e-11 verbose=1 \
- label1="time [s]" label2="lateral position [m]" > rec_plane_rpp.eps
-
-supsimage < rec_rss.su \
- wbox=3 hbox=4 titlesize=-1 labelsize=10 clip=1e-11 verbose=1 \
- label1="time [s]" label2="lateral position [m]" > rec_plane_rss.eps
-
-#snapshots
-for file in snap_svz snap_spp snap_sss; do
-
-suwind < $file.su key=fldr min=$ifldr max=$ifldr > nep1.su
-while (( ifldr < 12 ))
-do
-(( ifldr += 4 ))
-echo $ifldr
-suwind < $file.su key=fldr min=$ifldr max=$ifldr > nep2.su
-susum nep2.su nep1.su > snaps.su
-mv snaps.su nep1.su
-done
-
-supsimage < nep1.su \
- wbox=4 hbox=4 titlesize=-1 labelsize=10 verbose=1 \
- d2=3 f2=0 perc=99 \
- label1="depth [m]" label2="lateral position [m]" > ${file}_snap.eps
-done
-
diff --git a/fdelmodc3D/demo/fdelmodc_plane_txt.scr b/fdelmodc3D/demo/fdelmodc_plane_txt.scr
deleted file mode 100755
index d2d687b835dd330e843903dd53c3a163ea2ffd68..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/fdelmodc_plane_txt.scr
+++ /dev/null
@@ -1,98 +0,0 @@
-#!/bin/bash
-#PBS -N fdelmodc
-#PBS -k eo
-#PBS -j eo
-#
-# Models plane wave at depth to receivers at the surface, including snapshots
-export PATH=../../utils:$PATH:
-
-makewave file_out=wavelet.su dt=0.001 nt=1024 fp=13 shift=1 w=g2 verbose=1
-
-makemod file_base=model.su \
- cp0=1500 ro0=1000 sizex=2100 sizez=2100 \
- dx=3 dz=3 orig=0,0 \
- intt=def poly=0 cp=1650 ro=2000 \
- x=0,2100 z=500,500 gradcp=0.5 grad=100 \
- intt=def poly=1 cp=1800 ro=2500 \
- x=0,800,1200,2100 z=900,1400,1400,1200 gradcp=0 grad=0 \
- verbose=4
-
-export filecp=model_cp.su
-export filecs=model_cs.su
-export filero=model_ro.su
-
-export OMP_NUM_THREADS=1
-
-rm Src.txt
-for i in `seq 1 700 `; do (( x = i*3 )); (( z = i*3 )); echo $x $z >> Src.txt ; done
-
-time ../fdelmodc \
- file_cp=$filecp file_den=$filero \
- ischeme=1 \
- file_src=wavelet.su verbose=4 \
- file_rcv=rec.su \
- file_snap=snap.su \
- xrcv1=0 xrcv2=2100 dxrcv=15 \
- zrcv1=400 zrcv2=400 \
- rec_type_vx=1 rec_type_pp=1 rec_type_ss=1 rec_int_vx=1 \
- dtrcv=0.004 \
- src_txt=Src.txt \
- src_type=1 tmod=3.0 src_velo=1800 src_angle=5 \
- ntaper=21 src_window=11 \
- left=4 right=4 bottom=4 top=4 \
- tsnap1=0.1 tsnap2=3.0 dtsnap=0.1 \
- sna_type_ss=1 sna_type_pp=1
-
-exit;
-
-# to show a movie of the snapshots
-#suxmovie < snap_svz.su perc=99 loop=1
-
-# to reproduce the images in the manual use:
-supsimage < model_cp.su \
- wbox=4 hbox=4 titlesize=-1 labelsize=10 verbose=1 \
- d2=3 f2=0 wrgb=1.0,0,0 grgb=0,1.0,0 brgb=0,0,1.0 bps=24 \
- label1="depth [m]" label2="lateral position [m]" > model_plane.eps
-
-supsimage < SrcRecPositions.su \
- wbox=4 hbox=4 titlesize=-1 labelsize=10 verbose=1 \
- d2=3 f2=0 wclip=-1 bclip=1 \
- gabel1="depth [m]" label2="lateral position [m]" > SrcRecPositions.eps
-
-suop2 model_cp.su SrcRecPositions.su w1=1 w2=2000 op=sum | \
- supsimage wclip=1400 bclip=2000 \
- wbox=4 hbox=4 titlesize=-1 labelsize=10 verbose=1 \
- d2=3 f2=0 wrgb=1.0,0,0 grgb=0,1.0,0 brgb=0,0,1.0 bps=24 \
- label1="depth [m]" label2="lateral position [m]" > model_plane_src.eps
-
-supsimage < rec_rvz.su \
- wbox=3 hbox=4 titlesize=-1 labelsize=10 clip=1e-10 verbose=1 \
- label1="time [s]" label2="lateral position [m]" > rec_plane_rvz.eps
-
-supsimage < rec_rpp.su \
- wbox=3 hbox=4 titlesize=-1 labelsize=10 clip=1e-11 verbose=1 \
- label1="time [s]" label2="lateral position [m]" > rec_plane_rpp.eps
-
-supsimage < rec_rss.su \
- wbox=3 hbox=4 titlesize=-1 labelsize=10 clip=1e-11 verbose=1 \
- label1="time [s]" label2="lateral position [m]" > rec_plane_rss.eps
-
-#snapshots
-for file in snap_svz snap_spp snap_sss; do
-
-suwind < $file.su key=fldr min=$ifldr max=$ifldr > nep1.su
-while (( ifldr < 12 ))
-do
-(( ifldr += 4 ))
-echo $ifldr
-suwind < $file.su key=fldr min=$ifldr max=$ifldr > nep2.su
-susum nep2.su nep1.su > snaps.su
-mv snaps.su nep1.su
-done
-
-supsimage < nep1.su \
- wbox=4 hbox=4 titlesize=-1 labelsize=10 verbose=1 \
- d2=3 f2=0 perc=99 \
- label1="depth [m]" label2="lateral position [m]" > ${file}_snap.eps
-done
-
diff --git a/fdelmodc3D/demo/fdelmodc_pml.scr b/fdelmodc3D/demo/fdelmodc_pml.scr
deleted file mode 100755
index 50c3d96a7838e4b4b7a2cb4d83ae38ed3a2149c9..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/fdelmodc_pml.scr
+++ /dev/null
@@ -1,54 +0,0 @@
-#!/bin/bash
-#PBS -N fdelmod
-#PBS -q verylong
-#PBS -l nodes=1
-#PBS -k eo
-#PBS -j eo
-#
-# Illustrates the effect of (absorbing) tapering of the edges, used in Figure 4 of the manual.
-
-#OK:
-dt=0.0002
-dx=1
-cp=1500
-
-makewave file_out=wavelet.su dt=$dt nt=1024 fp=85 shift=1 w=g2 verbose=1
-
-makemod file_base=model.su \
- cp0=$cp ro0=1000 cs0=600 sizex=1000 sizez=1000 \
- dx=$dx dz=$dx orig=0,0 \
-
-export filecp=model_cp.su
-export filecs=model_cs.su
-export filero=model_ro.su
-
-ntaper=0
-
-../fdelmodc \
- file_cp=$filecp file_cs=$filecs file_den=$filero \
- ischeme=1 \
- file_src=wavelet.su verbose=4 \
- file_rcv=rec.su \
- file_snap=snap_nodisp.su \
- xrcv1=0 xrcv2=1000 dxrcv=5 \
- zrcv1=300 zrcv2=300 \
- rec_type_vx=1 rec_type_pp=1 rec_type_ss=1 rec_int_vx=1 \
- dtrcv=0.004 \
- xsrc=500 zsrc=500 nshot=1 \
- src_type=1 tmod=1.0 \
- left=1 right=1 bottom=1 top=1 \
- tsnap1=0.2 tsnap2=1.0 dtsnap=0.1 \
- sna_type_ss=1 sna_type_pp=1 fmax=25
-
-suwind key=fldr min=3 max=3 < snap_nodisp_sp.su | \
- supsimage \
- wbox=4 hbox=4 titlesize=-1 labelsize=10 verbose=1 \
- d2=$dx f2=0 clip=0.003 \
- label1="depth [m]" label2="lateral position [m]" > snap_tap${ntaper}.eps
-
-supsimage < rec_rp.su \
- wbox=3 hbox=4 titlesize=-1 labelsize=10 clip=0.003 verbose=1 \
- label1="time [s]" label2="lateral position [m]" > rec_tap${ntaper}_rp.eps
-
-exit;
-
diff --git a/fdelmodc3D/demo/fdelmodc_pmltest.scr b/fdelmodc3D/demo/fdelmodc_pmltest.scr
deleted file mode 100755
index 3e428820da9df0f802a58b719a1cca8b8e9d392f..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/fdelmodc_pmltest.scr
+++ /dev/null
@@ -1,52 +0,0 @@
-#!/bin/bash
-
-export PATH=:$HOME/src/OpenSource/bin:$HOME/bin:$PATH:
-
-dx=2.5
-dt=0.00050
-
-makemod sizex=6000 sizez=1250 dx=$dx dz=$dx cp0=1500 ro0=1000 \
- orig=-3000,0 file_base=tutodel.su verbose=2 \
- intt=def x=-3000,-2000,-1000,0,1000,2000,3000 z=240,130,250,300,350,380,320 poly=2 cp=1950 ro=4500 grad=0 \
- intt=def x=-3000,-2200,-1500,0,1300,2100,3000 z=620,640,590,600,740,700,600 poly=2 cp=2000 ro=1400 grad=0 \
- intt=def x=-3000,-1800,0,2200,3000 z=920,1000,900,1000,1010 poly=2 cp=2300 ro=1600 grad=0
-
-makemod sizex=600 sizez=1250 dx=$dx dz=$dx cp0=1500 ro0=1000 \
- orig=-300,0 file_base=tutodel.su verbose=2 \
-
-
- intt=def x=-300,-200,-100,0,100,200,300 z=240,130,250,300,350,380,320 poly=2 cp=1950 ro=4500 grad=0 \
- intt=def x=-300,-220,-150,0,130,210,300 z=620,640,590,600,740,700,600 poly=2 cp=2000 ro=1400 grad=0 \
- intt=def x=-300,-180,0,220,300 z=920,1000,900,1000,1010 poly=2 cp=2300 ro=1600 grad=0
-
-
-export OMP_NUM_THREADS=1
-makewave fp=30 dt=$dt file_out=wave.su nt=4096 t0=0.1 scale=1
-
-file_cp=tutodel_cp.su
-file_ro=tutodel_ro.su
-
-../fdelmodc \
- file_cp=$file_cp ischeme=1 iorder=4 \
- file_den=$file_ro \
- file_src=wave.su \
- file_snap=snapinj_rate1_planevz.su \
- file_rcv=recvE.su \
- src_type=1 \
- src_injectionrate=0 \
- dtrcv=$dt \
- rec_delay=0.1 \
- verbose=4 \
- tmod=0.9000 \
- dxrcv=15 \
- tsnap1=0.000 tsnap2=0.9 dtsnap=0.005 \
- xsnap1=-300 xsnap2=300 dxsnap=5 dzsnap=5 \
- zsnap1=0 zsnap2=300 dxsnap=5 dzsnap=5 \
- sna_type_vx=1 snapwithbnd=1 \
- xsrc=-100 zsrc=150 \
- npml=35 \
- m=2 \
- R=1e-5 \
- left=2 right=2 top=2 bottom=2
-
-
diff --git a/fdelmodc3D/demo/fdelmodc_rand.scr b/fdelmodc3D/demo/fdelmodc_rand.scr
deleted file mode 100755
index 97df96173ad19435a577a3c563549eaee262b33c..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/fdelmodc_rand.scr
+++ /dev/null
@@ -1,56 +0,0 @@
-#!/bin/bash
-#PBS -l nodes=1
-#PBS -N InterfModeling
-#PBS -q fourweeks
-#PBS -V
-#
-# demo for generation of random source signature at random positions
-
-export PATH=../../bin:$PATH
-
-makewave w=g2 fmax=45 t0=0.10 dt=0.001 nt=4096 db=-40 file_out=G2.su verbose=1
-
-makemod sizex=10000 sizez=4100 dx=10 dz=10 cp0=1500 ro0=1000 file_base=simple.su \
- intt=def poly=0 x=0,10000 z=400,400 cp=2000 ro=1400 \
- intt=def poly=2 x=0,2000,3000,5000,7000,8000,10000 \
- z=1100,1100,1100,1600,1100,1100,1100 cp=4000 ro=2000 \
- intt=def poly=0 x=0,10000 z=2100,2100 cp=3000 ro=1500 \
- intt=def poly=0 x=0,10000 z=2600,2600 cp=5500 ro=2200
-
-xsrc1=100
-xsrc2=9900
-zsrc1=2100
-zsrc2=4000
-
-file_shot=shotRandomPos${xsrc1}_${zsrc1}.su
-
-../fdelmodc \
- file_cp=simple_cp.su ischeme=1 \
- file_den=simple_ro.su \
- file_rcv=$file_shot \
- dtrcv=0.008 \
- dt=0.0010 \
- verbose=4 \
- tmod=10.000 \
- dxrcv=20.0 \
- zrcv1=10 \
- zrcv2=10 \
- xrcv1=0 \
- xrcv2=10000 \
- src_random=1 \
- wav_random=1 \
- fmax=30 \
- xsrc1=$xsrc1 \
- xsrc2=$xsrc2 \
- zsrc1=$zsrc1 \
- zsrc2=$zsrc2 \
- tsrc1=0.0 \
- tsrc2=5.0 \
- nsrc=20 \
- dipsrc=0 \
- ntaper=45 \
- tsnap1=0.1 tsnap2=6.0 dtsnap=0.2 \
- left=4 right=4 bottom=4 top=1 \
- nxmax=2500 nzmax=1400 ntmax=10000
-
-
diff --git a/fdelmodc3D/demo/fdelmodc_sourcepos.scr b/fdelmodc3D/demo/fdelmodc_sourcepos.scr
deleted file mode 100755
index 37b6a90c2fb2279ebe62ed7093f9802f32fcdd94..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/fdelmodc_sourcepos.scr
+++ /dev/null
@@ -1,172 +0,0 @@
-#!/bin/bash
-#PBS -l nodes=1:ppn=2
-#PBS -N InterfModeling
-#PBS -q long
-#PBS -V
-#
-#
-# shows how different source distributions are defined
-
-set -x
-export PATH=../../bin:$PATH
-
-makewave w=g2 fp=10 t0=0.15 dt=0.0010 nt=4096 file_out=G2.su verbose=1
-
-makemod sizex=10000 sizez=4100 dx=10 dz=10 cp0=1500 ro0=1000 file_base=simple.su \
- intt=def poly=0 x=0,10000 z=400,400 cp=2000 ro=1400 \
- intt=def poly=2 x=0,2000,3000,5000,7000,8000,10000 z=1100,1100,1100,1600,1100,1100,1100 cp=4000 ro=2000 \
- intt=def poly=0 x=0,10000 z=2100,2100 cp=3000 ro=1500 \
- intt=def poly=0 x=0,10000 z=2600,2600 cp=5500 ro=2200
-
-xsrc1=100
-xsrc2=9900
-dxsrc=10
-dxrcv=10
-
-
-tmod=4
-tsrc1=0.1
-tsrc2=120
-tlength=120
-nsrc=800
-fmax=30
-
-for wav_random in 0 1;
-do
-
-file_shot=shotRS${wav_random}_volume_T${tmod}_S${nsrc}_Dt${tsrc2}_F${fmax}.su
-echo $file_shot
-
-#volume
-zsrc1=500
-zsrc2=4090
-
-fdelmodc \
- file_cp=simple_cp.su ischeme=1 \
- file_den=simple_ro.su \
- file_src=G2.su \
- file_rcv=$file_shot \
- rec_type_p=0 \
- dtrcv=0.008 \
- rec_ntsam=16384 \
- dt=0.0010 \
- verbose=1 \
- tmod=$tmod \
- dxrcv=10.0 \
- plane_wave=0 \
- xrcv1=0 xrcv2=10000 zrcv1=0 zrcv2=0 dxrcv=50 \
- src_random=1 \
- wav_random=${wav_random} \
- fmax=$fmax \
- xsrc1=$xsrc1 \
- xsrc2=$xsrc2 \
- zsrc1=$zsrc1 \
- zsrc2=$zsrc2 \
- tsrc1=0.0 \
- tsrc2=$tsrc2 \
- tlength=$tlength \
- nsrc=$nsrc \
- dipsrc=0 \
- ntaper=45 \
- left=4 right=4 top=1 bottom=4
-
- base=`echo $file_shot | awk 'BEGIN { FS = "." } ; { print $1 }'`
- echo $base
-
- shot=${base}_rvz.su
- suwind s=1 j=1 tmax=4 f1=0.0 < $shot | \
- sushw key=f1,delrt,d2 a=0.0,0.0,$dxrcv | \
- supsimage perc=99 f1=0 f2=-5000 hbox=4 wbox=3 \
- label1='time (s)' label2='lateral position (m)' \
- labelsize=10 f2num=-5000 d2num=2500 > ${base}.eps
-
-
-#deep
-zsrc1=2700
-zsrc2=4090
-
-file_shot=shotRS${wav_random}_deep_T${tmod}_S${nsrc}_Dt${tsrc2}_F${fmax}.su
-
-fdelmodc \
- file_cp=simple_cp.su ischeme=1 \
- file_den=simple_ro.su \
- file_src=G2.su \
- file_rcv=$file_shot \
- rec_type_p=0 \
- dtrcv=0.008 \
- rec_ntsam=16384 \
- dt=0.0010 \
- verbose=1 \
- tmod=$tmod \
- dxrcv=10.0 \
- plane_wave=0 \
- xrcv1=0 xrcv2=10000 zrcv1=0 zrcv2=0 dxrcv=50 \
- src_random=1 \
- wav_random=${wav_random} \
- fmax=$fmax \
- xsrc1=$xsrc1 \
- xsrc2=$xsrc2 \
- zsrc1=$zsrc1 \
- zsrc2=$zsrc2 \
- tsrc1=0.0 \
- tsrc2=$tsrc2 \
- tlength=$tlength \
- nsrc=$nsrc \
- dipsrc=0 \
- ntaper=45 \
- left=4 right=4 top=1 bottom=4
-
- base=`echo $file_shot | awk 'BEGIN { FS = "." } ; { print $1 }'`
- echo $base
-
- shot=${base}_rvz.su
- suwind s=1 j=1 tmax=4 f1=0.0 < $shot | \
- sushw key=f1,delrt,d2 a=0.0,0.0,$dxrcv | \
- supsimage perc=99 f1=0 f2=-5000 hbox=4 wbox=3 \
- label1='time (s)' label2='lateral position (m)' \
- labelsize=10 f2num=-5000 d2num=2500 > ${base}.eps
-
-#plane
-zsrc1=2700
-zsrc2=2700
-
-file_shot=shotRS${wav_random}_plane_T${tmod}_S${nsrc}_Dt${tsrc2}_F${fmax}.su
-
-fdelmodc \
- file_cp=simple_cp.su ischeme=1 \
- file_den=simple_ro.su \
- file_src=G2.su \
- file_rcv=$file_shot \
- rec_type_p=0 \
- dtrcv=0.008 \
- rec_ntsam=16384 \
- dt=0.0010 \
- verbose=1 \
- tmod=$tmod \
- dxrcv=10.0 \
- plane_wave=1 \
- xrcv1=0 xrcv2=10000 zrcv1=0 zrcv2=0 dxrcv=50 \
- xsrc=5000 zsrc=2700 \
- src_random=0 \
- wav_random=${wav_random} \
- fmax=$fmax \
- tsrc1=0.0 \
- tsrc2=$tsrc2 \
- tlength=$tlength \
- nsrc=$nsrc \
- dipsrc=0 \
- ntaper=45 \
- left=4 right=4 top=1 bottom=4
-
- base=`echo $file_shot | awk 'BEGIN { FS = "." } ; { print $1 }'`
- echo $base
-
- shot=${base}_rvz.su
- suwind s=1 j=1 tmax=4 f1=0.0 < $shot | \
- sushw key=f1,delrt,d2 a=0.0,0.0,$dxrcv | \
- supsimage perc=99 f1=0 f2=-5000 hbox=4 wbox=3 \
- label1='time (s)' label2='lateral position (m)' \
- labelsize=10 f2num=-5000 d2num=2500 > ${base}.eps
-
-done
-
diff --git a/fdelmodc3D/demo/fdelmodc_srcrec.scr b/fdelmodc3D/demo/fdelmodc_srcrec.scr
deleted file mode 100755
index 9412842e8462e985776d7b07dd20ae0b8b43e6eb..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/fdelmodc_srcrec.scr
+++ /dev/null
@@ -1,120 +0,0 @@
-#!/bin/bash
-#PBS -N fdelmod
-#PBS -q verylong
-#PBS -l nodes=1
-#PBS -k eo
-#PBS -j eo
-#
-# illustrates source and receiver positions, used in Figure 10 of the manual
-
-export PATH=../../utils:$PATH:
-
-#OK:
-dt=0.0005
-dx=5
-ntaper=10
-
-makewave file_out=wavelet.su dt=$dt nt=1024 shift=1 fmax=10 verbose=1
-
-# build a model with a steep salt-like flank of the side
-./model_flank.scr
-
-export filecp=grad_salt.su
-export filero=salt_ro.su
-
-#model sources on an array following the edges of the flank
-
-../fdelmodc \
- file_cp=grad_salt.su file_den=salt_ro.su \
- ischeme=1 \
- file_src=wavelet.su verbose=4 \
- file_rcv=rec.su \
- xsrca=5900,5950,6000,6100,6200,6300,6350,6300,6200,6100,6000,5950,5900 \
- zsrca=2000,2100,2200,2300,2400,2500,2650,2800,2900,3000,3100,3200,3300 \
- rec_type_vz=1 rec_int_vx=1 \
- dtrcv=0.004 \
- xrcv1=4000 zrcv1=1000 xrcv2=4000 zrcv2=6000 dzrcv=100 dxrcv=0 \
- src_type=1 tmod=0.001 \
- ntaper=10 \
- left=4 right=4 bottom=4 top=1 \
- fmax=10
-
-sugain < SrcRecPositions.su scale=5000 > nep.su
-
-susum nep.su grad_salt.su > sum.su
-
-supsimage < sum.su bclip=5000 wclip=0 \
- wbox=4 hbox=4 titlesize=-1 labelsize=10 verbose=1 \
- label1="depth [m]" label2="lateral position [m]" blockinterp=1 \
- > salt_mod_srcrec3.eps
-
-
-#model sources on random positions in layers below the flank
-
-../fdelmodc \
- file_cp=$filecp file_den=$filero \
- ischeme=1 \
- file_src=wavelet.su verbose=4 \
- file_rcv=rec.su \
- xrcv1=6000,500 xrcv2=6000,7500 dxrcv=0,500 \
- zrcv1=100,500 zrcv2=6000,500 dzrcv=100,0 \
- rec_type_vz=1 rec_int_vx=1 \
- dtrcv=0.004 \
- src_random=1 nsrc=150 \
- xsrc1=500 xsrc2=7500 zsrc1=6000 zsrc2=7500 \
- src_type=1 tmod=0.001 \
- ntaper=$ntaper \
- left=4 right=4 bottom=4 top=1 \
- fmax=10
-
-sugain < SrcRecPositions.su scale=5000 > nep.su
-
-susum nep.su grad_salt.su > sum.su
-
-supsimage < sum.su bclip=5000 wclip=0 \
- wbox=4 hbox=4 titlesize=-1 labelsize=10 verbose=1 \
- label1="depth [m]" label2="lateral position [m]" blockinterp=1 \
- > salt_mod_srcrec2.eps
-
-#model 50 shots for sources on a horizontal line left from the flank
-
-../fdelmodc \
- file_cp=$filecp file_den=$filero \
- ischeme=1 \
- file_src=wavelet.su verbose=4 \
- file_rcv=rec.su \
- xrcv1=6000 xrcv2=6000 dxrcv=0 \
- zrcv1=100 zrcv2=6000 dzrcv=100 \
- rec_type_vz=0 rec_int_vx=1 \
- dtrcv=0.004 \
- xsrc=500 zsrc=100 nshot=50 dxshot=100 dzshot=0 \
- src_type=1 tmod=0.001 \
- ntaper=$ntaper \
- left=4 right=4 bottom=4 top=1 \
- fmax=10
-
-sugain < SrcRecPositions.su scale=5000 > nep.su
-
-susum nep.su grad_salt.su > sum.su
-
-supsimage < sum.su bclip=5000 wclip=0 \
- wbox=4 hbox=4 titlesize=-1 labelsize=10 verbose=1 \
- label1="depth [m]" label2="lateral position [m]" blockinterp=1 \
- > salt_mod_srcrec.eps
-
-exit;
-
-#alternative ways of plotting src and receiver positions
-supsimage < SrcRecPositions.su \
- grgb=1.0,1.0,1.0 brgb=1.0,0.0,0.0 wrgb=0.0,1.0,0.0 \
- ghls=1.0,1.0,0.0 bhls=1.0,1.0,0.0 whls=1.0,1.0,0.0 \
- wbox=4 hbox=4 titlesize=-1 labelsize=10 verbose=1 \
- label1="time [s]" label2="lateral position [m]" blockinterp=1 \
- > salt_mod_srcrec.eps
-
-supsimage < grad_salt.su \
- wbox=4 hbox=4 titlesize=-1 labelsize=10 verbose=1 \
- label1="time [s]" label2="lateral position [m]" > salt.eps
-
-
-
diff --git a/fdelmodc3D/demo/fdelmodc_stab.scr b/fdelmodc3D/demo/fdelmodc_stab.scr
deleted file mode 100755
index d43c57ed04561297ed686ce09d0039fa3fa14e2d..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/fdelmodc_stab.scr
+++ /dev/null
@@ -1,145 +0,0 @@
-#!/bin/bash
-#PBS -N fdelmod
-#PBS -q verylong
-#PBS -l nodes=1
-#PBS -k eo
-#PBS -j eo
-#
-# Illustrates how dispersion and instability is presented in snapshots, used in Figure 1 of the manual
-
-export PATH=../../bin:$PATH
-
-#OK: no taper
-ntaper=0
-
-export filecp=model_cp.su
-export filecs=model_cs.su
-export filero=model_ro.su
-
-#OK: no dispersion and stable
-dt=0.0002
-dx=1
-cp=1500
-
-makewave file_out=wavelet.su dt=$dt nt=1024 fp=85 shift=1 w=g2 verbose=1
-makemod file_base=model.su \
- cp0=$cp ro0=1000 cs0=600 sizex=2100 sizez=2100 \
- dx=$dx dz=$dx orig=0,0 \
-
-../fdelmodc \
- file_cp=$filecp file_cs=$filecs file_den=$filero \
- ischeme=1 \
- file_src=wavelet.su verbose=2 \
- file_rcv=rec.su \
- file_snap=snap_nodisp.su \
- xrcv1=0 xrcv2=2100 dxrcv=15 \
- zrcv1=400 zrcv2=400 \
- dtrcv=0.004 \
- xsrc=1000 zsrc=1700 nshot=1 \
- src_type=1 tmod=1.0 \
- ntaper=$ntaper \
- left=4 right=4 bottom=4 top=4 \
- tsnap1=0.1 tsnap2=1.0 dtsnap=0.4 \
- sna_type_ss=1 sna_type_pp=1 fmax=25
-
-suwind < snap_nodisp_sp.su key=fldr min=2 max=2 | \
- convert trinc=3 saminc=3 | \
- supsimage labelsize=10 hbox=4 wbox=4 clip=1e-5 \
- label1="z [m]" label2="x [m]" f1=0 f2=0 d1=3 d2=3 > snap_nodisp_sp.eps
-
-
-#Dispersion 1:
-dt=0.001
-dx=3
-cp=1500
-
-makewave file_out=wavelet.su dt=$dt nt=1024 fp=85 shift=1 w=g2 verbose=1
-makemod file_base=model.su \
- cp0=$cp ro0=1000 cs0=600 sizex=2100 sizez=2100 \
- dx=$dx dz=$dx orig=0,0 \
-
-../fdelmodc \
- file_cp=$filecp file_cs=$filecs file_den=$filero \
- ischeme=1 \
- file_src=wavelet.su verbose=2 \
- file_rcv=rec.su \
- file_snap=snap_disp1.su \
- xrcv1=0 xrcv2=2100 dxrcv=15 \
- zrcv1=400 zrcv2=400 \
- dtrcv=0.004 \
- xsrc=1000 zsrc=1700 nshot=1 \
- src_type=1 tmod=1.0 \
- ntaper=$ntaper \
- left=4 right=4 bottom=4 top=4 \
- tsnap1=0.1 tsnap2=1.0 dtsnap=0.4 \
- sna_type_ss=1 sna_type_pp=1 fmax=25
-
-suwind < snap_disp1_sp.su key=fldr min=2 max=2 | \
- supsimage labelsize=10 hbox=4 wbox=4 clip=1e-5 \
- label1="z [m]" label2="x [m]" f1=0 f2=0 > snap_disp_sp.eps
-
-#Dispersion 2:
-dt=0.0002
-dx=1
-cp=300
-
-makewave file_out=wavelet.su dt=$dt nt=1024 fp=85 shift=1 w=g2 verbose=1
-makemod file_base=model.su \
- cp0=$cp ro0=1000 cs0=600 sizex=2100 sizez=2100 \
- dx=$dx dz=$dx orig=0,0 \
-
-../fdelmodc \
- file_cp=$filecp file_cs=$filecs file_den=$filero \
- ischeme=1 \
- file_src=wavelet.su verbose=2 \
- file_rcv=rec.su \
- file_snap=snap_disp2.su \
- xrcv1=0 xrcv2=2100 dxrcv=15 \
- zrcv1=400 zrcv2=400 \
- dtrcv=0.004 \
- xsrc=1000 zsrc=1700 nshot=1 \
- src_type=1 tmod=1.0 \
- ntaper=$ntaper \
- left=4 right=4 bottom=4 top=4 \
- tsnap1=0.1 tsnap2=1.0 dtsnap=0.4 \
- sna_type_ss=1 sna_type_pp=1 fmax=25
-
-suwind < snap_disp2_sp.su key=fldr min=2 max=2 | \
- supsimage labelsize=10 hbox=4 wbox=4 clip=2e-4 \
- x1beg=1400 x1end=2000 x2beg=700 x2end=1300 \
- label1="z [m]" label2="x [m]" f1=0 f2=0 > snap_disp2_sp.eps
-
-#stability:
-# To run this model one has to disable the error message in ../getParameters.c
-# this can be done with an undocumented parameter disable_check=1.
-# Noramly the program checks stability and then aborts the program using verr().
-dt=0.0008
-dx=1
-cp=1500
-
-makewave file_out=wavelet.su dt=$dt nt=1024 fp=85 shift=1 w=g2 verbose=1
-makemod file_base=model.su \
- cp0=$cp ro0=1000 cs0=600 sizex=2100 sizez=2100 \
- dx=$dx dz=$dx orig=0,0 \
-
-../fdelmodc \
- file_cp=$filecp file_cs=$filecs file_den=$filero \
- ischeme=1 \
- file_src=wavelet.su verbose=2 \
- file_rcv=rec.su \
- file_snap=snap_stab.su \
- xrcv1=0 xrcv2=2100 dxrcv=15 \
- zrcv1=400 zrcv2=400 \
- dtrcv=0.004 \
- xsrc=1000 zsrc=1700 nshot=1 \
- src_type=1 tmod=1.0 \
- ntaper=$ntaper \
- left=4 right=4 bottom=4 top=4 \
- tsnap1=0.1 tsnap2=1.0 dtsnap=0.4 \
- disable_check=1 \
- sna_type_ss=1 sna_type_pp=1 fmax=25
-
-suwind < snap_stab_sp.su key=fldr min=1 max=1 | \
- supsimage labelsize=10 hbox=4 wbox=4 clip=2e+16 \
- label1="z [m]" label2="x [m]" f1=0 f2=0 > snap_stab_sp.eps
-
diff --git a/fdelmodc3D/demo/fdelmodc_taper.scr b/fdelmodc3D/demo/fdelmodc_taper.scr
deleted file mode 100755
index cdb8aed52b6996561755ac5a171097d9becb81d4..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/fdelmodc_taper.scr
+++ /dev/null
@@ -1,119 +0,0 @@
-#!/bin/bash
-#PBS -N fdelmod
-#PBS -q verylong
-#PBS -l nodes=1
-#PBS -k eo
-#PBS -j eo
-#
-# Illustrates the effect of (absorbing) tapering of the edges, used in Figure 4 of the manual.
-
-#OK:
-dt=0.0002
-dx=1
-cp=1500
-clip=1
-
-makewave file_out=wavelet.su dt=$dt nt=1024 fp=85 shift=1 w=g2 verbose=1
-
-makemod file_base=model.su \
- cp0=$cp ro0=1000 cs0=600 sizex=1000 sizez=1000 \
- dx=$dx dz=$dx orig=0,0 \
-
-export filecp=model_cp.su
-export filecs=model_cs.su
-export filero=model_ro.su
-
-ntaper=0
-../fdelmodc \
- file_cp=$filecp file_cs=$filecs file_den=$filero \
- ischeme=1 \
- file_src=wavelet.su verbose=4 \
- file_rcv=rec.su \
- file_snap=snap_nodisp.su \
- xrcv1=0 xrcv2=1000 dxrcv=5 \
- zrcv1=300 zrcv2=300 \
- rec_type_vx=1 rec_type_pp=1 rec_type_ss=1 rec_int_vx=1 \
- dtrcv=0.004 \
- xsrc=500 zsrc=500 nshot=1 \
- src_type=1 tmod=1.0 \
- ntaper=$ntaper \
- left=3 right=3 bottom=3 top=3 \
- tsnap1=0.2 tsnap2=1.0 dtsnap=0.1 \
- sna_type_ss=1 sna_type_pp=1 fmax=25
-
-suwind key=fldr min=3 max=3 < snap_nodisp_sp.su | \
- supsimage \
- wbox=4 hbox=4 titlesize=-1 labelsize=10 verbose=1 \
- d2=$dx f2=0 clip=$clip \
- label1="depth [m]" label2="lateral position [m]" > snap_tap${ntaper}.eps
-
-supsimage < rec_rp.su \
- wbox=3 hbox=4 titlesize=-1 labelsize=10 clip=$clip verbose=1 \
- label1="time [s]" label2="lateral position [m]" > rec_tap${ntaper}_rp.eps
-
-
-for ntaper in 50 100;
-do
-../fdelmodc \
- file_cp=$filecp file_cs=$filecs file_den=$filero \
- ischeme=1 \
- file_src=wavelet.su verbose=4 \
- file_rcv=rec.su \
- file_snap=snap_nodisp.su \
- xrcv1=0 xrcv2=1000 dxrcv=5 \
- zrcv1=300 zrcv2=300 \
- rec_type_vx=1 rec_type_pp=1 rec_type_ss=1 rec_int_vx=1 \
- dtrcv=0.004 \
- xsrc=500 zsrc=500 nshot=1 \
- src_type=1 tmod=1.0 \
- ntaper=$ntaper \
- left=4 right=4 bottom=4 top=4 \
- tsnap1=0.2 tsnap2=1.0 dtsnap=0.1 \
- sna_type_ss=1 sna_type_pp=1 fmax=25
-
-suwind key=fldr min=3 max=3 < snap_nodisp_sp.su | \
- supsimage \
- wbox=4 hbox=4 titlesize=-1 labelsize=10 verbose=1 \
- d2=$dx f2=0 clip=$clip \
- label1="depth [m]" label2="lateral position [m]" > snap_tap${ntaper}.eps
-
-supsimage < rec_rp.su \
- wbox=3 hbox=4 titlesize=-1 labelsize=10 clip=$clip verbose=1 \
- label1="time [s]" label2="lateral position [m]" > rec_tap${ntaper}_rp.eps
-
-done
-
-
-for npml in 5 10 20;
-do
-../fdelmodc \
- file_cp=$filecp file_cs=$filecs file_den=$filero \
- ischeme=1 \
- file_src=wavelet.su verbose=4 \
- file_rcv=rec.su \
- file_snap=snap_nodisp.su \
- xrcv1=0 xrcv2=1000 dxrcv=5 \
- zrcv1=300 zrcv2=300 \
- rec_type_vx=1 rec_type_pp=1 rec_type_ss=1 rec_int_vx=1 \
- dtrcv=0.004 \
- xsrc=500 zsrc=500 nshot=1 \
- src_type=1 tmod=1.0 \
- npml=$npml \
- left=2 right=2 bottom=2 top=2 \
- tsnap1=0.2 tsnap2=1.0 dtsnap=0.1 \
- sna_type_ss=1 sna_type_pp=1 fmax=25
-
-suwind key=fldr min=3 max=3 < snap_nodisp_sp.su | \
- supsimage \
- wbox=4 hbox=4 titlesize=-1 labelsize=10 verbose=1 \
- d2=$dx f2=0 clip=$clip \
- label1="depth [m]" label2="lateral position [m]" > snap_pml${npml}.eps
-
-supsimage < rec_rp.su \
- wbox=3 hbox=4 titlesize=-1 labelsize=10 clip=$clip verbose=1 \
- label1="time [s]" label2="lateral position [m]" > rec_pml${npml}_rp.eps
-
-done
-
-exit;
-
diff --git a/fdelmodc3D/demo/fdelmodc_topography.scr b/fdelmodc3D/demo/fdelmodc_topography.scr
deleted file mode 100755
index 55d289e1a888b88fd7226afe8268bd22dd6b8439..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/fdelmodc_topography.scr
+++ /dev/null
@@ -1,80 +0,0 @@
-#!/bin/bash
-#PBS -l nodes=1
-#PBS -N InterfModeling
-#PBS -q fourweeks
-#PBS -V
-#
-# Illustrates how to place source and receivers on topography
-
-export PATH=../../bin:$PATH
-
-dt=0.0004
-ntap=120
-fmax=45
-
-makemod sizex=10000 sizez=4100 dx=5 dz=5 cp0=0 cs0=0 ro0=1000 file_base=real2.su \
- orig=0,-800 gradunit=0 \
- intt=def poly=2 cp=2450 ro=1000 gradcp=14 grad=0 cs=2000 \
- x=0,1000,1700,1800,2000,3000,4000,4500,6000,6800,7000,7500,8100,8800,10000 \
- z=-100,-200,-250,-200,-200,-120,-300,-600,-650,-500,-350,-200,-200,-150,-200 \
- intt=rough var=200,3.2,1 poly=2 x=0,3000,8000,10000 \
- z=400,250,300,500 cp=4500,4200,4800,4500 ro=1400 gradcp=5 grad=0 cs=3800,3200,4000,3800 \
- intt=def poly=2 x=0,2000,3000,5000,7000,8000,10000 \
- z=1100,1100,1100,1600,1100,1100,1100 cp=4000 cs=3000 ro=2000 gradcp=8 grad=0 \
- intt=def poly=0 x=0,10000 z=1750,2050 cp=4500,5100 cs=3800,4200 ro=1500 gradcp=13 grad=0 \
- intt=def poly=0 x=0,10000 z=1850,2150 cp=6000,4200 cs=5000 ro=1500 gradcp=14 grad=0 \
- intt=def poly=0 x=0,10000 z=1950,2250 cp=4800,4800 cs=4000 ro=1500 gradcp=5 grad=0 \
- intt=def poly=0 x=0,10000 z=2000,2300 cp=6100,5000 cs=4400 ro=1500 gradcp=13 grad=0 \
- intt=def poly=0 x=0,10000 z=2100,2400 cp=3800,5000 cs=3000,3600 ro=1500 gradcp=20 grad=0 \
- intt=def poly=0 x=0,10000 z=2150,2450 cp=5000 cs=4000 ro=1500 gradcp=14 grad=0 \
- intt=def poly=0 x=0,10000 z=2350,2650 cp=5800 cs=4200 ro=1500 gradcp=5 grad=0 \
- intt=def poly=0 x=0,10000 z=2600,2600 cp=5500 cs=4100 ro=2200 gradcp=5 grad=0
-
-sushw key=f1 a=0 < real2_cp.su | \
- sushw key=f1 a=0 | \
- supsimage hbox=6 wbox=8 labelsize=10 f2num=-5000 d2num=1000 \
- wrgb=0,0,1.0 grgb=0,1.0,0 brgb=1.0,0,0 \
- bclip=7053.02 wclip=0 label1="depth [m]" label2="lateral position [m]" \
- > model2_cp.eps
-
-
-makewave w=g2 fmax=45 t0=0.10 dt=$dt nt=4096 db=-40 file_out=G2.su verbose=1
-
-#in new FD code extendmodel is done in FD
-#extendModel file_in=real2_ro.su nafter=$ntap nbefore=$ntap nabove=0 nbelow=$ntap > vel2_edge_ro.su
-#extendModel file_in=real2_cp.su nafter=$ntap nbefore=$ntap nabove=0 nbelow=$ntap > vel2_edge_cp.su
-
-#reference
-
-../fdelmodc \
- file_cp=real2_cp.su ischeme=3 \
- file_den=real2_ro.su \
- file_cs=real2_cs.su \
- file_rcv=shot_real2_x5000_topo.su \
- file_src=G2.su \
- src_type=7 \
- dtrcv=0.004 \
- verbose=4 \
- tmod=3.104 \
- rec_delay=0.1 \
- dxrcv=20.0 \
- zrcv1=-800 \
- zrcv2=-800 \
- xrcv1=0 \
- xrcv2=10000 \
- sinkdepth=1 \
- sinkdepth_src=1 \
- src_random=0 \
- wav_random=0 \
- xsrc=5000 \
- zsrc=-500 \
- ntaper=$ntap \
- tsnap1=0.1 tsnap2=2.0 dtsnap=0.04 dxsnap=20 dzsnap=20 \
- sna_type_txx=1 sna_type_tzz=1 \
- left=4 right=4 top=1 bottom=4
-
-
- supsimage perc=99 f1=0 f2=-5000 x1end=3.004 hbox=8 wbox=6 < shot_real2_x5000_topo_rvz.su \
- label1="time (s)" label2="lateral position (m)" \
- labelsize=10 f2num=-5000 d2num=1000 d1num=0.5 > shot_real2_x5000_topo.eps
-
diff --git a/fdelmodc3D/demo/fdelmodc_visco.scr b/fdelmodc3D/demo/fdelmodc_visco.scr
deleted file mode 100755
index ecdcbb7ec691c5c3a7e99a6714c6f707f77dd234..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/fdelmodc_visco.scr
+++ /dev/null
@@ -1,109 +0,0 @@
-#!/bin/bash
-#PBS -N fdelmod
-#PBS -q verylong
-#PBS -l nodes=1
-#PBS -k eo
-#PBS -j eo
-#
-# wave propagation in visco-elastic medium
-
-export PATH=.:/home/thorbcke/bin:$PATH
-
-makewave file_out=wavelet.su dt=0.001 nt=1024 fp=13 shift=1 w=g2 verbose=1
-
-makemod file_base=model.su \
- cp0=1500 ro0=1000 cs0=600 sizex=2700 sizez=2700 orig=0,-300\
- dx=3 dz=3 \
- intt=def poly=0 cp=1550 ro=2000 cs=1200 \
- x=0,2700 z=500,500 \
- intt=def poly=0 cp=1700 ro=2500 cs=1500 \
- x=1100,1500 z=900,900 \
- verbose=1
-
-#viscoelastic Q-values
-makemod file_base=relax.su \
- cp0=20 cs0=17 ro0=1 sizex=2700 sizez=2700 orig=0,-300 \
- dx=3 dz=3 \
- intt=def poly=0 cp=18 cs=21 ro=1 \
- x=0,2700 z=500,500 \
- intt=def poly=0 cp=25 cs=26 ro=1 \
- x=1100,1500 z=900,900 \
- verbose=1
-
-export filecp=model_cp.su
-export filecs=model_cs.su
-export filero=model_ro.su
-
-export fileqp=relax_cp.su
-export fileqs=relax_cs.su
-
-export OMP_NUM_THREADS=4
-
-../fdelmodc \
- file_cp=$filecp file_cs=$filecs file_den=$filero \
- ischeme=4 \
- file_qp=$fileqp file_qs=$fileqs \
- file_src=wavelet.su verbose=1 \
- file_rcv=rec.su \
- fmax=40 \
- xrcv1=600 xrcv2=2100 dxrcv=15 \
- rec_type_vx=1 rec_type_vz=1 rec_type_ss=1 rec_type_pp=1 rec_int_vx=0 \
- zrcv1=300 zrcv2=300 \
- dtrcv=0.004 xsrc=1000 zsrc=300 nshot=1 \
- src_type=1 \
- ntaper=100 \
- left=2 right=2 bottom=2 top=2 \
- tmod=1.5 dt=0.001
-
-# tsnap1=0 tsnap2=1.5 dtsnap=0.05 \
-
-#model direct field to subtract from total field
-makemod file_base=model.su \
- cp0=1500 ro0=1000 cs0=600 sizex=2700 sizez=2700 orig=0,-300\
- dx=3 dz=3 \
- verbose=1
-
-#viscoelastic Q-values
-makemod file_base=relax.su \
- cp0=20 cs0=17 ro0=1 sizex=2700 sizez=2700 orig=0,-300\
- dx=3 dz=3 \
- verbose=1
-
-export filecp=model_cp.su
-export filecs=model_cs.su
-export filero=model_ro.su
-
-export fileqp=relax_cp.su
-export fileqs=relax_cs.su
-
-
-../fdelmodc \
- file_cp=$filecp file_cs=$filecs file_den=$filero \
- ischeme=4 \
- file_qp=$fileqp file_qs=$fileqs \
- file_src=wavelet.su verbose=1 \
- file_rcv=drec.su \
- fmax=40 \
- xrcv1=600 xrcv2=2100 dxrcv=15 \
- rec_type_vx=1 rec_type_vz=1 rec_type_ss=1 rec_type_pp=1 rec_int_vx=0 \
- zrcv1=300 zrcv2=300 \
- dtrcv=0.004 xsrc=1000 zsrc=300 nshot=1 ntaper=100 \
- src_type=1 \
- ntaper=100 \
- left=2 right=2 bottom=2 top=2 \
- tmod=1.5 dt=0.001
-
-# substract mean and plot in eps
-for rectype in rvx rvz rpp rss ;
-do
- file_rcv=rec_$rectype.su
-
- sudiff $file_rcv d$file_rcv > nep.su
-
- supsimage < nep.su hbox=4 wbox=3 titlesize=-1 labelsize=10 titlesize=-1 \
- perc=99 label1="time [s]" f2=300 d2=15 label2="receiver position in m" > viscodemo_$rectype.eps
-
-done
-
-exit;
-
diff --git a/fdelmodc3D/demo/freesurfaceP.scr b/fdelmodc3D/demo/freesurfaceP.scr
deleted file mode 100755
index bbe902a512d40954ec8c134b090750401816a4eb..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/freesurfaceP.scr
+++ /dev/null
@@ -1,88 +0,0 @@
-#!/bin/bash
-
-cp=2000
-rho=1000
-dx=5
-dt=0.0010
-
-makemod sizex=500 sizez=600 dx=$dx dz=$dx cp0=$cp ro0=$rho \
- orig=-250,0 file_base=freesurf.su \
- intt=def x=-250,250 z=200,200 poly=0 cp=2300 ro=2000 \
- verbose=1
-
-makewave fp=20 dt=$dt file_out=wave.su nt=4096 t0=0.1
-
-../fdelmodc \
- file_cp=freesurf_cp.su ischeme=1 \
- file_den=freesurf_ro.su \
- file_src=wave.su \
- file_rcv=shotP_x0z0.su \
- src_type=1 \
- verbose=2 \
- src_injectionrate=1 \
- rec_int_vz=0 \
- dtrcv=$dt \
- rec_delay=0.1 \
- tmod=1.10 \
- dxrcv=$dx \
- xrcv1=-250 xrcv2=250 \
- zrcv1=0 zrcv2=0 \
- xsrc=0 zsrc=0 \
- npml=51 \
- left=2 right=2 top=1 bottom=2
-
-fdacmod file_vel=freesurf_cp.su file_den=freesurf_ro.su \
- file_src=wave.su file_rcv=fdac_shotP_x0z0.su tmod=1.10 tapleft=1 tapright=1 tapbottom=1 \
- xsrc=0 zsrc=0
-
-exit
-makemod sizex=500 sizez=600 dx=$dx dz=$dx cp0=$cp ro0=$rho \
- orig=-250,-100 file_base=surf.su \
- intt=def x=-250,250 z=200,200 poly=0 cp=2300 ro=2000 \
- verbose=1
-
-../fdelmodc \
- file_cp=surf_cp.su ischeme=1 \
- file_den=surf_ro.su \
- file_src=wave.su \
- file_rcv=shot_x0zdx.su \
- src_type=1 \
- verbose=2 \
- src_injectionrate=1 \
- rec_int_vz=0 \
- dtrcv=$dt \
- rec_delay=0.1 \
- tmod=1.10 \
- dxrcv=$dx \
- xrcv1=-250 xrcv2=250 \
- zrcv1=0 zrcv2=0 \
- xsrc=0 zsrc=$dx \
- npml=51 \
- left=2 right=2 top=2 bottom=2
-
-../fdelmodc \
- file_cp=surf_cp.su ischeme=1 \
- file_den=surf_ro.su \
- file_src=wave.su \
- file_rcv=shot_x0z-dx.su \
- src_type=1 \
- verbose=2 \
- src_injectionrate=1 \
- rec_int_vz=0 \
- dtrcv=$dt \
- rec_delay=0.1 \
- tmod=1.10 \
- dxrcv=$dx \
- xrcv1=-250 xrcv2=250 \
- zrcv1=0 zrcv2=0 \
- xsrc=0 zsrc=-$dx \
- npml=51 \
- left=2 right=2 top=2 bottom=2
-
-suop2 shot_x0zdx_rvz.su shot_x0z-dx_rvz.su op=diff > shot_x0diff_rvz.su
-
-suop2 shot_x0diff_rvz.su shotF_x0zdx_rvz.su op=diff w1=1 w2=2 > shotF_x0diff_rvz.su
-
-(suwind key=gx min=0 max=0 < shot_x0zdx_rvz.su | sugain scale=2; suwind key=gx min=0 max=0 < shotF_x0zdx_rvz.su) | suxgraph title "with and without Free-surface "
-
-(suwind key=gx min=0 max=0 < shot_x0diff_rvz.su | sugain scale=2 ; suwind key=gx min=0 max=0 < shotF_x0zdx_rvz.su) | suxgraph
diff --git a/fdelmodc3D/demo/freesurfaceVz.scr b/fdelmodc3D/demo/freesurfaceVz.scr
deleted file mode 100755
index 41e8ab46a7a98bbc82d03d42ac2c7d24ef05d15c..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/freesurfaceVz.scr
+++ /dev/null
@@ -1,88 +0,0 @@
-#!/bin/bash
-#PBS -N fdelmod
-#PBS -q verylong
-#PBS -l nodes=7
-#PBS -k eo
-#PBS -j eo
-
-cp=2000
-rho=1000
-dx=5
-dt=0.0010
-
-makemod sizex=500 sizez=600 dx=$dx dz=$dx cp0=$cp ro0=$rho \
- orig=-250,0 file_base=freesurf.su \
- intt=def x=-250,250 z=200,200 poly=0 cp=2300 ro=2000 \
- verbose=1
-
-makewave fp=20 dt=$dt file_out=wave.su nt=4096 t0=0.1
-
-../fdelmodc \
- file_cp=freesurf_cp.su ischeme=1 \
- file_den=freesurf_ro.su \
- file_src=wave.su \
- file_rcv=shotF_x0zdx.su \
- src_type=1 \
- verbose=2 \
- src_injectionrate=1 \
- rec_int_vz=0 \
- dtrcv=$dt \
- rec_delay=0.1 \
- tmod=1.10 \
- dxrcv=$dx \
- xrcv1=-250 xrcv2=250 \
- zrcv1=0 zrcv2=0 \
- xsrc=0 zsrc=$dx \
- npml=51 \
- left=2 right=2 top=1 bottom=2
-
-makemod sizex=500 sizez=600 dx=$dx dz=$dx cp0=$cp ro0=$rho \
- orig=-250,-100 file_base=surf.su \
- intt=def x=-250,250 z=200,200 poly=0 cp=2300 ro=2000 \
- verbose=1
-
-../fdelmodc \
- file_cp=surf_cp.su ischeme=1 \
- file_den=surf_ro.su \
- file_src=wave.su \
- file_rcv=shot_x0zdx.su \
- src_type=1 \
- verbose=2 \
- src_injectionrate=1 \
- rec_int_vz=0 \
- dtrcv=$dt \
- rec_delay=0.1 \
- tmod=1.10 \
- dxrcv=$dx \
- xrcv1=-250 xrcv2=250 \
- zrcv1=0 zrcv2=0 \
- xsrc=0 zsrc=$dx \
- npml=51 \
- left=2 right=2 top=2 bottom=2
-
-../fdelmodc \
- file_cp=surf_cp.su ischeme=1 \
- file_den=surf_ro.su \
- file_src=wave.su \
- file_rcv=shot_x0z-dx.su \
- src_type=1 \
- verbose=2 \
- src_injectionrate=1 \
- rec_int_vz=0 \
- dtrcv=$dt \
- rec_delay=0.1 \
- tmod=1.10 \
- dxrcv=$dx \
- xrcv1=-250 xrcv2=250 \
- zrcv1=0 zrcv2=0 \
- xsrc=0 zsrc=-$dx \
- npml=51 \
- left=2 right=2 top=2 bottom=2
-
-suop2 shot_x0zdx_rvz.su shot_x0z-dx_rvz.su op=diff > shot_x0diff_rvz.su
-
-suop2 shot_x0diff_rvz.su shotF_x0zdx_rvz.su op=diff w1=1 w2=2 > shotF_x0diff_rvz.su
-
-(suwind key=gx min=0 max=0 < shot_x0zdx_rvz.su | sugain scale=2; suwind key=gx min=0 max=0 < shotF_x0zdx_rvz.su) | suxgraph title "with and without Free-surface "
-
-(suwind key=gx min=0 max=0 < shot_x0diff_rvz.su | sugain scale=2 ; suwind key=gx min=0 max=0 < shotF_x0zdx_rvz.su) | suxgraph
diff --git a/fdelmodc3D/demo/green_multiwave.scr b/fdelmodc3D/demo/green_multiwave.scr
deleted file mode 100755
index 52b21edf847303ea22ef6d6217f18ed77c6ec47c..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/green_multiwave.scr
+++ /dev/null
@@ -1,42 +0,0 @@
-#!/bin/bash
-#PBS -l nodes=1:ppn=2
-#PBS -N InterfModeling
-#PBS -V
-#
-
-cp=2000
-rho=1000
-dx=2.5
-dt=0.0005
-
-export PATH=../../bin:$PATH
-
-makemod sizex=2000 sizez=2000 dx=$dx dz=$dx cp0=$cp ro0=$rho orig=-1000,0 file_base=simple.su
-makewave fp=15 dt=$dt file_out=wave.su nt=4096 t0=0.1
-
-green c=$cp rho=$rho file_src=wave.su zsrc1=500 xrcv=-1000,1000 dxrcv=$dx nt=4096 dip=0 > shot_green_rp.su
-basop choice=5 file_in=shot_green_rp.su file_out=shot_green_cj.su
-
-######### MONOPOLE ACOUSTIC #######
-
-../fdelmodc \
- file_cp=simple_cp.su ischeme=1 \
- file_den=simple_ro.su \
- file_src=shot_green_cj.su \
- file_rcv=shot_fd.su \
- grid_dir=0 \
- src_type=1 \
- rec_type_p=1 \
- rec_type_vz=0 \
- rec_int_vz=2 \
- dtrcv=0.004 \
- verbose=2 \
- tmod=4.000 \
- dxrcv=5.0 \
- xrcv1=-100 xrcv2=1000 \
- zrcv1=500 zrcv2=500 \
- ntaper=100 \
- sna_type_vz=0 \
- file_snap=back0.su tsnap1=0 dtsnap=0.05 tsnap2=4.0 dxsnap=5 dzsnap=5 zsnap1=0 zsnap2=2000 xsnap1=-1000 xsnap2=1000 \
- left=4 right=4 bottom=4 top=4
-
diff --git a/fdelmodc3D/demo/interpolate_wave.scr b/fdelmodc3D/demo/interpolate_wave.scr
deleted file mode 100755
index 6112429743b247d5d491278bb06ce05bdfe890fc..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/interpolate_wave.scr
+++ /dev/null
@@ -1,38 +0,0 @@
-#!/bin/bash
-
-cp=1500
-rho=1000
-dx=2.5
-dt=0.0001
-
-makemod sizex=6000 sizez=2000 dx=$dx dz=$dx cp0=$cp cs0=$cs ro0=$rho \
- orig=-3000,0 file_base=syncl.su \
- intt=def x=-3000,0,3000 z=400,400,400 poly=0 cp=1500 ro=1500 \
- intt=def x=-3000,-2000,-1000,-800,0,800,3000 z=650,650,700,750,900,750,600 poly=2 cp=1500 ro=2000 \
- intt=def x=-3000,3000 z=1250,1250 poly=0 cp=1500 ro=1800 \
-
-export OMP_NUM_THREADS=1
-makewave fp=20 dt=0.004 file_out=wave.su nt=4096 t0=0.1
-
-../fdelmodc \
- file_cp=syncl_cp.su ischeme=1 \
- file_den=syncl_ro.su \
- file_src=wave.su \
- file_rcv=shot_fd.su \
- src_type=7 \
- src_orient=1 \
- src_injectionrate=1 \
- rec_type_vz=1 \
- rec_type_p=1 \
- dtrcv=0.0010 \
- rec_delay=0.1 \
- verbose=4 \
- tmod=4.10 \
- dt=$dt \
- dxrcv=10.0 \
- xrcv1=-2500 xrcv2=2500 \
- zrcv1=0 zrcv2=0 \
- xsrc=0 zsrc=0 \
- ntaper=101 \
- left=2 right=2 bottom=2 top=1
-
diff --git a/fdelmodc3D/demo/matlab/FD_matlab_interface.m b/fdelmodc3D/demo/matlab/FD_matlab_interface.m
deleted file mode 100644
index da2ff4e44e454de8bacadfaa831d2ef226d61507..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/matlab/FD_matlab_interface.m
+++ /dev/null
@@ -1,97 +0,0 @@
-function [ P, Vz] = FD_mod( xS, xR, tmod, dtrcv, dx, cgrid, rhogrid, orig)
-%Summary of this function goes here
-% Detailed explanation goes here
-
-% save Velocity and density grid
-dims = size(cgrid);
-fileID =fopen('mod_cp.bin','w+','l');
-fwrite(fileID,cgrid,'float32');
-fclose(fileID);
-fileID =fopen('mod_ro.bin','w+','l');
-fwrite(fileID,rhogrid,'float32');
-fclose(fileID);
-
-% Compute sizes for makemod
-sizez=(dims(1)-1)*dx;
-sizex=(dims(2)-1)*dx;
-origz=orig(1);
-origx=orig(2);
-zsrc=xS(2);
-xsrc=xS(1);
-
-%write receiver arrays to file
-dlmwrite('rcv.txt',xR, ' ');
-
-%compute dt for modeling dt < 0.606*dx/Cmax
-Cmax=max(cgrid(:));
-dxmod=dx;
-dtmax=0.606*dxmod/Cmax;
-Sdt=ceil(dtrcv/dtmax);
-dtmod=dtrcv/(Sdt);
-ntwave=16384;
-fmax=0.8/(2*dtrcv); % fmax is 80% of Nyquist frequency
-frig=0.75/(2*dtrcv);
-flef=0.05/(2*dtrcv);
-%tmod=(ntrcv-Sdt+1)*dtrcv;
-
-fileID = fopen('run.scr','w+');
-fprintf(fileID,'#!/bin/bash\n');
-fprintf(fileID,'export PATH=$HOME/src/OpenSource/bin:/opt/CWP/bin/:.:$PATH\n');
-fprintf(fileID,'which fdelmodc\n');
-%fprintf(fileID,'set -x\n');
-fprintf(fileID,'dt=%e\n',dtmod);
-fprintf(fileID,'suaddhead < mod_ro.bin ntrpr=%d ns=%d | \\\n',dims(2), dims(1));
-fprintf(fileID,'sushw key=f1,f2,d1,d2,gx,scalco a=%f,%f,%f,%f,%d,-1000 b=0,0,0,0,%d,0 > mod_ro.su\n',origz, origx, dx, dx, int32(origx*1000), int32(dx*1000));
-fprintf(fileID,'suaddhead < mod_cp.bin ntrpr=%d ns=%d | \\\n',dims(2), dims(1));
-fprintf(fileID,'sushw key=f1,f2,d1,d2,gx,scalco a=%f,%f,%f,%f,%d,-1000 b=0,0,0,0,%d,0 > mod_cp.su\n',origz, origx, dx, dx, int32(origx*1000), int32(dx*1000));
-fprintf(fileID,'makewave w=fw fmin=0 flef=%f frig=%f fmax=%f dt=$dt file_out=wavefw.su nt=%d shift=1 scale=0 scfft=1 verbose=1 >& nep\n', flef, frig, fmax, ntwave);
-fprintf(fileID,'t0=`grep shift nep | awk ''{print $6}''`\n');
-fprintf(fileID,'echo rec_delay for shift in wavelet: t0=$t0\n');
-fprintf(fileID,'tmod=$(echo "scale=4; %f+${t0}" | bc -l)\n',tmod);
-fprintf(fileID,'export filecp=mod_cp.su\n');
-fprintf(fileID,'export filero=mod_ro.su\n');
-fprintf(fileID,'export OMP_NUM_THREADS=4\n');
-fprintf(fileID,'fdelmodc \\\n');
-fprintf(fileID,'file_cp=$filecp file_den=$filero \\\n');
-fprintf(fileID,'ischeme=1 \\\n');
-fprintf(fileID,'file_src=wavefw.su verbose=1 \\\n');
-fprintf(fileID,'dt=$dt \\\n');
-fprintf(fileID,'file_rcv=recv.su \\\n');
-fprintf(fileID,'rec_type_vz=1 rec_type_p=1 rec_int_vz=2 \\\n');
-fprintf(fileID,'rcv_txt=rcv.txt \\\n');
-fprintf(fileID,'dtrcv=%e \\\n', dtrcv);
-fprintf(fileID,'xsrc=%f zsrc=%f \\\n', xsrc, zsrc);
-fprintf(fileID,'src_type=1 tmod=$tmod rec_delay=$t0 \\\n');
-fprintf(fileID,'ntaper=100 \\\n');
-fprintf(fileID,'left=2 right=2 bottom=2 top=2 \n\n');
-fprintf(fileID,'\n');
-fprintf(fileID,'sustrip < recv_rp.su > recv_rp.bin\n');
-fprintf(fileID,'sustrip < recv_rvz.su > recv_rvz.bin\n');
-fprintf(fileID,'surange < recv_rp.su | grep ns | awk ''{print $2}'' > samples\n');
-fprintf(fileID,'surange < recv_rp.su | grep traces | awk ''{print $1}'' > traces\n');
-fclose(fileID);
-!chmod +x run.scr
-system('./run.scr');
-
-path = getenv('PATH');
-path = [path ':$HOME/src/OpenSource/bin:/opt/CWP/bin/:.:'];
-setenv('PATH', path);
-
-% get number of samples and traces
-ns=dlmread('samples');
-ntr=dlmread('traces');
-
-% Pressure field
-file='recv_rp.bin';
-fid=fopen(file,'r');
-P=fread(fid,[ns,ntr],'float32');
-fclose(fid);
-
-% Particle velocity field
-file='recv_rvz.bin';
-fid=fopen(file,'r');
-Vz=fread(fid,[ns,ntr],'float32');
-fclose(fid);
-
-end
-
diff --git a/fdelmodc3D/demo/matlab/FD_mod_grid.m b/fdelmodc3D/demo/matlab/FD_mod_grid.m
deleted file mode 100644
index fcc86b9cc11f109aa05c9c5a5ae4f0c63a378c45..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/matlab/FD_mod_grid.m
+++ /dev/null
@@ -1,138 +0,0 @@
-function [ Ptsct, Pfinc, Pfsct, f_out] = FD_mod_grid( xS, xR, ntrcv, dtrcv, dx, cgrid, rhogrid, f )
-%Summary of this function goes here
-% Detailed explanation goes here
-
-% save Velocity and density grid
-dims = size(cgrid);
-fileID =fopen('mod_cp.bin','w+','l');
-fwrite(fileID,cgrid,'float32');
-fclose(fileID);
-fileID =fopen('mod_ro.bin','w+','l');
-fwrite(fileID,rhogrid,'float32');
-fclose(fileID);
-
-% Compute sizes for makemod
-sizez=(dims(1)-1)*dx;
-sizex=(dims(2)-1)*dx;
-origz=-(dims(1)-1)*dx/2
-origx=-(dims(2)-1)*dx/2
-zrcv1=xR(1)-origz;
-zrcv2=xR(1)-origz;
-xrcv1=0.0;
-xrcv2=xrcv1+(dims(2)-1)*dx;
-zsrc=xS(1)-origz;
-xsrc=xS(2)-origx;
-tmod=(ntrcv-1)*dtrcv;
-
-%compute dt for modeling dt < 0.606*dx/Cmax
-Cmax=max(cgrid(:));
-dxmod=dx;
-dtmax=0.606*dxmod/Cmax;
-dtmod=dtrcv/(ceil(dtrcv/dtmax));
-ntwave=16384;
-ntfft=4*ntrcv;
-
-fileID = fopen('run.scr','w+');
-fprintf(fileID,'#!/bin/bash\n');
-fprintf(fileID,'export PATH=$HOME/src/OpenSource/bin:/opt/CWP/bin/:.:$PATH\n');
-fprintf(fileID,'which fdelmodc\n');
-fprintf(fileID,'which surange\n');
-fprintf(fileID,'set -x\n');
-
-fprintf(fileID,'df=0.25\n');
-fprintf(fileID,'dt=%e\n',dtmod);
-fprintf(fileID,'suaddhead < mod_ro.bin ntrpr=%d ns=%d | \\\n',dims(2), dims(1));
-fprintf(fileID,'sushw key=d1,d2,gx,scalco a=%f,%f,%d,-1000 b=0,0,%d,0 > mod_ro.su\n',dx, dx, int32(xrcv1*1000), int32(dx*1000));
-fprintf(fileID,'suaddhead < mod_cp.bin ntrpr=%d ns=%d | \\\n',dims(2), dims(1));
-fprintf(fileID,'sushw key=d1,d2,gx,scalco a=%f,%f,%d,-1000 b=0,0,%d,0 > mod_cp.su\n',dx, dx, int32(xrcv1*1000), int32(dx*1000));
-fprintf(fileID,'makewave w=fw fmin=0 flef=6 frig=94 fmax=100 dt=$dt file_out=wavefw.su nt=%d t0=0.4 scale=0 scfft=1 verbose=1\n', ntwave);
-fprintf(fileID,'makewave w=fw fmin=0 flef=6 frig=94 fmax=100 dt=%f file_out=wavefwdt.su nt=%d t0=0.4 scale=0 scfft=1 verbose=1\n', dtrcv, ntfft);
-fprintf(fileID,'export filecp=mod_cp.su\n');
-fprintf(fileID,'export filero=mod_ro.su\n');
-fprintf(fileID,'export OMP_NUM_THREADS=2\n');
-fprintf(fileID,'fdelmodc \\\n');
-fprintf(fileID,'file_cp=$filecp file_den=$filero \\\n');
-fprintf(fileID,'ischeme=1 \\\n');
-fprintf(fileID,'file_src=wavefw.su verbose=1 \\\n');
-fprintf(fileID,'file_rcv=recvgrid.su \\\n');
-fprintf(fileID,'rec_type_vz=0 rec_type_p=1 rec_int_vz=2 \\\n');
-fprintf(fileID,'xrcv1=%d xrcv2=%d zrcv1=%d zrcv2=%d \\\n',xrcv1,xrcv2,zrcv1,zrcv2);
-fprintf(fileID,'dxrcv=%d \\\n', dx);
-fprintf(fileID,'dtrcv=%e \\\n', dtrcv);
-fprintf(fileID,'xsrc=%d zsrc=%d\\\n', xsrc, zsrc);
-fprintf(fileID,'src_type=1 tmod=%e \\\n', tmod);
-fprintf(fileID,'ntaper=100 \\\n');
-fprintf(fileID,'left=2 right=2 bottom=2 top=2\n\n');
-fprintf(fileID,'\n');
-fprintf(fileID,'makemod file_base=hom.su \\\n');
-fprintf(fileID,'cp0=1500 ro0=3000 sizex=%d sizez=%d dx=%.1f dz=%.1f orig=0,0 verbose=1\n', sizex,sizez, dxmod,dxmod);
-fprintf(fileID,'export filecp=hom_cp.su\n');
-fprintf(fileID,'export filero=hom_ro.su\n');
-fprintf(fileID,'fdelmodc \\\n');
-fprintf(fileID,'file_cp=$filecp file_den=$filero \\\n');
-fprintf(fileID,'ischeme=1 \\\n');
-fprintf(fileID,'file_src=wavefw.su verbose=1 \\\n');
-fprintf(fileID,'file_rcv=recvhom.su \\\n');
-fprintf(fileID,'rec_type_vz=0 rec_type_p=1 \\\n');
-fprintf(fileID,'xrcv1=%d xrcv2=%d zrcv1=%d zrcv2=%d \\\n',xrcv1,xrcv2,zrcv1,zrcv2);
-fprintf(fileID,'dxrcv=%d \\\n', dx);
-fprintf(fileID,'dtrcv=%e \\\n', dtrcv);
-fprintf(fileID,'xsrc=%d zsrc=%d\\\n', xsrc, zsrc);
-fprintf(fileID,'src_type=1 tmod=%e \\\n', tmod);
-fprintf(fileID,'ntaper=100 \\\n');
-fprintf(fileID,'left=2 right=2 bottom=2 top=2\n\n');
-fprintf(fileID,'suop2 recvgrid_rp.su recvhom_rp.su op=diff > recv_rp.su\n');
-fprintf(fileID,'sustrip < recv_rp.su > recv_rp.bin\n');
-fprintf(fileID,'sustrip < recvhom_rp.su > recvhom_rp.bin\n');
-fprintf(fileID,'sustrip < wavefwdt.su > wavefwdt.bin\n');
-fclose(fileID);
-!chmod +x run.scr
-system('./run.scr');
-
-path = getenv('PATH');
-path = [path ':$HOME/src/OpenSource/bin:/opt/CWP/bin/:.:'];
-setenv('PATH', path);
-
-% Scattered field
-ns=ntrcv;
-ntr=dims(2);
-file='recv_rp.bin';
-fid=fopen(file,'r');
-Ptsct=fread(fid,[ns,ntr],'float32');
-fclose(fid);
-
-% Direct field
-file='recvhom_rp.bin';
-fid=fopen(file,'r');
-Ptinc=fread(fid,[ns,ntr],'float32');
-fclose(fid);
-
-df=double(1.0/(ntfft*dtrcv));
-a=round(f/df)+1;
-f_out=(a-1)*df
-fprintf('selected discrete frequency P %f\n', (a-1)*df)
-% f2=a*df %these are the selected discrete frequencies
-Pfft=fft(Ptsct,ntfft);
-Pfsct=Pfft(a,:);
-%
-Pfft=fft(Ptinc,ntfft);
-Pfinc=Pfft(a,:);
-
-ns=ntfft;
-ntr=1;
-file='wavefwdt.bin';
-fid=fopen(file,'r');
-Wt=fread(fid,[ns,ntr],'float32');
-fclose(fid);
-
-df=double(1.0/(ntfft*dtrcv));
-c=round(f/df)+1; % select frequencies as close as the one's in Pf
-fprintf('selected discrete frequency W %f\n', (c-1)*df)
-Wfft=fft(Wt,ntfft);
-Wf=Wfft(c,1);
-
-Pfsct = (Pfsct)./(1.0*Wf); % deconvolve for the wavelet
-Pfinc = (Pfinc)./(1.0*Wf); % deconvolve for the wavelet
-
-end
-
diff --git a/fdelmodc3D/demo/matlab/ForwardCircle.m b/fdelmodc3D/demo/matlab/ForwardCircle.m
deleted file mode 100644
index dd67cc7d51751acbcfebbc2e76f102e621a2a4c4..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/matlab/ForwardCircle.m
+++ /dev/null
@@ -1,152 +0,0 @@
-function [P_inc,P_sct,xR] = ForwardCircle( xS, xR, gsize, dxR, c_0, c_s, rho_0, rho_s, f )
-
-% xS = source position
-% dxR = receiver grid size
-% c_0 = wave speed in embedding
-% c_s = wave speed of scattering object
-% rho_0 = mass density in embedding
-% rho_s = mass density of scattering object
-% f = temporal frequency;
-
-wavelength = c_0 / f; % wavelength
-s = 1e-16 + 1i*2*pi*f; % LaPlace parameter
-gam_0 = s/c_0; % propagation coefficient 0
-gam_s = s/c_s; % propagation coefficient s
-a = 40; % radius circle cylinder
-depth = 20; % distance betwen circle and origin
-
-disp(['wavelength = ' num2str(wavelength)]);
-
-% Thorbecke coordinates
- xSource1 = xS(1); % source position
- xSource2 = xS(2);
- xReceiver1 = xR(1); % receiver positions
- nr=(gsize(2)-1)/2;
- xReceiver2 = (-nr:nr) * dxR;
- NR = size(xReceiver2,2);
-
-% Van den Berg coordinates
- xS(1) = xSource1;
- xS(2) = xSource2;
-
- xR(1,1:NR) = xReceiver1;
- xR(2,1:NR) = xReceiver2(1:NR);
-
-% Compute 2D incident field ---------------------------------------------
- DIS = sqrt( (xR(1,:)-xS(1)).^2 + (xR(2,:)-xS(2)).^2 );
- p_inc = 1/(2*pi).* besselk(0,gam_0*DIS);
-
- % multiply by rho_0 and plot
- P_inc = rho_0 * p_inc ; % Take care of factor \rho
-
- % Make grid
- N1 = gsize(1); % number of samples in x_1
- N2 = gsize(2); % number of samples in x_2
- dx = dxR; % with meshsize dx
- x1 = -(N1+1)*dx/2 + (1:N1)*dx;
- x2 = -(N2+1)*dx/2 + (1:N2)*dx;
- [X1,X2] = ndgrid(x1,x2);
- % Now array subscripts are equivalent with Cartesian coordinates
- % x1 axis points downwards and x2 axis is in horizontal direction
- % x1 = X1(:,1) is a column vector in vertical direction
- % x2 = X2(1,:) is a row vector in horizontal direction
- R = sqrt(X1.^2 + X2.^2);
- cgrid = c_s * (R < a) + c_0 * (R >= a);
- rhogrid = rho_s * (R < a) + rho_0 * (R >= a);
-
- x1 = X1(:,1); x2 = X2(1,:);
- set(figure(8),'Units','centimeters','Position',[5 5 18 12]);
- subplot(1,2,1)
- imagesc(x2,x1,cgrid);
- title('\fontsize{13} c-grid');
- xlabel('x_1 \rightarrow');
- ylabel('\leftarrow x_3');
- axis('equal','tight');
- colorbar('hor'); colormap jet;
- subplot(1,2,2)
- imagesc(x2,x1,rhogrid);
- title('\fontsize{13} \rho-grid');
- xlabel('x_1 \rightarrow');
- ylabel('\leftarrow x_3');
- axis('equal','tight');
- colorbar('hor'); colormap jet;
-
-
-
-
-
-%-------------------------------------------------------------------------
-% CHECK EXACT INCIDENT FIELD AND BESSEL FUNCTION REPRESENTATION for r = a
-%-------------------------------------------------------------------------
-
-% Transform Cartesian coordinates to polar ccordinates
- rS = sqrt(xS(1)^2+xS(2)^2); phiS = atan2(xS(2),xS(1));
- r = a; phi = 0:.01:2*pi;
-
-% (1) Compute incident wave in closed form --------------------------------
- DIS = sqrt(rS^2 + r.^2 - 2*rS*r.*cos(phiS-phi));
- p_inc_exact = 1/(2*pi) .* besselk(0,gam_0*DIS);
- dp_inc_exact = - gam_0 *(r-rS*cos(phiS-phi))./DIS ...
- .* 1/(2*pi) .* besselk(1,gam_0*DIS);
-
-% (2) Compute incident wave as Bessel series with M+1terms --------------
- M = 100; % increase M for more accuracy
-
- p_inc = besselk(0,gam_0*rS) .* besseli(0,gam_0*r);
- dp_inc = gam_0 * besselk(0,gam_0*rS) .* besseli(1,gam_0*r);
- for m = 1 : M;
- Ib0 = besseli(m,gam_0*r);
- dIb0 = gam_0 * (besseli(m+1,gam_0*r) + m/(gam_0*r) * Ib0);
- p_inc = p_inc + 2 * besselk(m,gam_0*rS) * Ib0 .* cos(m*(phiS-phi));
- dp_inc = dp_inc + 2 * besselk(m,gam_0*rS) .* dIb0 .* cos(m*(phiS-phi));
- end % m_loop
- p_inc = 1/(2*pi) * p_inc;
- dp_inc = 1/(2*pi) * dp_inc;
-
-% (3) Determine mean error and plot error in domain -----------------------
- Error_p = p_inc - p_inc_exact;
- disp(['normalized norm of error = ' ...
- num2str(norm(Error_p(:),1)/norm(p_inc_exact(:),1))]);
- Error_dp = dp_inc - dp_inc_exact;
- disp(['normalized norm of error = ' ...
- num2str(norm(Error_dp(:),1)/norm(dp_inc_exact(:),1))]);
-
- set(figure(9),'Units','centimeters','Position',[5 5 18 14]);
- subplot(2,1,1)
- angle = phi * 180 / pi;
- semilogy(angle,abs(Error_p)./abs(p_inc_exact)); axis tight;
- xlabel('observation angle in degrees \rightarrow');
- ylabel('abs(p_{inc}-p_{inc}^{exact}) / abs(p_{inc}^{exact}) \rightarrow');
- subplot(2,1,2)
- semilogy(angle,abs(Error_dp)./abs(dp_inc_exact)); axis tight;
- title('\fontsize{12} relative error on circle boundary');
- xlabel('observation angle in degrees \rightarrow');
- ylabel('abs(dp_{inc}-dp_{inc}^{exact}) / abs(dp_{inc}^{exact}) \rightarrow');
-
-%--------------------------------------------------------------------------
-% COMPUTE SCATTERED FIELD WITH BESSEL FUNCTION REPRESENTATION for r > a
-%--------------------------------------------------------------------------
-
-% (4) Compute coefficients of series expansion ----------------------------
- Z_0 = c_0 * rho_0; Z_s = c_s * rho_s;
- arg0 = gam_0 * a; args = gam_s *a;
- A = zeros(1,M+1);
- for m = 0 : M;
- Ib0 = besseli(m,arg0); dIb0 = besseli(m+1,arg0) + m/arg0 * Ib0;
- Ibs = besseli(m,args); dIbs = besseli(m+1,args) + m/args * Ibs;
- Kb0 = besselk(m,arg0); dKb0 = -besselk(m+1,arg0) + m/arg0 * Kb0;
- A(m+1) = - ((1/Z_s) * dIbs*Ib0 - (1/Z_0) * dIb0*Ibs) ...
- /((1/Z_s) * dIbs*Kb0 - (1/Z_0) * dKb0*Ibs);
- end
-
-% (5) Compute scattered field at receivers (data) -------------------------
- rR = sqrt(xR(1,:).^2 + xR(2,:).^2); phiR = atan2(xR(2,:),xR(1,:));
- rS = sqrt(xS(1)^2 + xS(2)^2); phiS = atan2(xS(2),xS(1));
- p_sct = A(1) * besselk(0,gam_0*rS).* besselk(0,gam_0*rR);
- for m = 1 : M;
- factor = 2 * besselk(m,gam_0*rS) .* cos(m*(phiS-phiR));
- p_sct = p_sct + A(m+1) * factor .* besselk(m,gam_0*rR);
- end % m_loop
- p_sct = 1/(2*pi) * p_sct;
- P_sct = rho_0 * p_sct; % Take care of factor \rho
-end
\ No newline at end of file
diff --git a/fdelmodc3D/demo/matlab/comparison.m b/fdelmodc3D/demo/matlab/comparison.m
deleted file mode 100644
index 796e68149c957dade92e5c00dc3dce0f20e6e361..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/matlab/comparison.m
+++ /dev/null
@@ -1,83 +0,0 @@
-clear all; close all; clc;
-
-display('Running test');
-
-xS = [-100,0]; % source position: 100 m above center
-xR = [-60,0]; % central point of receiver array (-50*dxR:50*dxR)
-c_0 = 1500; % wave speed in embedding
-c_s = 3000; % wave speed in scattering object
-rho_0 = 3000; % mass density of enbedding
-rho_s = 1500; % mass density of scattering object
-
-dxR = 0.5; % receiver grid size
-gsize = [1+240/dxR,1+200/dxR]; % gridsize in [z,x], center of model at coordinate (0,0)
-f_in = 50; % selected frequency to compare, returned in Pf
-ntrcv = 256; % number of time samples in FD modeling
-dtrcv = 0.004; % dt in receivers
-
-
-% Make grid
-a = 40; % radius circle cylinder
-N1 = gsize(1); % number of samples in x_1
-N2 = gsize(2); % number of samples in x_2
-dx = dxR; % with meshsize dx
-x1 = -(N1+1)*dx/2 + (1:N1)*dx;
-x2 = -(N2+1)*dx/2 + (1:N2)*dx;
-[X1,X2] = ndgrid(x1,x2);
-% Now array subscripts are equivalent with Cartesian coordinates
-% x1 axis points downwards and x2 axis is in horizontal direction
-% x1 = X1(:,1) is a column vector in vertical direction
-% x2 = X2(1,:) is a row vector in horizontal direction
-R = sqrt(X1.^2 + X2.^2);
-cgrid = c_s * (R < a) + c_0 * (R >= a);
-rhogrid = rho_s * (R < a) + rho_0 * (R >= a);
-
-% DATA from Thorbecke's finite difference code
-[Ptsct, Pfinc, Pfsct, f_out]=FD_mod_grid( xS, xR, ntrcv, dtrcv, dxR, cgrid, rhogrid, f_in );
-
-f=f_out % nearest computed discrete frequency
-
-% Compare with analytical solution ---------------------------------------
-[P_inc,P_sct,xR] = ForwardCircle( xS, xR, gsize, dxR, c_0, c_s, rho_0, rho_s, f );
-
-set(figure(1),'Units','centimeters','Position',[1 1 30 10]);
-subplot(1,3,1)
- plot(xR(2,:),real(Pfinc),'LineWidth',1.2);
- title('Real part of P^{inc}'); axis tight; hold on;
- plot(xR(2,:),real(P_inc),'--r','LineWidth',1.2);
- axis tight; hold off;
-subplot(1,3,2)
- plot(xR(2,:),imag(Pfinc),'LineWidth',1.2);
- title('Imaginary part of P^{inc}'); axis tight; hold on;
- plot(xR(2,:),imag(P_inc),'--r','LineWidth',1.2);
- axis tight; hold off;
-subplot(1,3,3)
- plot(xR(2,:), abs(Pfinc),'LineWidth',1.2);
- title('Absolute value of P^{inc}'); axis tight; hold on;
- plot(xR(2,:), abs(P_inc),'--r','LineWidth',1.2);
- axis tight; hold off
-legendtitle1 = sprintf('f=%.2fHz FiniteDiff', f);
-legendtitle2 = sprintf('f=%.2fHz Analytic ', f);
-legend(legendtitle1,legendtitle2,'Location','Best');
-
-set(figure(2),'Units','centimeters','Position',[9 12 10 10]);
-error = abs(P_sct(:)-Pfsct(:))./abs(Pfsct(:));
-plot(error,'LineWidth',1.2); title('Relative error'); axis tight;
-
-set(figure(3),'Units','centimeters','Position',[1 1 30 10]);
-subplot(1,3,1)
- plot(xR(2,:),real(Pfsct),'LineWidth',1.2);
- title('Real part of P_{sct}'); axis tight; hold on;
- plot(xR(2,:),real(P_sct),'LineWidth',1.2);
-subplot(1,3,2)
- plot(xR(2,:),imag(Pfsct),'LineWidth',1.2);
- title('Imaginary part of P^{sct}'); axis tight; hold on;
- plot(xR(2,:),imag(P_sct),'LineWidth',1.2);
-subplot(1,3,3)
- plot(xR(2,:), abs(Pfsct),'LineWidth',1.2);
- title('Absolute value of P^{sct}'); axis tight; hold on;
- plot(xR(2,:), abs(P_sct),'LineWidth',1.2);
- axis tight; hold off
-legendtitle1 = sprintf('f=%.2fHz FiniteDiff', f);
-legendtitle2 = sprintf('f=%.2fHz Analytic ', f);
-legend(legendtitle1,legendtitle2,'Location','Best');
diff --git a/fdelmodc3D/demo/matlab/test_matlab_interface.m b/fdelmodc3D/demo/matlab/test_matlab_interface.m
deleted file mode 100644
index 7046233db61ebecbfc62ce21a53c48a73fd9ca79..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/matlab/test_matlab_interface.m
+++ /dev/null
@@ -1,47 +0,0 @@
-clear all; clc; close all; clear workspace
-
-% set number of dimensions
-global nDIM; nDIM = 2; % set dimension of space
-
- % set up spatial grid
- N1fd = 1280; N2fd = 1280; dxfd =2.13313822/5;
- x1fd = -(N1fd+1)*dxfd/2 + (1:N1fd)*dxfd;
- x2fd = -(N2fd+1)*dxfd/2 + (1:N2fd)*dxfd;
- orig = [-(N1fd+1)*dxfd/2,-(N2fd+1)*dxfd/2];
- [X1fd,X2fd] = ndgrid(x1fd,x2fd);
-
- % load model
-% filn=sprintf('sos_fidmod.bin'); fid = fopen(filn,'r'); sos_fd = fread(fid,[N1fd*N2fd],'float32'); fclose('all');
-% filn=sprintf('rho_fidmod.bin'); fid = fopen(filn,'r'); rho_fd = fread(fid,[N1fd*N2fd],'float32'); fclose('all');
-% sos_fd = reshape(sos_fd,[N1fd,N2fd]);
-% rho_fd = reshape(rho_fd,[N1fd,N2fd]);
- sos_fd = ones(N1fd,N2fd)*1500; % speed of sound
- rho_fd = ones(N1fd,N2fd)*1500; % density
-
-
- % time parameters
- Ntdf = 1024; dtdf = 10^(-3);
-
- % set up acquisition grid
- r_rec = 200; % radius of circle
- Nr = 250; % number of receivers
- rcvr_phi(1:Nr) = (1:Nr) * 2*pi/Nr; % angles
- xR = zeros(2,Nr);
- xR(1,1:Nr) = r_rec * cos(rcvr_phi);
- xR(2,1:Nr) = r_rec * sin(rcvr_phi);
- xS = xR(:,1) % choose source at first position
-
- % plot the impedance and acquisition geometry
- figure; imagesc(x1fd,x2fd,sos_fd.*rho_fd);
- hold on; scatter(xR(1,:),xR(2,:),'*b');
- hold on; scatter(xS(1,:),xS(2,:),'*r');
- xlabel('x (m)');
- ylabel('y (m)');
-
- % Call finite difference code
- [P, Vz]=FD_mod( xS.', xR.', 0.5, dtdf, dxfd, sos_fd, rho_fd, orig);
-
- % make a plot
- figure;imagesc(P);
- xlabel('angle (degrees)');
- ylabel('time (t)');
diff --git a/fdelmodc3D/demo/migrFundamentals.scr b/fdelmodc3D/demo/migrFundamentals.scr
deleted file mode 100755
index 8d3d37787451a15cedd69ee5bc379148fea9fe99..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/migrFundamentals.scr
+++ /dev/null
@@ -1,165 +0,0 @@
-#!/bin/bash
-#PBS -N fdelmod
-#PBS -q verylong
-#PBS -l nodes=1
-#PBS -k eo
-#PBS -j eo
-
-which makewave
-which makemod
-
-cd /Users/jan/src/OpenSource/fdelmodc/demo
-
-cp=2000
-rho=1000
-dx=5
-dt=0.0010
-
-makemod sizex=6000 sizez=4000 dx=$dx dz=$dx cp0=$cp cs0=$cs ro0=$rho \
- orig=-3000,-1000 file_base=syncl.su \
- intt=def x=-3000,0,3000 z=250,250,250 poly=0 cp=2300 ro=5000 \
- intt=def x=-3000,-2000,-1000,-800,0,800,3000 z=650,650,700,750,900,750,600 poly=2 cp=2600 ro=1000 \
- intt=def x=-3000,0,3000 z=1390,1390,1390 poly=0 cp=2000 ro=5000
-
-makemod sizex=5000 sizez=2500 dx=$dx dz=$dx cp0=$cp cs0=$cs ro0=$rho \
- orig=-2500,-500 file_base=model.su \
- intt=def x=-2500,0,2500 z=1000,1000,1000 poly=0 cp=2000 ro=5000 cs=1200
-
-# intt=def x=-2500,0,2500 z=500,500,500 poly=0 cp=2300 ro=5000
-
-makewave fp=20 dt=$dt file_out=wave.su nt=4096 t0=0.1
-
-../fdelmodc \
- file_cp=model_cp.su ischeme=1 \
- file_den=model_ro.su \
- file_src=wave.su \
- file_rcv=shot_x1150.su \
- src_type=1 \
- src_orient=1 \
- src_injectionrate=1 \
- rec_type_vz=0 \
- rec_type_p=1 \
- rec_int_vz=2 \
- dtrcv=0.0010 \
- rec_delay=0.1 \
- verbose=2 \
- tmod=2.10 \
- dxrcv=5.0 \
- xrcv1=-2250 xrcv2=2250 \
- zrcv1=0 zrcv2=0 \
- xsrc=0 zsrc=0 \
- ntaper=100 \
- sna_type_p=0 \
- sna_type_vz=1 \
- xsnap1=-2250 xsnap2=2250 zsnap1=0 zsnap2=2000 \
- dxsnap=10 dzsnap=10 tsnap1=0.1 tsnap2=2.1 dtsnap=0.005 \
- left=4 right=4 top=4 bottom=4
-
-
-makemod sizex=5000 sizez=2500 dx=$dx dz=$dx cp0=$cp cs0=$cs ro0=$rho \
- orig=-2500,-500 file_base=hom.su
-
-../fdelmodc \
- file_cp=hom_cp.su ischeme=1 \
- file_den=hom_ro.su \
- file_src=wave.su \
- file_rcv=shothom_x1150.su \
- file_snap=snaphom.su \
- src_type=1 \
- src_orient=1 \
- src_injectionrate=1 \
- rec_type_vz=0 \
- rec_type_p=1 \
- rec_int_vz=2 \
- dtrcv=0.0010 \
- rec_delay=0.1 \
- verbose=2 \
- tmod=2.10 \
- dxrcv=5.0 \
- xrcv1=-2250 xrcv2=2250 \
- zrcv1=0 zrcv2=0 \
- xsrc=0 zsrc=0 \
- ntaper=100 \
- sna_type_p=0 \
- sna_type_vz=1 \
- xsnap1=-2250 xsnap2=2250 zsnap1=0 zsnap2=2000 \
- dxsnap=10 dzsnap=10 tsnap1=0.1 tsnap2=2.1 dtsnap=0.005 \
- left=4 right=4 top=4 bottom=4
-
-
-sudiff shot_x1150_rp.su shothom_x1150_rp.su > shot_refl_rp.su
-sudiff shot_x1150_rvz.su shothom_x1150_rvz.su > shot_refl_rvz.su
-#sudiff snap_svz.su snaphom_svz.su > snap_refl_rp.su
-
-../fdelmodc \
- file_cp=hom_cp.su ischeme=1 \
- file_den=hom_ro.su \
- file_src=shot_refl_rp.su \
- file_rcv=shot_reverse_x1150.su \
- file_snap=snap_reverse.su \
- grid_dir=1 \
- src_type=1 \
- src_orient=1 \
- src_injectionrate=1 \
- rec_type_vz=0 \
- rec_type_p=1 \
- rec_int_vz=2 \
- dtrcv=0.0010 \
- rec_delay=0.0 \
- verbose=2 \
- tmod=2.0 \
- dxrcv=5.0 \
- xrcv1=-2250 xrcv2=2250 \
- zrcv1=0 zrcv2=0 \
- xsrc=0 zsrc=0 \
- ntaper=100 \
- sna_type_p=0 \
- sna_type_vz=1 \
- xsnap1=-2250 xsnap2=2250 zsnap1=0 zsnap2=2000 \
- dxsnap=10 dzsnap=10 tsnap1=0.0 tsnap2=2.0 dtsnap=0.005 \
- left=4 right=4 top=4 bottom=4
-
-susort < snap_reverse_svz.su -fldr +tracf > snap_reverse_svz_swap.su
-
-#suxmovie < snap_reverse_svz.su n2=451 loop=1 n3=401 clip=100 title=%g
-
-
-#fconv file_in1=snap_reverse_svz_swap.su file_in2=snap_svz.su mode=cor2 shift=0 > image_snap.su verbose=1
-#fconv file_in1=snap_reverse_svz_swap.su file_in2=snaphom_svz.su mode=cor2 shift=0 > image_snap.su verbose=1
-
-sustrip < snap_svz.su > snap_svz.bin
-sustrip < snaphom_svz.su > snaphom_svz.bin
-sustrip < snap_reverse_svz.su > snap_reverse_svz.bin
-sustrip < snap_reverse_svz_swap.su > snap_reverse_svz_swap.bin
-
-transp3d < snap_reverse_svz_swap.bin > snap_reverse_svz_swap_321.bin n1=201 n2=451 n3=401 verbose=1 nbpe=4 scratchdir="/tmp" perm=321
-transp3d < snaphom_svz.bin > snaphom_321.bin n1=201 n2=451 n3=401 verbose=1 nbpe=4 scratchdir="/tmp" perm=321
-
-
-suaddhead ns=401 ntrpr=451 < snap_reverse_svz_swap_321.bin | sushw key=fldr a=1 j=451 c=1 | \
- sushw key=dt a=1 > snap_reverse_svz_swap_321.su
-#transpose verbose=3 < snap_reverse_svz_swap_231.su > snap_reverse_svz_swap_231_tr.su
-
-suaddhead ns=401 ntrpr=451 < snaphom_321.bin | sushw key=fldr a=1 j=451 c=1 | \
- sushw key=dt a=1 > snaphom_321.su
-#transpose verbose=3 < snaphom_231.su > snaphom_231_tr.su
-
-fconv file_in1=snap_reverse_svz_swap_321.su file_in2=snaphom_321.su mode=cor2 shift=0 > image_snap.su verbose=1
-
-#suxmovie < image_snap.su n2=451 loop=1 n3=201 clip=1 title=%g
-
-sustrip < image_snap.su > image_snap.bin
-transp3d < image_snap.bin > image_snap_123.bin n3=201 n2=451 n1=401 verbose=1 nbpe=4 scratchdir="/tmp" perm=321
-
-
-i=0
-rm build_image.su
-suaddhead < image_snap_123.bin ns=201 ntrpr=451 | suwind key=tracl min=1 max=451 dt=1 > imagetmp.su
-while (( i <= 200 ))
-do
-suwind dt=1 itmin=0 itmax=$i < imagetmp.su| \
-suwind itmax=200 dt=1 >> build_image.su
- (( i = $i + 1 ))
-done
-
-sustrip < build_image.su > build_image.bin
diff --git a/fdelmodc3D/demo/migrFundamentalsl2.scr b/fdelmodc3D/demo/migrFundamentalsl2.scr
deleted file mode 100755
index 77493c44bc2df3f7c032c691c51bee483cd3caf5..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/migrFundamentalsl2.scr
+++ /dev/null
@@ -1,165 +0,0 @@
-#!/bin/bash
-#PBS -N fdelmod
-#PBS -q verylong
-#PBS -l nodes=1
-#PBS -k eo
-#PBS -j eo
-
-which makewave
-which makemod
-
-cd /Users/jan/src/OpenSource/fdelmodc/demo
-
-cp=2000
-rho=1000
-dx=5
-dt=0.0010
-
-makemod sizex=6000 sizez=4000 dx=$dx dz=$dx cp0=$cp cs0=$cs ro0=$rho \
- orig=-3000,-1000 file_base=syncl.su \
- intt=def x=-3000,0,3000 z=250,250,250 poly=0 cp=2300 ro=5000 \
- intt=def x=-3000,-2000,-1000,-800,0,800,3000 z=650,650,700,750,900,750,600 poly=2 cp=2600 ro=1000 \
- intt=def x=-3000,0,3000 z=1390,1390,1390 poly=0 cp=2000 ro=5000
-
-makemod sizex=5000 sizez=2500 dx=$dx dz=$dx cp0=$cp cs0=$cs ro0=$rho \
- orig=-2500,-500 file_base=model.su \
- intt=def x=-2500,0,2500 z=750,750,750 poly=0 cp=2000 ro=5000 cs=1200 \
- intt=def x=-2500,0,2500 z=1000,1000,1000 poly=0 cp=2000 ro=1000 cs=1200
-
-# intt=def x=-2500,0,2500 z=500,500,500 poly=0 cp=2300 ro=5000
-
-makewave fp=20 dt=$dt file_out=wave.su nt=4096 t0=0.1
-
-../fdelmodc \
- file_cp=model_cp.su ischeme=1 \
- file_den=model_ro.su \
- file_src=wave.su \
- file_rcv=shot_x1150_l2.su \
- file_snap=snap_l2.su \
- src_type=1 \
- src_orient=1 \
- src_injectionrate=1 \
- rec_type_vz=0 \
- rec_type_p=1 \
- rec_int_vz=2 \
- dtrcv=0.0010 \
- rec_delay=0.1 \
- verbose=2 \
- tmod=2.10 \
- dxrcv=5.0 \
- xrcv1=-2250 xrcv2=2250 \
- zrcv1=0 zrcv2=0 \
- xsrc=0 zsrc=0 \
- ntaper=100 \
- sna_type_p=0 \
- sna_type_vz=1 \
- xsnap1=-2250 xsnap2=2250 zsnap1=0 zsnap2=2000 \
- dxsnap=10 dzsnap=10 tsnap1=0.1 tsnap2=2.1 dtsnap=0.005 \
- left=4 right=4 top=4 bottom=4
-
-
-makemod sizex=5000 sizez=2500 dx=$dx dz=$dx cp0=$cp cs0=$cs ro0=$rho \
- orig=-2500,-500 file_base=hom.su
-
-../fdelmodc \
- file_cp=hom_cp.su ischeme=1 \
- file_den=hom_ro.su \
- file_src=wave.su \
- file_rcv=shothom_x1150_l2.su \
- file_snap=snaphom_l2.su \
- src_type=1 \
- src_orient=1 \
- src_injectionrate=1 \
- rec_type_vz=0 \
- rec_type_p=1 \
- rec_int_vz=2 \
- dtrcv=0.0010 \
- rec_delay=0.1 \
- verbose=2 \
- tmod=2.10 \
- dxrcv=5.0 \
- xrcv1=-2250 xrcv2=2250 \
- zrcv1=0 zrcv2=0 \
- xsrc=0 zsrc=0 \
- ntaper=100 \
- sna_type_p=0 \
- sna_type_vz=1 \
- xsnap1=-2250 xsnap2=2250 zsnap1=0 zsnap2=2000 \
- dxsnap=10 dzsnap=10 tsnap1=0.1 tsnap2=2.1 dtsnap=0.005 \
- left=4 right=4 top=4 bottom=4
-
-
-sudiff shot_x1150_l2_rp.su shothom_x1150_l2_rp.su > shot_refl_l2_rp.su
-
-../fdelmodc \
- file_cp=hom_cp.su ischeme=1 \
- file_den=hom_ro.su \
- file_src=shot_refl_l2_rp.su \
- file_rcv=shot_reverse_x1150_l2.su \
- file_snap=snap_reverse_l2.su \
- grid_dir=1 \
- src_type=1 \
- src_orient=1 \
- src_injectionrate=1 \
- rec_type_vz=0 \
- rec_type_p=1 \
- rec_int_vz=2 \
- dtrcv=0.0010 \
- rec_delay=0.0 \
- verbose=2 \
- tmod=2.0 \
- dxrcv=5.0 \
- xrcv1=-2250 xrcv2=2250 \
- zrcv1=0 zrcv2=0 \
- xsrc=0 zsrc=0 \
- ntaper=100 \
- sna_type_p=0 \
- sna_type_vz=1 \
- xsnap1=-2250 xsnap2=2250 zsnap1=0 zsnap2=2000 \
- dxsnap=10 dzsnap=10 tsnap1=0.0 tsnap2=2.0 dtsnap=0.005 \
- left=4 right=4 top=4 bottom=4
-
-susort < snap_reverse_l2_svz.su -fldr +tracf > snap_reverse_l2_svz_swap.su
-
-#suxmovie < snap_reverse_svz.su n2=451 loop=1 n3=401 clip=100 title=%g
-
-
-#fconv file_in1=snap_reverse_svz_swap.su file_in2=snap_svz.su mode=cor2 shift=0 > image_snap.su verbose=1
-#fconv file_in1=snap_reverse_svz_swap.su file_in2=snaphom_svz.su mode=cor2 shift=0 > image_snap.su verbose=1
-
-#sustrip < snap_l2_svz.su > snap_l2_svz.bin
-sustrip < snaphom_l2_svz.su > snaphom_l2_svz.bin
-#sustrip < snap_reverse_l2_svz.su > snap_reverse_l2_svz.bin
-sustrip < snap_reverse_l2_svz_swap.su > snap_reverse_l2_svz_swap.bin
-
-transp3d < snap_reverse_l2_svz_swap.bin > snap_reverse_l2_svz_swap_321.bin n1=201 n2=451 n3=401 verbose=1 nbpe=4 scratchdir="/tmp" perm=321
-transp3d < snaphom_l2_svz.bin > snaphom_l2_321.bin n1=201 n2=451 n3=401 verbose=1 nbpe=4 scratchdir="/tmp" perm=321
-
-suaddhead ns=401 ntrpr=451 < snap_reverse_l2_svz_swap_321.bin | sushw key=fldr a=1 j=451 c=1 | \
- sushw key=dt a=1 > snap_reverse_l2_svz_swap_321.su
-
-suaddhead ns=401 ntrpr=451 < snaphom_l2_321.bin | sushw key=fldr a=1 j=451 c=1 | \
- sushw key=dt a=1 > snaphom_l2_321.su
-
-fconv file_in1=snap_reverse_l2_svz_swap_321.su file_in2=snaphom_l2_321.su mode=cor2 shift=1 > image_l2_snap.su verbose=1
-sustrip < image_l2_snap.su > image_l2_snap.bin
-
-
-fconv file_in1=snap_reverse_l2_svz_swap_321.su file_in2=snaphom_l2_321.su mode=cor2 shift=0 > image_l2_snap.su verbose=1
-transp3d < image_l2_snap.bin > image_l2_snap_123.bin n3=201 n2=451 n1=401 verbose=1 nbpe=4 scratchdir="/tmp" perm=321
-
-suaddhead < image_l2_snap_123.bin ns=201 ntrpr=451 | suwind key=tracl min=1 max=451 dt=1 > imagetmp.su
-
-i=0
-rm build_l2_image.su
-while (( i <= 200 ))
-do
-suwind dt=1 itmin=0 itmax=$i < imagetmp.su| \
-suwind itmax=200 dt=1 >> build_l2_image.su
- (( i = $i + 1 ))
-done
-
-sustrip < build_l2_image.su > build_l2_image.bin
-
-
-
diff --git a/fdelmodc3D/demo/model.scr b/fdelmodc3D/demo/model.scr
index e7702dc877498bea890a1f5fe6908763009152a2..41b1f5c21d5f8be0c68682981569198bb58dbddd 100755
--- a/fdelmodc3D/demo/model.scr
+++ b/fdelmodc3D/demo/model.scr
@@ -4,49 +4,61 @@
#SBATCH --ntasks-per-node=40
#SBATCH --time=0:15:00
-cd $SLURM_SUBMIT_DIR
-
cp=2000
rho=1000
dx=2.5
dt=0.0005
-makemod sizex=6000 sizez=2000 dx=$dx dz=$dx cp0=$cp cs0=$cs ro0=$rho \
- orig=-3000,0 file_base=syncl.su \
- intt=def x=-3000,0,3000 z=400,400,400 poly=0 cp=2050 ro=1500 \
- intt=def x=-3000,-2000,-1000,-800,0,800,3000 z=650,650,700,750,900,750,600 poly=2 cp=2100 ro=2000 \
- intt=def x=-3000,3000 z=1250,1250 poly=0 cp=2400 ro=1800 \
+makemod sizex=1000 sizez=500 dx=$dx dz=$dx cp0=$cp cs0=$cs ro0=$rho \
+ orig=-500,0 file_base=syncl.su \
+ intt=def x=-500,0,500 z=100,100,100 poly=0 cp=2050 ro=1500 \
+ intt=def x=-500,-333,-166,-140,0,140,500 z=250,250,300,350,400,350,300 poly=2 cp=2100 ro=2000 \
+ intt=def x=-500,500 z=500,500 poly=0 cp=2400 ro=1800
+
+#extend to 3D
+ny=201
+dy=2500
+rm ro3d.su
+rm cp3d.su
+
+for (( i=0; i<$ny; i++ ));do
+
+ (( ypos = -1*($ny-1)/2 + $i ))
+ (( yloc = $dy*$ypos ))
+
+ echo $yloc
+
+ sushw < syncl_cp.su key=gy,scalel a=$yloc,-1000 >> cp3d.su
+ sushw < syncl_ro.su key=gy,scalel a=$yloc,-1000 >> ro3d.su
+
+done
makewave fp=20 dt=$dt file_out=wave.su nt=4096 t0=0.1
#
export KMP_AFFINITY=verbose,granularity=fine,compact,1,0
-for threads in 2 4 8 12 16 20 24
-do
+export OMP_NUM_THREADS=8
-export OMP_NUM_THREADS=$threads
-echo "number of threads=$threads"
-
-time ../fdelmodc \
- file_cp=syncl_cp.su ischeme=1 \
- file_den=syncl_ro.su \
+time ../fdelmodc3D \
+ file_cp=cp3d.su ischeme=1 \
+ file_den=ro3d.su \
file_src=wave.su \
- file_rcv=shot_fd.su \
+ file_rcv=shot3d_fd.su \
src_type=7 \
src_orient=1 \
src_injectionrate=1 \
rec_type_vz=1 \
- rec_type_p=1 \
- dtrcv=0.0010 \
+ rec_type_p=0 \
+ dtrcv=0.004 \
rec_delay=0.1 \
verbose=2 \
- tmod=4.10 \
+ tmod=1.10 \
dxrcv=10.0 \
- xrcv1=-2500 xrcv2=2500 \
+ xrcv1=-500 xrcv2=500 \
+ yrcv1=-250 yrcv2=250 \
zrcv1=0 zrcv2=0 \
- xsrc=0 zsrc=0 \
+ xsrc=0 zsrc=0 ysrc=0 \
ntaper=101 \
left=2 right=2 bottom=2 top=1
-done
diff --git a/fdelmodc3D/demo/modelOilGas.scr b/fdelmodc3D/demo/modelOilGas.scr
deleted file mode 100755
index 5fa26904388a3d67e07cc72a6bc7861d1b5bec16..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/modelOilGas.scr
+++ /dev/null
@@ -1,97 +0,0 @@
-#!/bin/bash
-
-export PATH=$HOME/bin:$HOME/src/OpenSource/utils:$PATH:
-
-cp=2000
-rho=2500
-dx=2.5
-dt=0.0005
-
-
-makemod sizex=5000 sizez=2500 dx=$dx dz=$dx cp0=$cp ro0=$rho \
- orig=-2500,0 file_base=syncl.su \
- intt=def x=-2500,0,2500 z=250,250,250 poly=0 cp=2300 ro=2000 \
- intt=def x=-2500,-2000,-1000,-800,0,800,2500 z=650,650,700,750,900,750,600 poly=2 cp=2600 ro=2500 \
- intt=def x=-2500,0,2500 z=1390,1390,1390 poly=0 cp=2000 ro=2000
-
-makewave w=g1 fp=20 dt=$dt file_out=wave.su nt=4096 t0=0.1
-
-export OMP_NUM_THREADS=1
-
-zsrc=1100
-zsrc=0
-
-which fdelmodc
-
-fdelmodc \
- file_cp=syncl_cp.su ischeme=1 iorder=4 \
- file_den=syncl_ro.su \
- file_src=wave.su \
- file_rcv=shot_fd.su \
- src_type=7 \
- src_orient=1 \
- src_injectionrate=0 \
- rec_type_vz=1 \
- rec_type_p=1 \
- rec_int_vz=2 \
- dtrcv=0.004 \
- rec_delay=0.1 \
- verbose=2 \
- tmod=2.01 \
- dxrcv=10.0 \
- xrcv1=-2250 xrcv2=2250 \
- zrcv1=0 zrcv2=0 \
- xsrc=0 zsrc=$zsrc \
- file_snap=snapF_$zsrc \
- tsnap1=0.1 tsnap2=2.0 dtsnap=0.05 dxsnap=$dx dzsnap=$dx \
- ntaper=101 \
- snapwithbnd=1 \
- left=2 right=2 top=2 bottom=2
-
-#suxmovie < snapF_${zsrc}_svz.su loop=1 clip=1e-13
-
-exit
-
-makemod sizex=5000 sizez=2500 dx=$dx dz=$dx cp0=$cp ro0=$rho \
- orig=-2500,0 file_base=hom.su
-
-fdelmodc \
- file_cp=hom_cp.su ischeme=1 iorder=4 \
- file_den=hom_ro.su \
- file_src=wave.su \
- file_rcv=shot_hom_fd.su \
- src_type=7 \
- src_orient=1 \
- src_injectionrate=1 \
- rec_type_vz=1 \
- rec_type_p=1 \
- rec_int_vz=2 \
- dtrcv=0.004 \
- rec_delay=0.1 \
- verbose=2 \
- tmod=4.195 \
- dxrcv=10.0 \
- xrcv1=-2250 xrcv2=2250 \
- zrcv1=0 zrcv2=0 \
- xsrc=0 zsrc=0 \
- ntaper=250 \
- left=4 right=4 top=1 bottom=4
-
-cp=2000
-rho=1000
-dx=10
-
-makemod sizex=5000 sizez=2500 dx=$dx dz=2.5 cp0=$cp ro0=$rho \
- orig=-2500,0 file_base=syncl_migr.su \
- intt=def x=-2500,0,2500 z=250,250,250 poly=0 cp=2300 ro=5000 \
- intt=def x=-2500,-2000,-1000,-800,0,800,2500 z=650,650,700,750,900,750,600 poly=2 cp=2600 ro=1000 \
- intt=def x=-2500,0,2500 z=1390,1390,1390 poly=0 cp=2000 ro=5000
-
-sudiff shot_fd_rvz.su shot_hom_fd_rvz.su > diff_rvz.su
-
-makewave fp=20 dt=0.004 file_out=wavedt.su nt=1024 t0=0.0
-
-migr file_shot=diff_rvz.su file_src=wavedt.su file_vel=syncl_migr_cp.su nshots=1 \
- file_image=migr0.su verbose=3 imc=0
-
-
diff --git a/fdelmodc3D/demo/modelOilGas.scr.ok b/fdelmodc3D/demo/modelOilGas.scr.ok
deleted file mode 100755
index 89907c0d5c8891a821c3b06d27cdbd1f25b94fdf..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/modelOilGas.scr.ok
+++ /dev/null
@@ -1,95 +0,0 @@
-#!/bin/bash
-
-#export PATH=$HOME/bin:$HOME/src/OpenSource/utils:$PATH:
-
-cp=2000
-rho=2500
-dx=2.5
-dt=0.0005
-
-
-makemod sizex=5000 sizez=2500 dx=$dx dz=$dx cp0=$cp ro0=$rho \
- orig=-2500,0 file_base=syncl.su \
- intt=def x=-2500,0,2500 z=250,250,250 poly=0 cp=2300 ro=2000 \
- intt=def x=-2500,-2000,-1000,-800,0,800,2500 z=650,650,700,750,900,750,600 poly=2 cp=2600 ro=2500 \
- intt=def x=-2500,0,2500 z=1390,1390,1390 poly=0 cp=2000 ro=2000
-
-makewave w=g1 fp=20 dt=$dt file_out=wave.su nt=4096 t0=0.1
-
-export OMP_NUM_THREADS=8
-
-zsrc=1100
-zsrc=0
-
-../fdelmodc \
- file_cp=syncl_cp.su ischeme=1 iorder=4 \
- file_den=syncl_ro.su \
- file_src=wave.su \
- file_rcv=shot_fd.su \
- src_type=7 \
- src_orient=1 \
- src_injectionrate=0 \
- rec_type_vz=1 \
- rec_type_p=1 \
- rec_int_vz=2 \
- dtrcv=0.004 \
- rec_delay=0.1 \
- verbose=2 \
- tmod=2.01 \
- dxrcv=10.0 \
- xrcv1=-2250 xrcv2=2250 \
- zrcv1=0 zrcv2=0 \
- xsrc=0 zsrc=$zsrc \
- file_snap=snapF_$zsrc \
- tsnap1=0.1 tsnap2=2.0 dtsnap=0.05 dxsnap=$dx dzsnap=$dx \
- ntaper=101 \
- snapwithbnd=1 \
- left=2 right=2 top=2 bottom=2
-
-suxmovie < snapF_${zsrc}_svz.su loop=1 clip=1e-13
-
-exit
-
-makemod sizex=5000 sizez=2500 dx=$dx dz=$dx cp0=$cp ro0=$rho \
- orig=-2500,0 file_base=hom.su
-
-fdelmodc \
- file_cp=hom_cp.su ischeme=1 iorder=4 \
- file_den=hom_ro.su \
- file_src=wave.su \
- file_rcv=shot_hom_fd.su \
- src_type=7 \
- src_orient=1 \
- src_injectionrate=1 \
- rec_type_vz=1 \
- rec_type_p=1 \
- rec_int_vz=2 \
- dtrcv=0.004 \
- rec_delay=0.1 \
- verbose=2 \
- tmod=4.195 \
- dxrcv=10.0 \
- xrcv1=-2250 xrcv2=2250 \
- zrcv1=0 zrcv2=0 \
- xsrc=0 zsrc=0 \
- ntaper=250 \
- left=4 right=4 top=1 bottom=4
-
-cp=2000
-rho=1000
-dx=10
-
-makemod sizex=5000 sizez=2500 dx=$dx dz=2.5 cp0=$cp ro0=$rho \
- orig=-2500,0 file_base=syncl_migr.su \
- intt=def x=-2500,0,2500 z=250,250,250 poly=0 cp=2300 ro=5000 \
- intt=def x=-2500,-2000,-1000,-800,0,800,2500 z=650,650,700,750,900,750,600 poly=2 cp=2600 ro=1000 \
- intt=def x=-2500,0,2500 z=1390,1390,1390 poly=0 cp=2000 ro=5000
-
-sudiff shot_fd_rvz.su shot_hom_fd_rvz.su > diff_rvz.su
-
-makewave fp=20 dt=0.004 file_out=wavedt.su nt=1024 t0=0.0
-
-migr file_shot=diff_rvz.su file_src=wavedt.su file_vel=syncl_migr_cp.su nshots=1 \
- file_image=migr0.su verbose=3 imc=0
-
-
diff --git a/fdelmodc3D/demo/model_flank.scr b/fdelmodc3D/demo/model_flank.scr
deleted file mode 100755
index 82ebafc7ec3dfaf625779735af83f36bb4aca5eb..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/model_flank.scr
+++ /dev/null
@@ -1,22 +0,0 @@
-#!/bin/bash
-#
-# builds a model which has a steep flank on the side, used in fdelmodc_srcrec.scr
-#
-
-sizex=8000
-dx=5
-dz=5
-
-makemod sizex=$sizex sizez=8000 dx=$dx dz=$dz cp0=1500 ro0=1500 \
- intt=def grad=6000 cp=3900,3900 ro=1500,1500 x=0,$sizex z=0,0\
- file_base=flank.su
-
-makemod file_base=salt.su makemod sizex=8000 sizez=8000 dx=$dx dz=$dz cp0=0 ro0=1500 intt=def poly=1 cp=4500,4500 ro=1500 x=1000,1500,2000,5000 z=6500,7200,7500,7000 intt=def poly=1 cp=4500 ro=1500 x=750,1000,1250 z=8000,6500,8000
-suflip flip=0 < salt_cp.su > saltT.su
-
-suop2 saltT.su flank_cp.su op=diff > nep.su
-suop op=posonly < nep.su > nep2.su
-suop2 nep2.su flank_cp.su op=sum > grad_salt.su
-rm nep.su nep2.su
-
-
diff --git a/fdelmodc3D/demo/modelall.scr b/fdelmodc3D/demo/modelall.scr
deleted file mode 100755
index b8678a8d9d2c7c32e219f75cbf3868f1e440aa50..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/modelall.scr
+++ /dev/null
@@ -1,74 +0,0 @@
-#!/bin/bash
-
-cd $PBS_O_WORKDIR
-
-./model_flank.scr
-
-
-cp=2000
-rho=1000
-dx=2.5
-dt=0.0005
-
-makemod sizex=6000 sizez=4000 dx=$dx dz=$dx cp0=$cp cs0=$cs ro0=$rho \
- orig=-3000,-1000 file_base=syncl.su \
- intt=def x=-3000,0,3000 z=250,250,250 poly=0 cp=2300 ro=5000 \
- intt=def x=-3000,-2000,-1000,-800,0,800,3000 z=650,650,700,750,900,750,600 poly=2 cp=2600 ro=1000 \
- intt=def x=-3000,0,3000 z=1390,1390,1390 poly=0 cp=2000 ro=5000
-
-makewave fp=20 dt=$dt file_out=wave.su nt=4096 t0=0.1
-
-
-
-mkdir jobs
-mkdir shots
-
-xsrc=-200
-fldr=0
-
-while (( fldr < 5 ))
-do
-echo $fldr $xsrc
-
-cat << EOF > jobs/pbs_$fldr.job
-#!/bin/bash
-#
-#PBS -N model
-#PBS -j eo
-#PBS -l nodes=1
-#PBS -V
-
-cd $PBS_O_WORKDIR
-
-../fdelmodc \
- file_cp=syncl_cp.su ischeme=1 \
- file_den=syncl_ro.su \
- file_src=wave.su \
- file_rcv=shots/shot_fd_xsrc${xsrc}.su \
- src_type=7 \
- src_orient=1 \
- src_injectionrate=1 \
- rec_type_vz=0 \
- rec_type_p=1 \
- rec_int_vz=2 \
- dtrcv=0.0040 \
- rec_delay=0.1 \
- verbose=2 \
- tmod=3.10 \
- dxrcv=10.0 \
- xrcv1=-2250 xrcv2=2250 \
- zrcv1=0 zrcv2=0 \
- xsrc=0 zsrc=1150 \
- ntaper=200 \
- left=4 right=4 top=4 bottom=4
-exit 0
-EOF
-
-(( xsrc += 100 ))
-
-qsub pbs_$fldr.job
-
-(( fldr += 1 ))
-done
-
-
diff --git a/fdelmodc3D/demo/modelfast1d.scr b/fdelmodc3D/demo/modelfast1d.scr
deleted file mode 100755
index 29ffc91df5268d6457bf46019a7c47bd6231c2b0..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/modelfast1d.scr
+++ /dev/null
@@ -1,46 +0,0 @@
-#!/bin/bash
-
-export PATH=$HOME/bin:$HOME/src/OpenSource/utils:$PATH:
-
-export PATH=$HOME/src/OpenSource/bin:$PATH:
-which fdelmodc
-
-dx=2.5
-dt=0.00050
-fast="fast"
-
-makemod sizex=12000 sizez=1250 dx=$dx dz=$dx cp0=1500 ro0=1000 \
- orig=-6000,0 file_base=tutodelfast1d.su verbose=2 \
- intt=def x=-6000,6000 z=300,300 poly=0 cp=1950 ro=4500 grad=0 \
- intt=def x=-6000,6000 z=600,600 poly=0 cp=2000 ro=1400 grad=0 \
- intt=def x=-6000,6000 z=900,900 poly=0 cp=2300 ro=1600 grad=0
-
-#suwind key=gx min=0 max=0 < tutodel_cp.su > tracemodel.su
-
-export OMP_NUM_THREADS=1
-makewave w=fw fmin=0 flef=5 frig=80 fmax=100 dt=$dt file_out=wavefw${fast}.su nt=8192 t0=0.4 scale=0 scfft=1
-
-../fdelmodc \
- file_cp=tutodelfast1d_cp.su ischeme=-1 iorder=4 \
- file_den=tutodelfast1d_ro.su \
- file_src=wavefw${fast}.su \
- file_rcv=shot1dE${fast}.su \
- src_type=7 \
- qr=0.0005 \
- src_orient=1 \
- src_injectionrate=1 \
- rec_type_vz=1 \
- rec_type_p=1 \
- rec_int_vz=2 \
- rec_delay=0.4 \
- dtrcv=0.004 \
- verbose=2 \
- tmod=4.494 \
- dxrcv=10.0 \
- xrcv1=-6000 xrcv2=6000 \
- zrcv1=0 zrcv2=0 \
- xsrc=0 zsrc=0 \
- tsnap2=4.4 dtsnap=0.1 dxsnap=10 dzsnap=10 \
- ntaper=400 \
- left=4 right=4 top=4 bottom=4
-
diff --git a/fdelmodc3D/demo/modelhom.scr b/fdelmodc3D/demo/modelhom.scr
deleted file mode 100755
index 4d6585fb283384c173703b162dfa741ae0c36f26..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/modelhom.scr
+++ /dev/null
@@ -1,205 +0,0 @@
-#!/bin/bash
-#PBS -q medium
-#PBS -N mod_hom
-#PBS -j eo
-#PBS -m n
-#PBS -l nodes=1
-#PBS -V
-
-export PATH=:$HOME/src/OpenSource/bin:$HOME/bin64:$PATH:
-
-cd /vardim/home/thorbcke/src/OpenSource/fdelmodc/demo
-
-dx=2.5
-dt=0.0005
-
-#shots3=var=3000,5
-#shots=var=6000,5
-
-makemod sizex=6000 sizez=900 dx=$dx dz=$dx cp0=1900 ro0=1200 \
- orig=-3000,-50 file_base=hom.su verbose=2 \
-
-
-makewave w=fw fmin=0 flef=5 frig=80 fmax=100 dt=$dt file_out=wavefw.su nt=4096 t0=0.3 scale=0 scfft=1
-
-export OMP_NUM_THREADS=4
-
-makewave fp=20 dt=$dt file_out=wave.su nt=4096 t0=0.1 scale=1
-
-../fdelmodc \
- file_cp=hom_cp.su ischeme=1 iorder=4 \
- file_den=hom_ro.su \
- file_src=wavefw.su \
- file_rcv=shot_hom.su \
- src_type=7 \
- src_orient=1 \
- src_injectionrate=1 \
- rec_type_vz=0 \
- rec_type_p=1 \
- rec_int_vz=2 \
- dtrcv=0.004 \
- rec_delay=0.3 \
- verbose=3 \
- tmod=4.394 \
- dxrcv=10.0 \
- xrcv1=-3000 xrcv2=3000 \
- zrcv1=800 zrcv2=800 \
- xsrc=0 zsrc=0 \
- ntaper=400 \
- tsnap1=0.1 tsnap2=4.0 dtsnap=0.5 \
- left=4 right=4 top=4 bottom=4
-
-
-ftr2d file_in=shot_hom_rp.su n2=901 key=dt file_out=kxw_rp.su verbose=1
-#sushw key=trid a=111 < kxw_rp.su | sugain scale=1 | suamp > H_kxw.su
-#multiply with dx*dt of receivers
-sushw key=trid a=111 < kxw_rp.su | sugain scale=0.04 | suamp > H_kxw.su
-
-suwind key=tracl s=10 j=25 itmax=227 < H_kxw.su | \
- supsgraph d1=1 f1=1 x1beg=1 linecolor=red label1="wave number" \
- wbox=6 hbox=4 style=normal labelsize=10 n2tic=2 > Hkxw_traces.eps
-
-exit
-
-makemod sizex=6000 sizez=2000 dx=$dx dz=$dx cp0=1900 ro0=1200 \
- orig=-3000,-1000 file_base=hom.su
-
-#~/bin64/fdelmodc \
- file_cp=hom_cp.su ischeme=1 iorder=4 \
- file_den=hom_ro.su \
- file_src=wave.su \
- file_rcv=shot_hom_fd.su \
- src_type=1 \
- src_orient=1 \
- src_injectionrate=1 \
- rec_type_vz=0 \
- rec_type_p=1 \
- rec_int_vz=2 \
- dtrcv=0.0010 \
- rec_delay=0.1 \
- verbose=2 \
- tmod=4.195 \
- dxrcv=10.0 \
- xrcv1=-2250 xrcv2=2250 \
- zrcv1=0 zrcv2=0 \
- xsrc=0 zsrc=0 \
- ntaper=400 \
- left=4 right=4 top=4 bottom=4
-
-sudiff shot_fd_rp.su shot_hom_fd_rp.su > shot_rp.su
-
-migr file_shot=shot_rp.su file_vel=scatter_migr_cp.su imc=0 file_image=image.su verbose=1
-
-exit
-
-makemod sizex=6000 sizez=4000 dx=$dx dz=$dx cp0=$cp cs0=$cs ro0=$rho \
- orig=-3000,-1000 file_base=synclTop.su \
- intt=def x=-3000,0,3000 z=200,200,200 poly=0 cp=1800 ro=5000 \
- intt=def x=-3000,-2000,-1000,-400,0,200,900,1800,3000 z=520,520,560,670,950,790,600,520,500 poly=2 cp=2300 ro=1800 \
-
-~/bin64/fdelmodc \
- file_cp=synclTop_cp.su ischeme=1 iorder=4 \
- file_den=synclTop_ro.su \
- file_src=wave.su \
- file_rcv=p0.su \
- src_type=7 \
- src_orient=1 \
- src_injectionrate=1 \
- rec_type_vz=0 \
- rec_type_p=1 \
- rec_int_vz=2 \
- dtrcv=0.0010 \
- rec_delay=0.1 \
- verbose=2 \
- tmod=2.100 \
- dxrcv=10.0 \
- xrcv1=-2250 xrcv2=2250 \
- zrcv1=0 zrcv2=0 \
- xsrc=0 zsrc=1100 \
- ntaper=300 \
- left=4 right=4 top=4 bottom=4 &
-
-~/bin64/fdelmodc \
- file_cp=synclTop_cp.su ischeme=1 iorder=4 \
- file_den=synclTop_ro.su \
- file_src=wave.su \
- file_rcv=shot_top.su \
- src_type=7 \
- src_orient=1 \
- src_injectionrate=1 \
- rec_type_vz=0 \
- rec_type_p=1 \
- rec_int_vz=2 \
- dtrcv=0.0010 \
- rec_delay=0.1 \
- verbose=2 \
- tmod=4.195 \
- dxrcv=10.0 \
- xrcv1=-2250 xrcv2=2250 \
- zrcv1=0 zrcv2=0 \
- xsrc=0 zsrc=0 \
- ntaper=300 \
- left=4 right=4 top=4 bottom=4 &
-
-makemod sizex=6000 sizez=4000 dx=$dx dz=$dx cp0=2300 ro0=1800 \
- orig=-3000,-1000 file_base=synclBot.su \
- intt=def x=-3000,0,3000 z=1310,1310,1310 poly=0 cp=2450 ro=1950 \
- intt=def x=-3000,3000 z=1380,1380 poly=0 cp=2460 ro=1820 \
- intt=def x=-3000,0,3000 z=1490,1490,1570 poly=0 cp=2470 ro=2100 \
- intt=def x=-3000,3000 z=1580,1580 poly=0 cp=2480 ro=2000 \
- intt=def x=-3000,3000 z=1680,1680 poly=0 cp=2490 ro=1850
-
-~/bin64/fdelmodc \
- file_cp=synclBot_cp.su ischeme=1 iorder=4 \
- file_den=synclBot_ro.su \
- file_src=wave.su \
- file_rcv=pRef.su \
- src_type=7 \
- src_orient=1 \
- src_injectionrate=1 \
- rec_type_vz=0 \
- rec_type_p=1 \
- rec_int_vz=2 \
- dtrcv=0.0010 \
- rec_delay=0.1 \
- verbose=2 \
- tmod=2.100 \
- dxrcv=10.0 \
- xrcv1=-2250 xrcv2=2250 \
- zrcv1=1100 zrcv2=1100 \
- xsrc=0 zsrc=1100 \
- ntaper=300 \
- left=4 right=4 top=4 bottom=4 &
-
-makemod sizex=6000 sizez=4000 dx=$dx dz=$dx cp0=2300 ro0=1800 \
- orig=-3000,-1000 file_base=synclBotHom.su
-
-~/bin64/fdelmodc \
- file_cp=synclBotHom_cp.su ischeme=1 iorder=4 \
- file_den=synclBotHom_ro.su \
- file_src=wave.su \
- file_rcv=pRefHom.su \
- src_type=7 \
- src_orient=1 \
- src_injectionrate=1 \
- rec_type_vz=0 \
- rec_type_p=1 \
- rec_int_vz=2 \
- dtrcv=0.0010 \
- rec_delay=0.1 \
- verbose=2 \
- tmod=2.100 \
- dxrcv=10.0 \
- xrcv1=-2250 xrcv2=2250 \
- zrcv1=1100 zrcv2=1100 \
- xsrc=0 zsrc=1100 \
- ntaper=300 \
- left=4 right=4 top=4 bottom=4 &
-
-wait
-
-
-sudiff shot_fd_rp.su shot_hom_fd_rp.su > shot_rp.su
-sudiff shot_top_rp.su shot_hom_fd_rp.su > shotTop_rp.su
-sudiff pRef_rp.su pRefHom_rp.su > pref_rp.su
-
diff --git a/fdelmodc3D/demo/modelling b/fdelmodc3D/demo/modelling
deleted file mode 100755
index ec8e9996686123c5e179859233d6cfffcc6c6941..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/modelling
+++ /dev/null
@@ -1,213 +0,0 @@
-#!/bin/bash
-#PBS -l nodes=1
-#PBS -N InterfModeling
-#PBS -q fourweeks
-#PBS -V
-#
-# demo for generation of random source signature at random positions
-#export PATH=../../bin:$PATH
-
-#========================================================================================
-# My COMMENTS
-#========================================================================================
-
-
-#define the parameters
-#------------------------------------------------------------------------------------
-# the wavelet paremeters
-t0=0.1
-nt=10000
-db=-40
-fp=60
-dt=0.0001
-file_src=wavelet.su
-verbose=4
-ntap=400
-
-# the model parameters
-dx=1
-dz=1
-sizex=2000
-sizez=1200
-modelname=model
-
-# plot parameters
-perc=96
-WIDTH=800
-HEIGHT=600
-WIDTHOFF1=80
-HEIGHTOFF1=60
-labelsize=10
-titlesize=12
-label11="time [s]"
-label12="amplitude"
-label13="frequency [hz]"
-label21="depth [m]"
-label22="lateral position [m]"
-label31="time [s]"
-label32="lateral position [m]"
-blockinterp=1
-legend=1
-units1="m/s"
-units2="kg/m3"
-scale=3200
-clip=1e-10
-wclip=0
-bclip=${scale}
-loop=1
-n1=1201
-n2=2001
-n3=10
-f1=0.0
-f2=0.0
-
-#make the wavelet
-#--------------------------------------------------------------------------------------------
-makewave w=g2 fp=$fp t0=$t0 dt=$dt nt=$nt db=$db file_out=${file_src} verbose=${verbose} \
-
-# plot the source wavelet and it's amplitude
-supsgraph < wavelet.su style=normal \
- labelsize=${labelsize} label2="${label12}" label1="${label11}" \
- titlesize=${titlesize} d1num=0.05 x1end=0.2 > wavelet.eps
-
-sufft < wavelet.su | suamp | supsgraph style=normal \
- labelsize=${labelsize} label2="${label12}" label1="${label13}" \
- titlesize=${titlesize} d2num=20 x2end=100 d1num=10 x1end=200 > wavelet_ampl.eps
-
-
-#make the velocity and desity model
-#--------------------------------------------------------------------------------------------
-makemod file_base=$modelname.su verbose=${verbose} \
- cp0=2500 ro0=1900 cs0=1700 sizex=$sizex sizez=$sizez \
- dx=$dx dz=$dz orig=0,0 \
- intt=def poly=0 cp=2900 ro=2400 cs=2000 \
- x=0,2000 z=600,600 gradcp=0 gradcs=0 grad=0 \
-
-
-# extend model for absorbing boundaries
-extendModel file_in=${modelname}_ro.su nafter=$ntap nbefore=$ntap nbelow=$ntap > ${modelname}_edge_ro.su
-extendModel file_in=${modelname}_cp.su nafter=$ntap nbefore=$ntap nbelow=$ntap > ${modelname}_edge_cp.su
-extendModel file_in=${modelname}_cs.su nafter=$ntap nbefore=$ntap nbelow=$ntap > ${modelname}_edge_cs.su
-
-# plot the velocity and desity model
-supsimage < ${modelname}_cp.su \
- labelsize=${labelsize} titlesize=${titlesize} verbose=${verbose} \
- label1="${label21}" label2="${label22}" blockinterp=${blockinterp} legend=${legend} units="${units1}" \
- > ${modelname}_cp.eps
-
-supsimage < ${modelname}_ro.su \
- labelsize=${labelsize} titlesize=${titlesize} verbose=${verbose} \
- label1="${label21}" label2="${label22}" blockinterp=${blockinterp} legend=${legend} units="${units2}" \
- > ${modelname}_ro.eps
-
-supsimage < ${modelname}_cs.su \
- labelsize=${labelsize} titlesize=${titlesize} verbose=${verbose} \
- label1="${label21}" label2="${label22}" blockinterp=${blockinterp} legend=${legend} units="${units1}" \
- > ${modelname}_cs.eps
-
-
-
-#---------------------------------------------------------------------------------------------------
-# Do the forword modeling
-fdelmodc \
- ischeme=3 \
- file_cp=model_edge_cp.su \
- file_cs=model_edge_cs.su \
- file_den=model_edge_ro.su \
- file_rcv=recv.su \
- file_snap=snap.su \
- file_src=wavelet.su \
- src_type=1 \
- src_orient=1 \
- xsrc=1000 \
- zsrc=0 \
- nshot=1 \
- dxshot=40 \
- wav_random=0 \
- xrcv1=0 \
- xrcv2=2000 \
- dxrcv=20 \
- zrcv1=0 \
- zrcv2=0 \
- dzrcv=0 \
- dtrcv=0.002 \
- rec_type_tzz=1 \
- rec_type_vz=1 \
- rec_type_vx=1 \
- rec_int_vz=2 \
- rec_int_vx=2 \
- tsnap1=0.1 \
- tsnap2=1.0 \
- dtsnap=0.1 \
- xsnap1=0\
- xsnap2=2000 \
- zsnap1=0 \
- zsnap2=1200 \
- sna_type_tzz=1 \
- sna_type_vz=1 \
- sna_type_vx=1 \
- tmod=1 \
- cfree=1 \
- boundary=2 \
- ntaper=400 \
- taptop=0 \
- tapleft=1 \
- tapright=1 \
- tapbottom=1 \
- verbose=${verbose}
-
-
-exit
-
-
-# Plot the src_rec positions, seismograms and snapshots
-#--------------------------------------------------------------------------------------------
-# Seismograms of P/Tzz, vz, vx.
-supsimage < recv_rtzz.su perc=${perc} \
- labelsize=${labelsize} titlesize=${titlesize} verbose=${verbose} \
- label1="${label31}" label2="${label32}" > recv_rtzz.eps
-
-supsimage < recv_rvz.su perc=${perc} \
- labelsize=${labelsize} titlesize=${titlesize} verbose=${verbose} \
- label1="${label31}" label2="${label32}" > recv_rvz.eps
-
-supsimage < recv_rvx.su perc=${perc} \
- labelsize=${labelsize} titlesize=${titlesize} verbose=${verbose} \
- label1="${label31}" label2="${label32}" > recv_rvx.eps
-
-# Make the image of snapshots of P/Tzz, vz, vx
-supsmovie < snap_stzz.su perc=${perc} labelsize=${labelsize} titlesize=${titlesize} verbose=${verbose} \
- title="Wavefield of P (dt=${dtsnap} s; source at x=${xsrc} m, z=${zsrc} m)" \
- label1="${label21}" label2="${label22}" title2="Frame" \
- n1=${n1} n2=${n2} n3=${n3} f1=${f1} f2=${f2} \
- > snap_stzz.eps
-#ps2pdf snap_sp.ps
-
-supsmovie < snap_svz.su perc=${perc} labelsize=${labelsize} titlesize=${titlesize} verbose=${verbose} \
- title="Wavefield of Svz (dt=${dtsnap} s; source at x=${xsrc} m, z=${zsrc} m)" \
- label1="${label21}" label2="${label22}" title2="Frame" \
- n1=${n1} n2=${n2} n3=${n3} f1=${f1} f2=${f2} \
- > snap_svz.eps
-#ps2pdf snap_svz.ps
-
-supsmovie < snap_svx.su perc=${perc} labelsize=${labelsize} titlesize=${titlesize} verbose=${verbose} \
- title="Wavefield of Svx (dt=${dtsnap} s; source at x=${xsrc} m, z=${zsrc} m)" \
- label1="${label21}" label2="${label22}" title2="Frame" \
- n1=${n1} n2=${n2} n3=${n3} f1=${f1} f2=${f2} \
- > snap_svx.eps
-#ps2pdf snap_svx.ps
-
-# Shift the record wavefield by wavelet delay "-${t0}"
-basop file_in=recv_rtzz.su choice=shift shift=-${t0} nxmax=${nxmax} ntmax=${ntmax} dx=${dxrcv} > recv_rtzzs.su
-basop file_in=recv_rvx.su choice=shift shift=-${t0} nxmax=${nxmax} ntmax=${ntmax} dx=${dxrcv} > recv_rvxs.su
-basop file_in=recv_rvz.su choice=shift shift=-${t0} nxmax=${nxmax} ntmax=${ntmax} dx=${dxrcv} > recv_rvzs.su
-
-# To show a movie of the P snapshots
-suxmovie < snap_stzz.su clip=${clip} loop=${loop} \
- -geometry ${WIDTH}x${HEIGHT}+${WIDTHOFF1}+${HEIGHTOFF1}
-
-
-exit
-
-
-
diff --git a/fdelmodc3D/demo/staal.scr b/fdelmodc3D/demo/staal.scr
deleted file mode 100755
index a99d0a59fa1444de173a8c3dca12d149049d9712..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/staal.scr
+++ /dev/null
@@ -1,20 +0,0 @@
-#!/bin/bash
-
-makemod file_base=betonplaat3.su cp0=3700 ro0=2400 cs0=3400 verbose=1 sizex=5000 sizez=300 dx=5.0 dz=5.0
-
-makewave file_out=betonplaatwave.su dt=1.0e-4 nt=10000 w=g2 shift=1 fp=6 verbose=1
-
-../fdelmodc file_cp=betonplaat3_cp.su file_cs=betonplaat3_cs.su \
-file_den=betonplaat3_ro.su file_src=betonplaatwave.su \
-file_rcv=betonplaat2recv.su file_snap=betonplaat2snap.su \
-ischeme=3 tmod=5 \
-top=1 left=4 right=1 bottom=1 \
-src_type=3 xsrc=2500 zsrc=0.0 \
-tsnap1=1.0e-2 tsnap2=5 dtsnap=1.0e-2 dxsnap=5.0 dzsnap=5.0 \
-dtrcv=1.0e-2 verbose=1
-
-!sufrac power=1 < betonplaat3recv_rvz.su > sufracbetonplaat3.su
-!sustrip < sufracbetonplaat3.su | b2a n1=2051 > Sufrac_betonplaat3_Tzz.txt
-!suximage<sufracbetonplaat3.su title="FDM shot record Concrete Slab Sourcetype=Tzz [Left=4 Right=1]" label2="Lateral Position [mm]"
-label1="Time [ms]" wbox=2500 hbox=500 cmap=hsv2 legend=1
-
diff --git a/fdelmodc3D/demo/test2.scr b/fdelmodc3D/demo/test2.scr
deleted file mode 100755
index 6694fae2966e32d49e4be0f73e4aeb8b0ae48c2e..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/test2.scr
+++ /dev/null
@@ -1,49 +0,0 @@
-#!/bin/bash
-
-#-----------------------------------------------------------------------------
-# Modeling of acoustic response of multiple source acquisition
-# Horizontal model
-#
-# Author: Abdulmohsen AlAli, Delft University of Technology
-# Date : March 2014
-#-----------------------------------------------------------------------------
-dx=4 #max(dx,dz)<v_min/(5*f_max)
-dt=0.0005 #dt<(0.606*min(dx,dz))/v_max
-tmod=1.5
-nt=1024
-script=5
-w_z=wave_${script}.su
-file_in_ro=model_3lay_base_${script}_ro.su
-file_in_cp=model_3lay_base_${script}_cp.su
-#-----------------------------------------------------------------------------
-# Making a wavelet
-#-----------------------------------------------------------------------------
-makewave w=g2 t0=0.05 fp=20 dt=$dt nt=$nt file_out=$w_z
-### end of making of wavelet ###
-#-----------------------------------------------------------------------------
-# Making a model
-#-----------------------------------------------------------------------------
-makemod file_base=model_3lay_base_${script}.su sizex=8000 sizez=2000 \
-dx=$dx dz=$dx cp0=1850 ro0=2000 \
-intt=def poly=0 x=0,8000 z=1000,1000 cp=2800 ro=2200 \
-intt=def poly=0 x=0,8000 z=1600,1600 cp=3600 ro=2600 \
-### end of making of model ###
-#-----------------------------------------------------------------------------
-# fdelmodc a model
-#-----------------------------------------------------------------------------
-### the fdacmod loop for creating the transmission panels ###
- xsrc=4000
- file_out=5_refl_3lay_base_active_multSRC_${xsrc}.su
- echo $xsrc
- ../fdelmodc file_cp=$file_in_cp file_den=$file_in_ro file_src=$w_z \
- ischeme=1 tmod=$tmod ntaper=200 left=4 right=4 \
- bottom=4 top=1 src_type=7 xsrc=$xsrc zsrc=0 \
- xrcv1=3232 xrcv2=4756 dxrcv=12 zrcv1=90 zrcv2=90 rec_type_p=1 \
- rec_type_vz=1 file_rcv=$file_out dtrcv=0.004 verbose=4 \
- src_injectionrate=0
-
- #tsnap1=0.1 tsnap2=1.1 dtsnap=0.25 sna_type_vz=0 verbose=1
-
-exit
-
-
diff --git a/fdelmodc3D/demo/testFreeSurface.scr b/fdelmodc3D/demo/testFreeSurface.scr
deleted file mode 100755
index d4591319a6c5cf0453ab6937488bc7787e3e9cad..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/testFreeSurface.scr
+++ /dev/null
@@ -1,48 +0,0 @@
-#!/bin/bash
-#PBS -N fdelmod
-#PBS -q verylong
-#PBS -l nodes=1
-#PBS -k eo
-#PBS -j eo
-
-which makewave
-which makemod
-
-cd /Users/jan/src/OpenSource/fdelmodc/demo
-
-cp=2000
-rho=1000
-dx=4
-dt=0.0010
-
-makemod sizex=3000 sizez=1000 dx=$dx dz=$dx cp0=$cp ro0=$rho cs0=1500 \
- orig=-1500,0 file_base=freesurf.su \
- intt=def x=-1500,0,1500 z=20,20,20 poly=0 cp=2300 ro=2000 cs=1600 \
- intt=def x=-1500,0,1500 z=50,50,50 poly=0 cp=2100 ro=1400 cs=1300
-
-makewave fp=20 dt=$dt file_out=wave.su nt=4096 t0=0.1
-
-../fdelmodc \
- file_cp=freesurf_cp.su ischeme=3 \
- file_cs=freesurf_cs.su \
- file_den=freesurf_ro.su \
- file_src=wave.su \
- file_rcv=shot_x0.su \
- src_type=7 \
- src_orient=1 \
- src_injectionrate=1 \
- rec_type_vz=1 \
- rec_type_p=1 \
- rec_type_tzz=0 \
- rec_int_vz=2 \
- dtrcv=0.0010 \
- rec_delay=0.1 \
- verbose=1 \
- tmod=1.10 \
- dxrcv=8.0 \
- xrcv1=-1500 xrcv2=1500 \
- zrcv1=0 zrcv2=0 \
- xsrc=0 zsrc=0 \
- ntaper=300 \
- left=4 right=4 top=1 bottom=4
-
diff --git a/fdelmodc3D/demo/test_free_elastic.scr b/fdelmodc3D/demo/test_free_elastic.scr
deleted file mode 100755
index 6e72ed58c6289af4aeab7db86f4f672e04037c1e..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/test_free_elastic.scr
+++ /dev/null
@@ -1,95 +0,0 @@
-#!/bin/bash
-#PBS -N fdelmodc
-#PBS -k eo
-#PBS -j eo
-#
-# Models plane wave at depth to receivers at the surface, including snapshots
-export PATH=../../utils:$PATH:
-
-makewave file_out=wavelet.su dt=0.001 nt=1024 fp=13 shift=1 w=g2 verbose=1
-
-makemod file_base=model.su \
- cp0=1500 ro0=1000 cs0=600 sizex=2100 sizez=2100 \
- dx=3 dz=3 orig=0,0 \
- intt=def poly=0 cp=1650 ro=2000 cs=1000 \
- x=0,2100 z=500,500 gradcp=0.5 grad=100 \
- intt=def poly=1 cp=1800 ro=2500 cs=1200 \
- x=0,800,1200,2100 z=900,1400,1400,1200 gradcp=0 grad=0 \
- verbose=4
-
-export filecp=model_cp.su
-export filecs=model_cs.su
-export filero=model_ro.su
-
-export OMP_NUM_THREADS=1
-
-../fdelmodc \
- file_cp=$filecp file_cs=$filecs file_den=$filero \
- ischeme=1 \
- file_src=wavelet.su verbose=4 \
- file_rcv=rec.su \
- file_snap=snap.su \
- xrcv1=0 xrcv2=2100 dxrcv=15 \
- zrcv1=400 zrcv2=400 \
- rec_type_vx=1 rec_type_pp=1 rec_type_ss=1 rec_int_vx=1 \
- dtrcv=0.004 \
- xsrc=1000 zsrc=1700 nshot=1 plane_wave=1 nsrc=301 \
- src_type=1 tmod=3.0 src_velo=1800 src_angle=5 \
- ntaper=120 \
- left=4 right=4 bottom=4 top=4 \
- tsnap1=0.1 tsnap2=3.0 dtsnap=0.1 \
- sna_type_ss=1 sna_type_pp=1
-
-exit;
-
-# to show a movie of the snapshots
-#suxmovie < snap_svz.su perc=99 loop=1
-
-# to reproduce the images in the manual use:
-supsimage < model_cp.su \
- wbox=4 hbox=4 titlesize=-1 labelsize=10 verbose=1 \
- d2=3 f2=0 wrgb=1.0,0,0 grgb=0,1.0,0 brgb=0,0,1.0 bps=24 \
- label1="depth [m]" label2="lateral position [m]" > model_plane.eps
-
-supsimage < SrcRecPositions.su \
- wbox=4 hbox=4 titlesize=-1 labelsize=10 verbose=1 \
- d2=3 f2=0 wclip=-1 bclip=1 \
- gabel1="depth [m]" label2="lateral position [m]" > SrcRecPositions.eps
-
-suop2 model_cp.su SrcRecPositions.su w1=1 w2=2000 op=sum | \
- supsimage wclip=1400 bclip=2000 \
- wbox=4 hbox=4 titlesize=-1 labelsize=10 verbose=1 \
- d2=3 f2=0 wrgb=1.0,0,0 grgb=0,1.0,0 brgb=0,0,1.0 bps=24 \
- label1="depth [m]" label2="lateral position [m]" > model_plane_src.eps
-
-supsimage < rec_rvz.su \
- wbox=3 hbox=4 titlesize=-1 labelsize=10 clip=1e-10 verbose=1 \
- label1="time [s]" label2="lateral position [m]" > rec_plane_rvz.eps
-
-supsimage < rec_rpp.su \
- wbox=3 hbox=4 titlesize=-1 labelsize=10 clip=1e-11 verbose=1 \
- label1="time [s]" label2="lateral position [m]" > rec_plane_rpp.eps
-
-supsimage < rec_rss.su \
- wbox=3 hbox=4 titlesize=-1 labelsize=10 clip=1e-11 verbose=1 \
- label1="time [s]" label2="lateral position [m]" > rec_plane_rss.eps
-
-#snapshots
-for file in snap_svz snap_spp snap_sss; do
-
-suwind < $file.su key=fldr min=$ifldr max=$ifldr > nep1.su
-while (( ifldr < 12 ))
-do
-(( ifldr += 4 ))
-echo $ifldr
-suwind < $file.su key=fldr min=$ifldr max=$ifldr > nep2.su
-susum nep2.su nep1.su > snaps.su
-mv snaps.su nep1.su
-done
-
-supsimage < nep1.su \
- wbox=4 hbox=4 titlesize=-1 labelsize=10 verbose=1 \
- d2=3 f2=0 perc=99 \
- label1="depth [m]" label2="lateral position [m]" > ${file}_snap.eps
-done
-
diff --git a/fdelmodc3D/demo/virtualshot.scr b/fdelmodc3D/demo/virtualshot.scr
deleted file mode 100755
index 1e89a565bd37d21e504377237da3d50f0908b426..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/virtualshot.scr
+++ /dev/null
@@ -1,53 +0,0 @@
-#!/bin/bash
-#PBS -N fdelmod
-#PBS -q verylong
-#PBS -l nodes=1
-#PBS -k eo
-#PBS -j eo
-
-which makewave
-which makemod
-
-cd /Users/jan/src/OpenSource/fdelmodc/demo
-
-#makewave fp=20 dt=$dt file_out=wave.su nt=4096 t0=0.1
-#makewave w=fw fmin=0 flef=5 frig=80 fmax=100 dt=$dt file_out=wavefw.su nt=4096 t0=0.3
-
-cp=2000
-rho=1000
-dx=2.5
-dt=0.0005
-
-makemod sizex=6000 sizez=4000 dx=$dx dz=$dx cp0=$cp cs0=$cs ro0=$rho \
- orig=-3000,-1000 file_base=syncl.su \
- intt=def x=-3000,0,3000 z=250,250,250 poly=0 cp=2300 ro=5000 \
- intt=def x=-3000,-2000,-1000,-800,0,800,3000 z=650,650,700,750,900,750,600 poly=2 cp=2600 ro=1000 \
- intt=def x=-3000,0,3000 z=1390,1390,1390 poly=0 cp=2000 ro=5000
-
-makewave fp=20 dt=$dt file_out=wave.su nt=4096 t0=0.1
-
-export OMP_NUM_THREADS=1
-
-../fdelmodc \
- file_cp=syncl_cp.su ischeme=1 \
- file_den=syncl_ro.su \
- file_src=wave.su \
- file_rcv=shot_fd_Fz_zsrc1150.su \
- src_type=7 \
- src_orient=1 \
- src_injectionrate=1 \
- rec_type_vz=0 \
- rec_type_p=1 \
- rec_int_vz=2 \
- dtrcv=0.0040 \
- rec_delay=0.1 \
- verbose=2 \
- tmod=0.30 \
- dxrcv=10.0 \
- xrcv1=-2250 xrcv2=2250 \
- zrcv1=0 zrcv2=0 \
- xsrc=0 zsrc=1150 \
- ntaper=200 \
- left=4 right=4 top=4 bottom=4
-
-
diff --git a/fdelmodc3D/demo/vsp.scr b/fdelmodc3D/demo/vsp.scr
deleted file mode 100755
index 4e4c79308ceff757c6fe54bd37ae8ff1221c52b9..0000000000000000000000000000000000000000
--- a/fdelmodc3D/demo/vsp.scr
+++ /dev/null
@@ -1,82 +0,0 @@
-#!/bin/bash
-#PBS -N fdelmod
-#PBS -q verylong
-#PBS -l nodes=1
-#PBS -k eo
-#PBS -j eo
-
-which makewave
-which makemod
-
-cd /Users/jan/src/OpenSource/fdelmodc/demo
-
-#makewave fp=20 dt=$dt file_out=wave.su nt=4096 t0=0.1
-#makewave w=fw fmin=0 flef=5 frig=80 fmax=100 dt=$dt file_out=wavefw.su nt=4096 t0=0.3
-
-cp=2000
-rho=1000
-dx=5
-dt=0.0005
-
-makemod sizex=6000 sizez=4000 dx=$dx dz=$dx cp0=$cp cs0=$cs ro0=$rho \
- orig=-3000,-1000 file_base=syncl.su \
- intt=def x=-3000,0,3000 z=250,250,250 poly=0 cp=2300 ro=5000 \
- intt=def x=-3000,-2000,-1000,-800,0,800,3000 z=650,650,700,750,900,750,600 poly=2 cp=2600 ro=1000 \
- intt=def x=-3000,0,3000 z=1390,1390,1390 poly=0 cp=2000 ro=5000
-
-makewave fp=20 dt=$dt file_out=wave.su nt=4096 t0=0.1
-
-
-#receivers in a vertical line
-#../fdelmodc \
- file_cp=syncl_cp.su ischeme=1 \
- file_den=syncl_ro.su \
- file_src=wave.su \
- file_rcv=shot.su \
- src_type=1 \
- src_orient=1 \
- src_injectionrate=1 \
- rec_type_vx=1 \
- rec_type_vz=1 \
- rec_type_p=1 \
- rec_int_vz=2 \
- dtrcv=0.0040 \
- rec_delay=0.1 \
- verbose=2 \
- tmod=3.10 \
- dxrcv=0.0 \
- dzrcv=5.0 \
- xrcv1=0 xrcv2=0 \
- zrcv1=0 zrcv2=2000 \
- xsrc=150 zsrc=10 \
- ntaper=200 \
- left=4 right=4 top=4 bottom=4
-
-#shots in a vertical line
-../fdelmodc \
- file_cp=syncl_cp.su ischeme=1 \
- file_den=syncl_ro.su \
- file_src=wave.su \
- file_rcv=shotv.su \
- src_type=1 \
- src_orient=1 \
- src_injectionrate=1 \
- rec_type_vx=1 \
- rec_type_vz=1 \
- rec_type_p=1 \
- rec_int_vz=2 \
- dtrcv=0.0040 \
- rec_delay=0.1 \
- verbose=2 \
- tmod=1.10 \
- dxrcv=10.0 \
- dzrcv=0.0 \
- xrcv1=-3000 xrcv2=3000 \
- zrcv1=0 zrcv2=0 \
- xsrc=0 zsrc=0 \
- dzshot=10 dxshot=0 nshot=10 \
- ntaper=200 \
- left=4 right=4 top=4 bottom=4
-
-
-
diff --git a/fdelmodc3D/fdelmodc3D b/fdelmodc3D/fdelmodc3D
deleted file mode 100755
index ca2229cabd8cf69cb8d1e9832c8f7155b652bae7..0000000000000000000000000000000000000000
Binary files a/fdelmodc3D/fdelmodc3D and /dev/null differ
diff --git a/fdelmodc3D/fdelmodc3D.c b/fdelmodc3D/fdelmodc3D.c
index 705ee6ab9717937cde57cd0ae6de111d94c869eb..21b3f5858add01f7eca9c2d5d8597fbbd27926c0 100644
--- a/fdelmodc3D/fdelmodc3D.c
+++ b/fdelmodc3D/fdelmodc3D.c
@@ -286,6 +286,7 @@ int main(int argc, char **argv)
shotPar shot;
float **src_nwav;
float *rox, *roy, *roz, *l2m, *lam, *mul;
+ float ***rox3, ***roy3, ***roz3, ***l2m3, ***lam3, ***mul3;
float *tss, *tes, *tep, *p, *q, *r;
float *vx, *vy, *vz, *tzz, *tyy, *txz, *txy, *tyz, *txx;
float *rec_vx, *rec_vy, *rec_vz, *rec_p;
@@ -329,10 +330,20 @@ int main(int argc, char **argv)
n2 = mod.nax;
sizem=mod.nax*mod.naz*mod.nay;
+ rox3 = (float ***)alloc3float(mod);
+ roy3 = (float ***)alloc3float(mod);
+ roz3 = (float ***)alloc3float(mod);
+ l2m3 = (float ***)alloc3float(mod);
+ rox = (float *)rox3[0][0];
+ roy = (float *)roy3[0][0];
+ roz = (float *)roz3[0][0];
+ l2m = (float *)l2m3[0][0];
+/*
rox = (float *)calloc(sizem,sizeof(float));
roy = (float *)calloc(sizem,sizeof(float));
roz = (float *)calloc(sizem,sizeof(float));
l2m = (float *)calloc(sizem,sizeof(float));
+*/
if (mod.ischeme==2) {
tss = (float *)calloc(sizem,sizeof(float));
tep = (float *)calloc(sizem,sizeof(float));
diff --git a/fdelmodc3D/fdelmodc3D.h b/fdelmodc3D/fdelmodc3D.h
index 1374734c6a2ebbd2c2146d0c3d1ad7d114dcca53..ed4ce7b49a22fd040aeb2530f1f925546814677e 100644
--- a/fdelmodc3D/fdelmodc3D.h
+++ b/fdelmodc3D/fdelmodc3D.h
@@ -99,6 +99,9 @@ typedef struct _modelPar { /* Model Parameters */
long naz;
long nay;
long nax;
+ long nfz;
+ long nfy;
+ long nfx;
/* Vx: rox */
long ioXx;
long ioXy;
diff --git a/fdelmodc3D/getParameters3D.c b/fdelmodc3D/getParameters3D.c
index bce77f757574fdb37bef38104cf88b27967af84b..836ce4cf0ed7e9806a9fde628031286f2caf64d6 100644
--- a/fdelmodc3D/getParameters3D.c
+++ b/fdelmodc3D/getParameters3D.c
@@ -98,7 +98,6 @@ long getParameters3D(modPar *mod, recPar *rec, snaPar *sna, wavPar *wav, srcPar
getModelInfo3D(mod->file_cp, &nz, &nx, &ny, &dz, &dx, &dy, &sub_z0, &sub_x0, &sub_y0, &cp_min, &cp_max, &axis, 1, verbose);
getModelInfo3D(mod->file_ro, &n1, &n2, &n3, &d1, &d2, &d3, &zstart, &xstart, &ystart, &ro_min, &ro_max, &axis, 0, verbose);
-
mod->cp_max = cp_max;
mod->cp_min = cp_min;
mod->ro_max = ro_max;
@@ -140,6 +139,20 @@ long getParameters3D(modPar *mod, recPar *rec, snaPar *sna, wavPar *wav, srcPar
mod->cs_min = cs_min;
}
+ mod->nfz = nz;
+ mod->nfx = nx;
+ mod->nfy = ny;
+ /* check if 1D, 2D or full 3D gridded model is given as input model */
+ if (nx==1 && ny==1 ) { // 1D model
+ if (!getparlong("nx",&nx)) nx=nz;
+ if (!getparlong("ny",&ny)) ny=nx;
+ dx=dz;
+ dy=dx;
+ }
+ else if (ny==1) { // 2D model
+ if (!getparlong("ny",&ny)) ny=nx;
+ dy=dx;
+ }
mod->dz = dz;
mod->dx = dx;
mod->dy = dy;
@@ -147,8 +160,6 @@ long getParameters3D(modPar *mod, recPar *rec, snaPar *sna, wavPar *wav, srcPar
mod->nx = nx;
mod->ny = ny;
-
-
// end of part1 ################################################################################################
/* define wavelet(s), modeling time and wavelet maximum frequency */
diff --git a/marchenko/marchenko_primaries.c b/marchenko/marchenko_primaries.c
index a6f046b5d1b9194f9681bdf4cdba854747779df8..8c76552db29f7ee3066f8fb41cdb55a985522c81 100644
--- a/marchenko/marchenko_primaries.c
+++ b/marchenko/marchenko_primaries.c
@@ -485,7 +485,7 @@ int main (int argc, char **argv)
/*================ initialization ================*/
/* once every 'niterskip' time-steps start from fresh G_d and do niter (~20) iterations */
- if ( (ii%niterskip==0) || (ii==istart) ) {
+ if ( ((ii-istart)%niterskip==0) || (ii==istart) ) {
niterrun=niter;
if (verbose) vmess("Doing %d iterations for time-sample %d\n",niterrun,ii);
for (l = 0; l < Nfoc; l++) {
@@ -514,13 +514,21 @@ int main (int argc, char **argv)
for (i = 0; i < npos; i++) {
j=0;
ix = ixpos[i];
+ G_d[l*nxs*nts+i*nts+j] = +f1min[l*nxs*nts+i*nts+j];
+ for (j = 1; j < nts; j++) {
+ G_d[l*nxs*nts+i*nts+j] = +f1min[l*nxs*nts+i*nts+nts+j];
+ }
+/* org
G_d[l*nxs*nts+i*nts+j] = -DD[l*nxs*nts+ix*nts] - f1min[l*nxs*nts+i*nts+j];
for (j = 1; j < nts; j++) {
G_d[l*nxs*nts+i*nts+j] = -DD[l*nxs*nts+ix*nts+nts-j] - f1min[l*nxs*nts+i*nts+nts-j];
}
+*/
+/*
for (j = 0; j < nts-ii+T*shift; j++) {
G_d[l*nxs*nts+i*nts+j] = 0.0;
}
+*/
}
}
}