shockfront – SEP-Stochastic

Uses

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

! force nodes = 1 SHARED(cvgrid)

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)
sim3d_em (program)
walk3d (subroutine)
sksurface (subroutine)
"> 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)
sim3d_em (program)
"> common /dir/

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

preparefb (subroutine)
f0mod (subroutine)
walk3d (subroutine)
sim3d (program)
walk3d (subroutine)
sim3d_em (program)
walk3d (subroutine)
"> 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

read_param (subroutine)
get_rlambda0 (function)
set_rlambda (subroutine)
vfunc (subroutine)
sim3d (program)
"> common /ndmumu/

Type	Attributes		Name		Initial
integer		::	ndmumu

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

Type	Attributes		Name		Initial
integer		::	ndpdt

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

Type	Attributes		Name		Initial
integer		::	ndxx

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

Type	Attributes		Name		Initial
integer		::	npmax

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

Type	Attributes		Name		Initial
integer		::	nsucmin

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

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

e2p (function)
rp2e (function)
rp2beta (function)
beta2p (function)
fs0 (function)
prepareptcl (subroutine)
vfunc (subroutine)
arriv_time (program)
walk3d (subroutine)
sim3d (program)
walk3d (subroutine)
sim3d_em (program)
walk3d (subroutine)
"> 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)
sim3d_em (program)
walk3d (subroutine)
"> 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)
sim3d_em (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)
sim3d_em (program)
walk3d (subroutine)
sksurface (subroutine)
"> 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
integer,	parameter	::	NM1	=	16
integer,	parameter	::	NMXID	=	40
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)		::	dflux
real(kind=real64)		::	dflx
real(kind=real64)		::	dmapjul
real(kind=real64)		::	dnsk0
real(kind=real64)		::	doy
real(kind=real64)		::	e0
real(kind=real64),	allocatable	::	ef(:)
real(kind=real64)		::	f1
real(kind=real64)		::	facip
real(kind=real64)		::	fb_
real(kind=real64)		::	flux
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		::	iseed
integer		::	itjul
integer		::	iyday
integer		::	iyear
integer		::	j
real(kind=real64)		::	k4ok2
real(kind=real64)		::	k6ok2
integer		::	lsp
integer		::	n1
integer		::	ndpdt
integer		::	nf
integer		::	nfbconst
integer		::	nfl
integer		::	nodes
integer		::	np
integer		::	npp
integer		::	ns
integer,	allocatable	::	nseeds(:)
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)		::	rdf
real(kind=real64),	allocatable	::	rf(:,:)
real(kind=real64)		::	rk
real(kind=real64)		::	rmax
real(kind=real64),	allocatable	::	rmuf(:)
real(kind=real64)		::	rnm
real(kind=real64)		::	rnz
real(kind=real64)		::	rp0(5)
real(kind=real64)		::	rp0org(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),	allocatable	::	tf(:)
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)		::	vnr(3)
real(kind=real64)		::	vnx(3)
real(kind=real64)		::	vom
real(kind=real64)		::	vsk
real(kind=real64)		::	vsw
character(len=*),	parameter	::	writefmt	=	"(i1,i3,8(1pe13.5),i3)"
real(kind=real64)		::	x0(6)

Subroutines

subroutine sksurface(tsh, x, n)

Arguments

Type	Intent		Name
real(kind=real64),	intent(in)	::	tsh
real(kind=real64),	intent(out)	::	x(6)
integer,	intent(in)	::	n

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

random walk of energetic particles in magnetic variables: t, xp(5) - x - spatial coordinators - p - momentum - pa - pitch angle

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
real(kind=real64)	::	dnsk0
real(kind=real64)	::	bv0(3)
integer	::	nsplvl

shockfront 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)
sim3d_em (program)
"> common /dir/

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

read_param (subroutine)
get_rlambda0 (function)
set_rlambda (subroutine)
vfunc (subroutine)
sim3d (program)
"> common /ndmumu/

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

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

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

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

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

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

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

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

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

Variables

Subroutines

subroutine sksurface(tsh, x, n)

Arguments

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

Arguments

shockfront 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)sim3d_em (program)"> common /dir/

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

read_param (subroutine)get_rlambda0 (function)set_rlambda (subroutine)vfunc (subroutine)sim3d (program)"> common /ndmumu/

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

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

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

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

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

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

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

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

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

Variables

Subroutines

subroutine sksurface(tsh, x, n)

Arguments

subroutine walk3d(iseed, rp0, rpb, ck, fs, t0, t, tsp, ns, dnsk0, 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)
sim3d_em (program)
"> common /dir/

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

read_param (subroutine)
get_rlambda0 (function)
set_rlambda (subroutine)
vfunc (subroutine)
sim3d (program)
"> common /ndmumu/

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

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

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

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

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

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

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

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

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