qporos.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	qporos
complex(kind(1.d0)) function	fonc (X, GAMMA, PHI, ALPHA)
complex(kind(1.d0)) function	derfonc (X, GAMMA, PHI, ALPHA)
complex(kind(1.d0)) function	secondfonc (X, GAMMA, PHI, ALPHA)
complex(kind(1.d0)) function	dertrois (X, GAMMA, PHI, ALPHA)
complex(kind(1.d0)) function	tanhcplx (Z)
complex(kind(1.d0)) function	coshcplx (Z)

Function/Subroutine Documentation

coshcplx()

complex(kind(1.d0)) function coshcplx

(

complex(kind(1.d0)), intent(in)

Z

)

Definition at line 233 of file qporos.f.

derfonc()

complex(kind(1.d0)) function derfonc	(	complex(kind(1.d0)), intent(in)	X,
		double precision, intent(in)	GAMMA,
		complex(kind(1.d0)), intent(in)	PHI,
		double precision, intent(in)	ALPHA
	)

Definition at line 145 of file qporos.f.

dertrois()

complex(kind(1.d0)) function dertrois	(	complex(kind(1.d0)), intent(in)	X,
		double precision, intent(in)	GAMMA,
		complex(kind(1.d0)), intent(in)	PHI,
		double precision, intent(in)	ALPHA
	)

Definition at line 187 of file qporos.f.

fonc()

complex(kind(1.d0)) function fonc	(	complex(kind(1.d0)), intent(in)	X,
		double precision, intent(in)	GAMMA,
		complex(kind(1.d0)), intent(in)	PHI,
		double precision, intent(in)	ALPHA
	)

Definition at line 129 of file qporos.f.

qporos()

subroutine qporos

(

)

Brief:

Takes into account the friction due to porous media

THIERRY FOUQUET (EDF - LNHE) 27/03/2018 V7P3

Parameters

[in,out]	AMORP	Dumping due to porous media
[out]	CG	Discretized group velocity
[in]	F	Directional spectrum
[in]	LT	Time step
[in]	NF	Number of frequencies
[in]	NDIRE	Number of directions
[in]	NPOIN2	Number of points in 2d mesh
[in,out]	TSDER	Derived part of the source term contribution
[in,out]	TSTOT	Total part of the source term contribution
[out]	XK	Wave number

Definition at line 4 of file qporos.f.

Here is the caller graph for this function:

secondfonc()

complex(kind(1.d0)) function secondfonc	(	complex(kind(1.d0)), intent(in)	X,
		double precision, intent(in)	GAMMA,
		complex(kind(1.d0)), intent(in)	PHI,
		double precision, intent(in)	ALPHA
	)

Definition at line 163 of file qporos.f.

tanhcplx()

complex(kind(1.d0)) function tanhcplx

(

complex(kind(1.d0)), intent(in)

Z

)

Definition at line 220 of file qporos.f.