sksurface Subroutine

subroutine sksurface(tsh, x, n)

Arguments

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

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

preparecme (subroutine)
inorout (subroutine)
"> common /cmesk/

Type Attributes Name Initial
real(kind=real64) :: acsk
integer :: nsk
real(kind=real64) :: pska(20,8)
real(kind=real64) :: tska(20)
real(kind=real64) :: vskf0

prepareptcl (subroutine)
split (subroutine)
preparecme (subroutine)
inorout (subroutine)
walk3d (subroutine)
sim3d (program)
walk3d (subroutine)
sim3d_em (program)
walk3d (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

preparecme (subroutine)
inorout (subroutine)
sim3d (program)
"> common /vsksw/

Type Attributes Name Initial
real(kind=real64) :: tauc1_0
real(kind=real64) :: tauc2
real(kind=real64) :: tauc2_0
real(kind=real64) :: tauf
real(kind=real64) :: vcme0
real :: vcme0kmPs
real(kind=real64) :: vsksw