split Subroutine

public recursive subroutine split(iseed, rpb, ck, fs, t, nsplvl, dnsk, bv0, flx, dflx, walk3d, nsts)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: iseed
real(kind=real64), intent(in) :: rpb(5)
real(kind=real64), intent(inout) :: ck
real(kind=real64), intent(inout) :: fs
real(kind=real64), intent(in) :: t
integer, intent(inout) :: nsplvl
real(kind=real64), intent(inout) :: dnsk
real(kind=real64), intent(inout) :: bv0(3)
real(kind=real64), intent(inout) :: flx
real(kind=real64), intent(inout) :: dflx
real :: walk3d
integer, intent(in) :: nsts

Common Blocks

read_param (subroutine)
cofm (subroutine)
solarwind1 (function)
f0mod (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_param (subroutine)
walk3d (subroutine)
sim3d (program)
walk3d (subroutine)
sim3d_em (program)
walk3d (subroutine)
shockfront (program)
"> common /ndpdt/

Type Attributes Name Initial
integer :: ndpdt

read_param (subroutine)
walk3d (subroutine)
walk3d (subroutine)
walk3d (subroutine)
"> common /nlambdaconst/

Type Attributes Name Initial
integer :: nlambdaconst

common /rb0max/

Type Attributes Name Initial
real(kind=real64) :: rb0
real(kind=real64) :: rmax

preparefb (subroutine)
prepareptcl (subroutine)
f0mod (subroutine)
vfunc (subroutine)
walk3d (subroutine)
sim3d (program)
walk3d (subroutine)
sim3d_em (program)
walk3d (subroutine)
shockfront (program)
"> common /srcmod/

Type Attributes Name Initial
real(kind=real64) :: ap
real(kind=real64) :: gp
real(kind=real64) :: h0
real(kind=real64) :: scanw
real(kind=real64) :: sp
real(kind=real64) :: sp0
real(kind=real64) :: trgtfs(4)

sim3d (program)
sim3d_em (program)
shockfront (program)
"> common /svsp/

Type Attributes Name Initial
real(kind=real64) :: bv0sv(3,2**(NSPMAX+1))
real(kind=real64) :: cksv(2**(NSPMAX+1))
real(kind=real64) :: dnsksv(2**(NSPMAX+1))
real(kind=real64) :: fssv(2**(NSPMAX+1))
integer :: nodr(NSPMAX)
real(kind=real64) :: rpbsv(5,2**(NSPMAX+1))
real(kind=real64) :: t0sv(2**(NSPMAX+1))

prepareptcl (subroutine)
preparecme (subroutine)
inorout (subroutine)
walk3d (subroutine)
sim3d (program)
walk3d (subroutine)
sim3d_em (program)
walk3d (subroutine)
sksurface (subroutine)
shockfront (program)
"> common /tmprm/

Type Attributes Name Initial
real(kind=real64) :: dmapjul
real(kind=real64) :: t0org
real(kind=real64) :: tcme0
real(kind=real64) :: tdl
real(kind=real64) :: te