The TELEMAC-MASCARET system  trunk
Functions/Subroutines
conw4d.f File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine conw4d (CX, CY, CT, CF, XK, CG, NPOIN2, NDIRE, JF, NF)
 

Function/Subroutine Documentation

◆ conw4d()

subroutine conw4d ( double precision, dimension(npoin2,ndire,nf), intent(inout)  CX,
double precision, dimension(npoin2,ndire,nf), intent(inout)  CY,
double precision, dimension(npoin2,ndire,nf), intent(inout)  CT,
double precision, dimension(npoin2,ndire,nf), intent(inout)  CF,
double precision, dimension(npoin2,nf), intent(in)  XK,
double precision, dimension(npoin2,nf), intent(in)  CG,
integer, intent(in)  NPOIN2,
integer, intent(in)  NDIRE,
integer, intent(in)  JF,
integer, intent(in)  NF 
)
Parameters
[in]nfCG Discretized group velocity
[in]COSFCosine of the latitudes of the points 2d
[in]COSTETCosine of teta angle
[out]CTAdvection field along teta
[out]CXAdvection field along x(or phi)
[out]CYAdvection field along y(or lambda)
[out]CFAdvection field along frequency
[in]DEPTHWater depth
[in]DVYDerivative of current speed du/dx
[in]DVXDerivative of current speed du/dy
[in]DUYDerivative of current speed dv/dx
[in]DUXDerivative of current speed dv/dy
[in]DZHDTWater depth derivative with respect to t
[in]DZYSea bottom slope along x
[in]DZXSea bottom slope along y
[in]FREQDiscretized frequencies
[in]JFIndex of the frequency
[in]NFNumber of frequencies
[in]NDIRENumber of directions
[in]NPOIN2Number of points in 2d mesh
[in]PROINFLogical indicating infinite depth assumption
[in]SINTETSine of teta angle
[in]SPHELogical indicating spherical coord assumption
[in]TGFTangent of the latitudes of the points 2d
[in]UCurrent speed along x
[in]VCurrent speed along y
[in]XKDiscretized wave number
[in]ndireCG Discretized group velocity
[in]COSFCosine of the latitudes of the points 2d
[in]COSTETCosine of teta angle
[out]CTAdvection field along teta
[out]CXAdvection field along x(or phi)
[out]CYAdvection field along y(or lambda)
[out]CFAdvection field along frequency
[in]DEPTHWater depth
[in]DVYDerivative of current speed du/dx
[in]DVXDerivative of current speed du/dy
[in]DUYDerivative of current speed dv/dx
[in]DUXDerivative of current speed dv/dy
[in]DZHDTWater depth derivative with respect to t
[in]DZYSea bottom slope along x
[in]DZXSea bottom slope along y
[in]FREQDiscretized frequencies
[in]JFIndex of the frequency
[in]NFNumber of frequencies
[in]NDIRENumber of directions
[in]NPOIN2Number of points in 2d mesh
[in]PROINFLogical indicating infinite depth assumption
[in]SINTETSine of teta angle
[in]SPHELogical indicating spherical coord assumption
[in]TGFTangent of the latitudes of the points 2d
[in]UCurrent speed along x
[in]VCurrent speed along y
[in]XKDiscretized wave number
[in]npoin2CG Discretized group velocity
[in]COSFCosine of the latitudes of the points 2d
[in]COSTETCosine of teta angle
[out]CTAdvection field along teta
[out]CXAdvection field along x(or phi)
[out]CYAdvection field along y(or lambda)
[out]CFAdvection field along frequency
[in]DEPTHWater depth
[in]DVYDerivative of current speed du/dx
[in]DVXDerivative of current speed du/dy
[in]DUYDerivative of current speed dv/dx
[in]DUXDerivative of current speed dv/dy
[in]DZHDTWater depth derivative with respect to t
[in]DZYSea bottom slope along x
[in]DZXSea bottom slope along y
[in]FREQDiscretized frequencies
[in]JFIndex of the frequency
[in]NFNumber of frequencies
[in]NDIRENumber of directions
[in]NPOIN2Number of points in 2d mesh
[in]PROINFLogical indicating infinite depth assumption
[in]SINTETSine of teta angle
[in]SPHELogical indicating spherical coord assumption
[in]TGFTangent of the latitudes of the points 2d
[in]UCurrent speed along x
[in]VCurrent speed along y
[in]XKDiscretized wave number
[in]jfCG Discretized group velocity
[in]COSFCosine of the latitudes of the points 2d
[in]COSTETCosine of teta angle
[out]CTAdvection field along teta
[out]CXAdvection field along x(or phi)
[out]CYAdvection field along y(or lambda)
[out]CFAdvection field along frequency
[in]DEPTHWater depth
[in]DVYDerivative of current speed du/dx
[in]DVXDerivative of current speed du/dy
[in]DUYDerivative of current speed dv/dx
[in]DUXDerivative of current speed dv/dy
[in]DZHDTWater depth derivative with respect to t
[in]DZYSea bottom slope along x
[in]DZXSea bottom slope along y
[in]FREQDiscretized frequencies
[in]JFIndex of the frequency
[in]NFNumber of frequencies
[in]NDIRENumber of directions
[in]NPOIN2Number of points in 2d mesh
[in]PROINFLogical indicating infinite depth assumption
[in]SINTETSine of teta angle
[in]SPHELogical indicating spherical coord assumption
[in]TGFTangent of the latitudes of the points 2d
[in]UCurrent speed along x
[in]VCurrent speed along y
[in]XKDiscretized wave number

Definition at line 7 of file conw4d.f.

+ Here is the caller graph for this function: