jon_interp_coorduser.c File Reference

Go to the source code of this file.

Macros
#define	JET6LIKEUSERCOORD   0
#define	UNIHALFUSERCOORD   1
#define	WHICHUSERCOORD   JET6LIKEUSERCOORD
#define	cr(x)   (exp(-1.0/(x)))
#define	tr(x)   (cr(x)/(cr(x) + cr(1.0-(x))))
#define	trans(x, L, R)   ((x)<=(L) ? 0.0 : ((x)>=(R) ? 1.0 : tr(((x)-(L))/((R)-(L)))) )
#define	transR(x, center, width)   ( 0.5*(1.0-tanh(+((x)-(center))/(width))))
#define	transL(x, center, width)   ( 0.5*(1.0-tanh(-((x)-(center))/(width))))
#define	transM(x, center, width)   ( exp(-pow(((x)-(center))/((width)*0.5),2.0) ) )
#define	line1(x, w)   ((x)*(w))
#define	line2(x, w)   ((x)*(w)+M_PI-(w))
#define	line3(x, w)   ((x)*(w))
#define	wparsam(x, r)   (h0 + pow(0.15 + ((r)-0.0)/10.0 , -njet))
#define	thetasam(x, r, w, xp1, xp2)   (line1(x,w)*(1.0-trans(x,xp1,xp2)) + line2(x,w)*trans(x,xp1,xp2))
#define	plateau(x, L, R, W)   (trans(x,(L)-0.5*(W),(L)+0.5*(W))*(1.0-trans(x,(R)-0.5*(W),(R)+0.5*(W))))
#define	lineeq(x, w)   ((x)*(w)+(0.5*M_PI)-(0.5*w))
#define	linepole(x, w)   (line1(x,w))
#define	thetaL(x, wp, weq, xp1, xp2)   ( linepole(x,wp)*(1.0-trans(x,xp1,xp2)) + lineeq(x,weq)*trans(x,xp1,xp2) )
#define	thetasam2(x, wp, weq, xp1, xp2)   ( x<0.5 ? thetaL(x,wp,weq,xp1,xp2) : -thetaL(1.0-x,wp,weq,xp1,xp2)+M_PI )

Functions
void	set_coord_parms_nodeps_user (int defcoordlocal)
void	set_coord_parms_deps_user (int defcoordlocal)
void	write_coord_parms_user (int defcoordlocal, FILE *out)
void	read_coord_parms_user (int defcoordlocal, FILE *in)
void	blcoord_user (FTYPE *X, FTYPE *V)
void	dxdxp_analytic_user (FTYPE *X, FTYPE *V, FTYPE(*dxdxp)[NDIM])
FTYPE	setRin_user (int ihor, FTYPE ihoradjust)

Variables
static FTYPE	npow
static FTYPE	r1jet
static FTYPE	njet1
static FTYPE	njet
static FTYPE	r0jet
static FTYPE	rsjet
static FTYPE	Qjet
static FTYPE	ntheta
static FTYPE	htheta
static FTYPE	rsjet2
static FTYPE	r0jet2
static FTYPE	rsjet3
static FTYPE	r0jet3
static FTYPE	rs
static FTYPE	r0
static FTYPE	npow2
static FTYPE	cpow2
static FTYPE	rbr
static FTYPE	x1br
static FTYPE	h0
static FTYPE	cpow3

Macro Definition Documentation

#define cr

(

x

)

(exp(-1.0/(x)))

#define JET6LIKEUSERCOORD   0

Definition at line 1 of file jon_interp_coorduser.c.

#define line1	(		x,
			w
	)		((x)*(w))

#define line2	(		x,
			w
	)		((x)*(w)+M_PI-(w))

#define line3	(		x,
			w
	)		((x)*(w))

#define lineeq	(		x,
			w
	)		((x)*(w)+(0.5*M_PI)-(0.5*w))

#define linepole	(		x,
			w
	)		(line1(x,w))

#define plateau	(		x,
			L,
			R,
			W
	)		(trans(x,(L)-0.5*(W),(L)+0.5*(W))*(1.0-trans(x,(R)-0.5*(W),(R)+0.5*(W))))

#define thetaL	(		x,
			wp,
			weq,
			xp1,
			xp2
	)		( linepole(x,wp)*(1.0-trans(x,xp1,xp2)) + lineeq(x,weq)*trans(x,xp1,xp2) )

