GWJ – FORTVSH

Calls

Help

Called by

Help

private function GWJ_DP(J1, M1, J2, M2, L, M) result(GWJ)

Geppert-Wiebicke non-axisymmetric coupling coefficient $J_{j_1 m_1 j_2 m_2}^{\ell m}$ (Geppert & Wiebicke, 1991), the companion to GWI encoding the amplitude of a two-mode Hall-MHD interaction that generates or amplifies a non-axisymmetric component: $J_{j_1 m_1 j_2 m_2}^{\ell m} = -\frac{i}{2} \sqrt{\frac{(2j_1+1)(2j_2+1)}{4\pi(2\ell+1)}}\, \sqrt{(j_1{+}j_2{+}\ell{+}2)(j_2{+}\ell{-}j_1)(j_1{+}j_2{-}\ell{+}1) (j_1{-}j_2{+}\ell{+}1)}\; \times$ $\langle j_1{+}1,0\,j_2 0|\ell 0\rangle\, \langle j_1 m_1\,j_2 m_2|\ell m\rangle.$ Cross-validated against an independent VSH-dot-product expansion in TEST2_GW (src/tests.f90).

Arguments

Type	Intent		Name
integer(kind=i4),	intent(in)	::	J1	First coupled degree, $j_1\ge0$ .
integer(kind=i4),	intent(in)	::	M1	First coupled order, $-j_1\le m_1\le j_1$ .
integer(kind=i4),	intent(in)	::	J2	Second coupled degree, $j_2\ge0$ .
integer(kind=i4),	intent(in)	::	M2	Second coupled order, $-j_2\le m_2\le j_2$ .
integer(kind=i4),	intent(in)	::	L	Resulting degree, $\ell\ge0$ .
integer(kind=i4),	intent(in)	::	M	Resulting order, $-\ell\le m\le\ell$ .

GWJ Interface

Contents

Module Procedures

public interface GWJ

Calls

Called by

Module Procedures

private function GWJ_DP(J1, M1, J2, M2, L, M) result(GWJ)

Arguments

Return Value complex(kind=dp)