new demo dxvx dzvz fields in FD

fdelmodc/demo/fdelmodc_elastic_dxvx.scr

+#!/bin/bash
+
+export PATH=/vardim/home/thorbcke/src/OpenSource/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=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=rec.su \
+       xrcv1=0 xrcv2=2100 dxrcv=15 \
+       zrcv1=400 zrcv2=400 \
+       rec_type_vx=1 rec_type_dxvx=1 rec_type_vz=1 rec_type_dzvz=1 rec_int_vx=1 \
+       dtrcv=0.004 \
+       xsrc=1000 zsrc=1700 \
+       ntaper=120 \
+       left=2 right=2 bottom=2 top=2 \