Commit 6f89f6bd authored by laura.gassner's avatar laura.gassner
Browse files

Merge branch 'development' of git.scc.kit.edu:GPIAG-Software/DENISE into development

parents bd997067 d653a65d
/*-----------------------------------------------------------------------------------------
* Copyright (C) 2013 For the list of authors, see file AUTHORS.
* Copyright (C) 2016 For the list of authors, see file AUTHORS.
*
* This file is part of DENISE.
*
......
/*-----------------------------------------------------------------------------------------
* Copyright (C) 2013 For the list of authors, see file AUTHORS.
* Copyright (C) 2016 For the list of authors, see file AUTHORS.
*
* This file is part of DENISE.
*
......
/*-----------------------------------------------------------------------------------------
* Copyright (C) 2013 For the list of authors, see file AUTHORS.
* Copyright (C) 2016 For the list of authors, see file AUTHORS.
*
* This file is part of DENISE.
*
......
/*-----------------------------------------------------------------------------------------
* Copyright (C) 2013 For the list of authors, see file AUTHORS.
* Copyright (C) 2016 For the list of authors, see file AUTHORS.
*
* This file is part of DENISE.
*
......
/*-----------------------------------------------------------------------------------------
* Copyright (C) 2013 For the list of authors, see file AUTHORS.
* Copyright (C) 2016 For the list of authors, see file AUTHORS.
*
* This file is part of DENISE.
*
......
/*-----------------------------------------------------------------------------------------
* Copyright (C) 2013 For the list of authors, see file AUTHORS.
* Copyright (C) 2016 For the list of authors, see file AUTHORS.
*
* This file is part of DENISE.
*
......
/*-----------------------------------------------------------------------------------------
* Copyright (C) 2013 For the list of authors, see file AUTHORS.
* Copyright (C) 2016 For the list of authors, see file AUTHORS.
*
* This file is part of DENISE.
*
......
/*-----------------------------------------------------------------------------------------
* Copyright (C) 2013 For the list of authors, see file AUTHORS.
* Copyright (C) 2016 For the list of authors, see file AUTHORS.
*
* This file is part of DENISE.
*
......@@ -15,8 +15,6 @@
* You should have received a copy of the GNU General Public License
* along with DENISE. See file COPYING and/or <http://www.gnu.org/licenses/gpl-2.0.html>.
-----------------------------------------------------------------------------------------*/
/* $Id: update_s_elastic_ssg.c,v 1.1.1.1 2007/11/21 22:44:52 koehn Exp $*/
/*------------------------------------------------------------------------
* updating stress components at gridpoints [nx1...nx2][ny1...ny2]
* by a staggered grid finite difference scheme of arbitrary (FDORDER) order accuracy in space
......
/*-----------------------------------------------------------------------------------------
* Copyright (C) 2013 For the list of authors, see file AUTHORS.
* Copyright (C) 2016 For the list of authors, see file AUTHORS.
*
* This file is part of DENISE.
*
......@@ -16,7 +16,6 @@
* along with DENISE. See file COPYING and/or <http://www.gnu.org/licenses/gpl-2.0.html>.
-----------------------------------------------------------------------------------------*/
/* $Id: update_s_elastic_ssg.c,v 1.1.1.1 2007/11/21 22:44:52 koehn Exp $*/
/*------------------------------------------------------------------------
* updating stress components at gridpoints [nx1...nx2][ny1...ny2]
* by a staggered grid finite difference scheme of arbitrary (FDORDER) order accuracy in space
......
/*-----------------------------------------------------------------------------------------
* Copyright (C) 2013 For the list of authors, see file AUTHORS.
* Copyright (C) 2016 For the list of authors, see file AUTHORS.
*
* This file is part of DENISE.
*
......
/*-----------------------------------------------------------------------------------------
* Copyright (C) 2013 For the list of authors, see file AUTHORS.
* Copyright (C) 2016 For the list of authors, see file AUTHORS.
*
* This file is part of DENISE.
*
......@@ -16,7 +16,6 @@
* along with DENISE. See file COPYING and/or <http://www.gnu.org/licenses/gpl-2.0.html>.
-----------------------------------------------------------------------------------------*/
/* $Id: update_s_elastic_ssg.c,v 1.1.1.1 2007/11/21 22:44:52 koehn Exp $*/
/*------------------------------------------------------------------------
* updating stress components at gridpoints [nx1...nx2][ny1...ny2]
* by a staggered grid finite difference scheme of arbitrary (FDORDER) order accuracy in space
......
/*-----------------------------------------------------------------------------------------
* Copyright (C) 2013 For the list of authors, see file AUTHORS.
* Copyright (C) 2016 For the list of authors, see file AUTHORS.
*
* This file is part of DENISE.
*
......@@ -16,7 +16,6 @@
* along with DENISE. See file COPYING and/or <http://www.gnu.org/licenses/gpl-2.0.html>.
-----------------------------------------------------------------------------------------*/
/* $Id: update_s_visc_PML.c,v 1.1.1.1 2011/10/06 22:44:52 groos Exp $*/
/*------------------------------------------------------------------------
* updating stress components at gridpoints [nx1...nx2][ny1...ny2]
* by a staggered grid finite difference scheme of arbitrary (FDORDER) order accuracy in space
......@@ -256,7 +255,7 @@ void update_s_visc_PML(int nx1, int nx2, int ny1, int ny2,
}
/* updating components of the stress tensor, partially */
/* updating components of the stress tensor, partially */
sxy[j][i] += (fipjp[j][i]*(vxy+vyx))+(dthalbe*sumr);
sxx[j][i] += (g[j][i]*(vxx+vyy))-(2.0*f[j][i]*vyy)+(dthalbe*sump);
syy[j][i] += (g[j][i]*(vxx+vyy))-(2.0*f[j][i]*vxx)+(dthalbe*sumq);
......
This diff is collapsed.
/*-----------------------------------------------------------------------------------------
* Copyright (C) 2013 For the list of authors, see file AUTHORS.
* Copyright (C) 2016 For the list of authors, see file AUTHORS.
*
* This file is part of DENISE.
*
......@@ -15,8 +15,6 @@
* You should have received a copy of the GNU General Public License
* along with DENISE. See file COPYING and/or <http://www.gnu.org/licenses/gpl-2.0.html>.
-----------------------------------------------------------------------------------------*/
/* $Id: update_v_ssg.c,v 1.1.1.1 2007/11/21 22:44:52 koehn Exp $*/
/*------------------------------------------------------------------------
* updating particle velocities at gridpoints [nx1...nx2][ny1...ny2]
* by a staggered grid finite difference scheme of FDORDER accuracy in space
......
/*-----------------------------------------------------------------------------------------
* Copyright (C) 2013 For the list of authors, see file AUTHORS.
* Copyright (C) 2016 For the list of authors, see file AUTHORS.
*
* This file is part of DENISE.
*
......@@ -16,13 +16,11 @@
* along with DENISE. See file COPYING and/or <http://www.gnu.org/licenses/gpl-2.0.html>.
-----------------------------------------------------------------------------------------*/
/* $Id: update_v_ssg.c,v 1.1.1.1 2007/11/21 22:44:52 koehn Exp $*/
/*------------------------------------------------------------------------
* updating particle velocities at gridpoints [nx1...nx2][ny1...ny2]
* by a staggered grid finite difference scheme of FDORDER accuracy in space
* and second order accuracy in time
* T. Bohlen
*
* SH-Version F. Wittkamp
* ----------------------------------------------------------------------*/
#include "fd.h"
......@@ -34,8 +32,8 @@ void update_v_PML_SH(int nx1, int nx2, int ny1, int ny2, int nt,
float *hc, int infoout,int sw, float * K_x, float * a_x, float * b_x, float * K_x_half, float * a_x_half, float * b_x_half,
float * K_y, float * a_y, float * b_y, float * K_y_half, float * a_y_half, float * b_y_half,float ** psi_sxz_x,float ** psi_syz_y){
int i, j,l,fdoh,m, h, h1;
float amp, dtdh, azi_rad;
int i, j,l,fdoh, h, h1;
float dtdh;
float sxz_x, syz_y;
extern float DT, DH;
double time1, time2;
......@@ -46,13 +44,9 @@ void update_v_PML_SH(int nx1, int nx2, int ny1, int ny2, int nt,
extern FILE *FP;
extern int VELOCITY;
fdoh = FDORDER/2;
dtdh = DT*DT/DH;
/* drad = PI/180.0;
angle = 135.0; */
if (infoout && (MYID==0)){
time1=MPI_Wtime();
fprintf(FP,"\n **Message from update_v_SH (printed by PE %d):\n",MYID);
......
/*-----------------------------------------------------------------------------------------
* Copyright (C) 2013 For the list of authors, see file AUTHORS.
* Copyright (C) 2016 For the list of authors, see file AUTHORS.
*
* This file is part of DENISE.
*
......@@ -15,8 +15,6 @@
* You should have received a copy of the GNU General Public License
* along with DENISE. See file COPYING and/or <http://www.gnu.org/licenses/gpl-2.0.html>.
-----------------------------------------------------------------------------------------*/
/* $Id: update_v_ssg.c,v 1.1.1.1 2007/11/21 22:44:52 koehn Exp $*/
/*------------------------------------------------------------------------
* updating particle velocities at gridpoints [nx1...nx2][ny1...ny2]
* by a staggered grid finite difference scheme of FDORDER accuracy in space
......
/*-----------------------------------------------------------------------------------------
* Copyright (C) 2013 For the list of authors, see file AUTHORS.
* Copyright (C) 2016 For the list of authors, see file AUTHORS.
*
* This file is part of DENISE.
*
......@@ -15,8 +15,6 @@
* You should have received a copy of the GNU General Public License
* along with DENISE. See file COPYING and/or <http://www.gnu.org/licenses/gpl-2.0.html>.
-----------------------------------------------------------------------------------------*/
/* $Id: update_v_ssg.c,v 1.1.1.1 2007/11/21 22:44:52 koehn Exp $*/
/*------------------------------------------------------------------------
* updating particle velocities at gridpoints [nx1...nx2][ny1...ny2]
* by a staggered grid finite difference scheme of FDORDER accuracy in space
......
/*-----------------------------------------------------------------------------------------
* Copyright (C) 2013 For the list of authors, see file AUTHORS.
* Copyright (C) 2016 For the list of authors, see file AUTHORS.
*
* This file is part of DENISE.
*
......
/*-----------------------------------------------------------------------------------------
* Copyright (C) 2013 For the list of authors, see file AUTHORS.
* Copyright (C) 2016 For the list of authors, see file AUTHORS.
*
* This file is part of DENISE.
*
......
/*-----------------------------------------------------------------------------------------
* Copyright (C) 2013 For the list of authors, see file AUTHORS.
* Copyright (C) 2016 For the list of authors, see file AUTHORS.
*
* This file is part of DENISE.
*
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment