sim3d_em – SEP-Stochastic

Uses

- param
- mtrx
- cme_cross
- datetime_utils
- iso_fortran_env
- dmumu
- random
- loadptcl
- dxx
- epv
- file_op
- fb
- sim3d_utils

Common Blocks

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

Type		Name
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_dmumuDG (subroutine)
read_dmumuAH (subroutine)
read_dmumuBK (subroutine)
preparefb (subroutine)
read_param (subroutine)
read_dxx (subroutine)
prepareptcl (subroutine)
preparecme (subroutine)
sim3d (program)
shockfront (program)
"> common /dir/

Type	Attributes		Name		Initial
character(len=256)		::	dir

preparefb (subroutine)
f0mod (subroutine)
walk3d (subroutine)
sim3d (program)
walk3d (subroutine)
walk3d (subroutine)
shockfront (program)
"> common /fbcnst/

Type		Name
real(kind=real64)	::	deltat
integer	::	nfbconst
real(kind=real64)	::	rb0
real(kind=real64)	::	rk
real(kind=real64)	::	rmax
real(kind=real64)	::	tc
real(kind=real64)	::	tl
real(kind=real64)	::	tmodel0

common /ldptcl/

Type		Name
real(kind=real64)	::	ef(NFMAX)
integer	::	nf
integer	::	np
real(kind=real64)	::	rf(3,NFMAX)
real(kind=real64)	::	rmuf(NFMAX)
real(kind=real64)	::	tf(NFMAX)

read_param (subroutine)
split (subroutine)
walk3d (subroutine)
sim3d (program)
walk3d (subroutine)
walk3d (subroutine)
shockfront (program)
"> common /ndpdt/

Type	Attributes		Name		Initial
integer		::	ndpdt

sim3d (program)
shockfront (program)
"> common /npmax/

Type	Attributes		Name		Initial
integer		::	npmax

sim3d (program)
shockfront (program)
"> common /nsucmin/

Type	Attributes		Name		Initial
integer		::	nsucmin

fl_open (subroutine)
sim3d (program)
shockfront (program)
"> common /rankstr/

Type	Attributes		Name		Initial
character(len=2)		::	rankstr

walk3d (subroutine)
"> common /seed/

Type	Attributes		Name		Initial
integer		::	nseeds(nseedmax)

e2p (function)
rp2e (function)
rp2beta (function)
beta2p (function)
fs0 (function)
prepareptcl (subroutine)
vfunc (subroutine)
arriv_time (program)
walk3d (subroutine)
sim3d (program)
walk3d (subroutine)
walk3d (subroutine)
shockfront (program)
"> common /specie/

Type	Attributes		Name		Initial
real(kind=real64)		::	rnm
real(kind=real64)		::	rnz

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

Type		Name
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)

split (subroutine)
sim3d (program)
shockfront (program)
"> common /svsp/

Type		Name
real(kind=real64)	::	cksv(2**(NSPMAX+1))
integer	::	nodr(NSPMAX)
real(kind=real64)	::	rpbsv(5,2**(NSPMAX+1))
real(kind=real64)	::	t0sv(2**(NSPMAX+1))

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

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

Variables

Type	Attributes		Name		Initial
real(kind=real64)		::	ap
real(kind=real64)		::	b1au
real(kind=real64)		::	b1s
real(kind=real64)		::	bm
real(kind=real64)		::	bv0(3)
real(kind=real64)		::	bxgb2(3)
integer		::	chunk
real(kind=real64)		::	ck
real(kind=real64)		::	cvtu(3)
real(kind=real64)		::	dbbds
real(kind=real64)		::	ddf0(3,3)
real(kind=real64)		::	ddf0dmu2
real(kind=real64)		::	deltat
real(kind=real64)		::	densw0
real(kind=real64)		::	df0(3)
real(kind=real64)		::	df0dmu
real(kind=real64)		::	dflx
real(kind=real64)		::	dino
real(kind=real64)		::	dmapjul
real(kind=real64)		::	dnsk
real(kind=real64)		::	doy
real(kind=real64)		::	e0
real(kind=real64)		::	facip
real(kind=real64)		::	fb_
real(kind=real64)		::	flx
real(kind=real64)		::	fs
real(kind=real64)		::	gb1s(3)
real(kind=real64)		::	gbmag(3)
real(kind=real64)		::	gp
real(kind=real64)		::	h0
real(kind=real64)		::	hb
integer		::	i
integer		::	id
integer		::	ino
integer		::	ino0
integer		::	iseed
integer		::	itjul
integer		::	iyday
integer		::	iyear
real(kind=real64)		::	k4ok2
real(kind=real64)		::	k6ok2
real(kind=real64)		::	lsp
integer		::	n1
integer		::	ndpdt
integer		::	nfbconst
integer		::	nfl
integer		::	nodes
integer		::	npp
integer		::	ns
integer		::	nseeds(nseedmax)
integer		::	nsplvl
integer		::	nsts
integer		::	num(3)
real(kind=real64)		::	omega
real(kind=real64)		::	pa0
real(kind=real64)		::	pab
real(kind=real64)		::	pol
real(kind=real64)		::	r0(3)
real(kind=real64)		::	rate
real(kind=real64)		::	rb(3)
real(kind=real64)		::	rb0
real(kind=real64)		::	rk
real(kind=real64)		::	rmax
real(kind=real64)		::	rnm
real(kind=real64)		::	rnz
real(kind=real64)		::	rp0(5)
real(kind=real64)		::	rpb(5)
real(kind=real64)		::	scanw
real(kind=real64)		::	sp
real(kind=real64)		::	sp0
real(kind=real64)		::	t
real(kind=real64)		::	t0
real(kind=real64)		::	t0org
real(kind=real64)		::	tb
real(kind=real64)		::	tc
real(kind=real64)		::	tcme0
real(kind=real64)		::	tdl
real(kind=real64)		::	te
real(kind=real64)		::	tl
real(kind=real64)		::	tmodel0
real(kind=real64)		::	tnp
real(kind=real64)		::	tod
real(kind=real64)		::	treal
real(kind=real64)		::	trgtfs(4)
real(kind=real64)		::	tsp
real(kind=real64)		::	vnx(3)
real(kind=real64)		::	vom
real(kind=real64)		::	vsk
real(kind=real64)		::	vsw
character(len=*),	parameter	::	writefmt	=	"(e15.7,7(1pe13.5),i3,i3,i3)"
real(kind=real64)		::	x0(6)

Subroutines

subroutine walk3d(iseed, rp0, rpb, ck, fs, t0, t, tsp, ns, ino, bv0, nsplvl)

Arguments

Type		Name
integer	::	iseed
real(kind=real64)	::	rp0(5)
real(kind=real64)	::	rpb(5)
real(kind=real64)	::	ck
real(kind=real64)	::	fs
real(kind=real64)	::	t0
real(kind=real64)	::	t
real(kind=real64)	::	tsp
integer	::	ns
integer	::	ino
real(kind=real64)	::	bv0(3)
integer	::	nsplvl

sim3d_em Program

Contents

Common Blocks

Variables

Subroutines

Uses

Common Blocks

read_dmumuDG (subroutine)
read_dmumuAH (subroutine)
read_dmumuBK (subroutine)
preparefb (subroutine)
read_param (subroutine)
read_dxx (subroutine)
prepareptcl (subroutine)
preparecme (subroutine)
sim3d (program)
shockfront (program)
"> common /dir/

preparefb (subroutine)
f0mod (subroutine)
walk3d (subroutine)
sim3d (program)
walk3d (subroutine)
walk3d (subroutine)
shockfront (program)
"> common /fbcnst/

common /ldptcl/

read_param (subroutine)
split (subroutine)
walk3d (subroutine)
sim3d (program)
walk3d (subroutine)
walk3d (subroutine)
shockfront (program)
"> common /ndpdt/

sim3d (program)
shockfront (program)
"> common /npmax/

sim3d (program)
shockfront (program)
"> common /nsucmin/

fl_open (subroutine)
sim3d (program)
shockfront (program)
"> common /rankstr/

walk3d (subroutine)
"> common /seed/

e2p (function)
rp2e (function)
rp2beta (function)
beta2p (function)
fs0 (function)
prepareptcl (subroutine)
vfunc (subroutine)
arriv_time (program)
walk3d (subroutine)
sim3d (program)
walk3d (subroutine)
walk3d (subroutine)
shockfront (program)
"> common /specie/

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

split (subroutine)
sim3d (program)
shockfront (program)
"> common /svsp/

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

Variables

Subroutines

subroutine walk3d(iseed, rp0, rpb, ck, fs, t0, t, tsp, ns, ino, bv0, nsplvl)

Arguments

sim3d_em Program

Contents

Common Blocks

Variables

Subroutines

Uses

Common Blocks

read_dmumuDG (subroutine)read_dmumuAH (subroutine)read_dmumuBK (subroutine)preparefb (subroutine)read_param (subroutine)read_dxx (subroutine)prepareptcl (subroutine)preparecme (subroutine)sim3d (program)shockfront (program)"> common /dir/

preparefb (subroutine)f0mod (subroutine)walk3d (subroutine)sim3d (program)walk3d (subroutine)walk3d (subroutine)shockfront (program)"> common /fbcnst/

common /ldptcl/

read_param (subroutine)split (subroutine)walk3d (subroutine)sim3d (program)walk3d (subroutine)walk3d (subroutine)shockfront (program)"> common /ndpdt/

sim3d (program)shockfront (program)"> common /npmax/

sim3d (program)shockfront (program)"> common /nsucmin/

fl_open (subroutine)sim3d (program)shockfront (program)"> common /rankstr/

walk3d (subroutine)"> common /seed/

e2p (function)rp2e (function)rp2beta (function)beta2p (function)fs0 (function)prepareptcl (subroutine)vfunc (subroutine)arriv_time (program)walk3d (subroutine)sim3d (program)walk3d (subroutine)walk3d (subroutine)shockfront (program)"> common /specie/

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

split (subroutine)sim3d (program)shockfront (program)"> common /svsp/

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

Variables

Subroutines

subroutine walk3d(iseed, rp0, rpb, ck, fs, t0, t, tsp, ns, ino, bv0, nsplvl)

Arguments

read_dmumuDG (subroutine)
read_dmumuAH (subroutine)
read_dmumuBK (subroutine)
preparefb (subroutine)
read_param (subroutine)
read_dxx (subroutine)
prepareptcl (subroutine)
preparecme (subroutine)
sim3d (program)
shockfront (program)
"> common /dir/

preparefb (subroutine)
f0mod (subroutine)
walk3d (subroutine)
sim3d (program)
walk3d (subroutine)
walk3d (subroutine)
shockfront (program)
"> common /fbcnst/

read_param (subroutine)
split (subroutine)
walk3d (subroutine)
sim3d (program)
walk3d (subroutine)
walk3d (subroutine)
shockfront (program)
"> common /ndpdt/

sim3d (program)
shockfront (program)
"> common /npmax/

sim3d (program)
shockfront (program)
"> common /nsucmin/

fl_open (subroutine)
sim3d (program)
shockfront (program)
"> common /rankstr/

walk3d (subroutine)
"> common /seed/

e2p (function)
rp2e (function)
rp2beta (function)
beta2p (function)
fs0 (function)
prepareptcl (subroutine)
vfunc (subroutine)
arriv_time (program)
walk3d (subroutine)
sim3d (program)
walk3d (subroutine)
walk3d (subroutine)
shockfront (program)
"> common /specie/

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

split (subroutine)
sim3d (program)
shockfront (program)
"> common /svsp/

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