Bugfix: Free surface viscoelastic

5944d0e4 · Florian Wittkamp · d4ee553f · 5944d0e4
Commit 5944d0e4 authored Dec 03, 2015 by Florian Wittkamp
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 3 deletions

src/surface_PML.c src/surface_PML.c +2 -3

No files found.
--- a/src/surface_PML.c
+++ b/src/surface_PML.c
@@ -36,18 +36,17 @@ void surface_PML(int ndepth, float ** vx, float ** vy, float ** sxx, float ** sy
    float  vxx, vyy, sump=0.0;
    float  dh24, dthalbe;
    float *pts, ws, sumu, sumpi, mu, pi;
-    extern float DT, DH, *FL, WAVETYPE;
+    extern float DT, DH, *FL;
    extern int NX, INVMAT1, L;
    extern int FW, BOUNDARY;
    extern int NPROCX, NPROCY, POS[3], MYID;
-    extern int FDORDER;
+    extern int FDORDER,WAVETYPE;
    extern float F_REF;
    
    fdoh = FDORDER/2;
    dthalbe=DT/2.0;
    dh24=1.0/DH;
    
-    
    if (WAVETYPE==1||WAVETYPE==3){
        /* vector for maxwellbodies */
        pts=vector(1,L);