#define thetasam	(		x,
			r,
			w,
			xp1,
			xp2
	)		(line1(x,w)*(1.0-trans(x,xp1,xp2)) + line2(x,w)*trans(x,xp1,xp2))

#define thetasam2	(		x,
			wp,
			weq,
			xp1,
			xp2
	)		( x<0.5 ? thetaL(x,wp,weq,xp1,xp2) : -thetaL(1.0-x,wp,weq,xp1,xp2)+M_PI )

#define tr

(

x

)

(cr(x)/(cr(x) + cr(1.0-(x))))

#define trans	(		x,
			L,
			R
	)		((x)<=(L) ? 0.0 : ((x)>=(R) ? 1.0 : tr(((x)-(L))/((R)-(L)))) )

#define transL	(		x,
			center,
			width
	)		( 0.5*(1.0-tanh(-((x)-(center))/(width))))

#define transM	(		x,
			center,
			width
	)		( exp(-pow(((x)-(center))/((width)*0.5),2.0) ) )

#define transR	(		x,
			center,
			width
	)		( 0.5*(1.0-tanh(+((x)-(center))/(width))))

#define UNIHALFUSERCOORD   1

Definition at line 2 of file jon_interp_coorduser.c.

#define WHICHUSERCOORD   JET6LIKEUSERCOORD

Definition at line 4 of file jon_interp_coorduser.c.

#define wparsam	(		x,
			r
	)		(h0 + pow(0.15 + ((r)-0.0)/10.0 , -njet))

Function Documentation

void blcoord_user	(	FTYPE *	X,
		FTYPE *	V
	)

Definition at line 148 of file jon_interp_coorduser.c.

void dxdxp_analytic_user	(	FTYPE *	X,
		FTYPE *	V,
		FTYPE(*)	dxdxp[NDIM]
	)

Definition at line 377 of file jon_interp_coorduser.c.

void read_coord_parms_user	(	int	defcoordlocal,
		FILE *	in
	)

Definition at line 110 of file jon_interp_coorduser.c.

void set_coord_parms_deps_user

(

int

defcoordlocal

)

Definition at line 95 of file jon_interp_coorduser.c.

void set_coord_parms_nodeps_user

(

int

defcoordlocal

)

Definition at line 11 of file jon_interp_coorduser.c.

FTYPE setRin_user	(	int	ihor,
		FTYPE	ihoradjust
	)

Definition at line 473 of file jon_interp_coorduser.c.

void write_coord_parms_user	(	int	defcoordlocal,
		FILE *	out
	)

Definition at line 103 of file jon_interp_coorduser.c.

Variable Documentation

FTYPE cpow2

static

Definition at line 8 of file jon_interp_coorduser.c.

FTYPE cpow3

static

Definition at line 8 of file jon_interp_coorduser.c.

FTYPE h0

static

Definition at line 8 of file jon_interp_coorduser.c.

FTYPE htheta

static

Definition at line 8 of file jon_interp_coorduser.c.

FTYPE njet

static

Definition at line 8 of file jon_interp_coorduser.c.

FTYPE njet1

static

Definition at line 8 of file jon_interp_coorduser.c.

FTYPE npow

static

Definition at line 8 of file jon_interp_coorduser.c.

FTYPE npow2

static

Definition at line 8 of file jon_interp_coorduser.c.

FTYPE ntheta

static

Definition at line 8 of file jon_interp_coorduser.c.

FTYPE Qjet

static

Definition at line 8 of file jon_interp_coorduser.c.

FTYPE r0

static

Definition at line 8 of file jon_interp_coorduser.c.

FTYPE r0jet

static

Definition at line 8 of file jon_interp_coorduser.c.

FTYPE r0jet2

static

Definition at line 8 of file jon_interp_coorduser.c.

FTYPE r0jet3

static

Definition at line 8 of file jon_interp_coorduser.c.

FTYPE r1jet

static

Definition at line 8 of file jon_interp_coorduser.c.

FTYPE rbr

static

Definition at line 8 of file jon_interp_coorduser.c.

FTYPE rs

static

Definition at line 8 of file jon_interp_coorduser.c.

FTYPE rsjet

static

Definition at line 8 of file jon_interp_coorduser.c.

FTYPE rsjet2

static

Definition at line 8 of file jon_interp_coorduser.c.

FTYPE rsjet3

static

Definition at line 8 of file jon_interp_coorduser.c.

FTYPE x1br

static

Definition at line 8 of file jon_interp_coorduser.c.