cofm Subroutine

public subroutine cofm(r, p, pa, beta, bv, bm, cvtu, gbm, dbbds, b1s, gb1s, g, dg)

calculate diffusion coeficients in magnetic field coordinate and derivatives of g with respect to r, theta, phi 2 perpendicular coeficients must equal to the poles

Arguments

Type IntentOptional Attributes Name
real(kind=real64), intent(in) :: r(3)
real(kind=real64), intent(in) :: p
real(kind=real64), intent(in) :: pa
real(kind=real64), intent(in) :: beta
real(kind=real64), intent(in) :: bv(3)
real(kind=real64), intent(in) :: bm
real(kind=real64), intent(in) :: cvtu(3)
real(kind=real64), intent(in) :: gbm(3)
real(kind=real64), intent(in) :: dbbds
real(kind=real64), intent(in) :: b1s
real(kind=real64), intent(in) :: gb1s(3)
real(kind=real64), intent(out) :: g(3)
real(kind=real64), intent(out) :: dg(3)

Common Blocks

read_param (subroutine)
solarwind1 (function)
f0mod (subroutine)
split (subroutine)
vfunc (subroutine)
solarwind (subroutine)
drvbmag (subroutine)
preparecme (subroutine)
inorout (subroutine)
walk3d (subroutine)
sim3d (program)
walk3d (subroutine)
sim3d_em (program)
walk3d (subroutine)
sksurface (subroutine)
shockfront (program)
"> common /bpark/

Type Attributes Name Initial
real(kind=real64) :: b1au
real(kind=real64) :: densw0
real(kind=real64) :: facip
real(kind=real64) :: k4ok2
real(kind=real64) :: k6ok2
real(kind=real64) :: omega
real(kind=real64) :: vom
real(kind=real64) :: vsw

read_dxx (subroutine)
"> common /dxxcnst/

Type Attributes Name Initial
real(kind=real64) :: a(3)
real(kind=real64) :: b(3)
real(kind=real64) :: g0(3)

read_param (subroutine)
get_rlambdax (function)
set_rlambdax (subroutine)
sim3d (program)
shockfront (program)
"> common /ndxx/

Type Attributes Name Initial
integer :: ndxx