public subroutine solarwind(r, vpl, gvpl, densw)
calculate solar wind velocity in the corotating frame
and its gradient
in spherical coordinate system
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
real(kind=real64),
|
intent(in) |
|
|
:: |
r(3) |
|
|
real(kind=real64),
|
intent(out) |
|
|
:: |
vpl(3) |
|
|
real(kind=real64),
|
intent(out) |
|
|
:: |
gvpl(3,3) |
|
|
real(kind=real64),
|
intent(out) |
|
|
:: |
densw |
|
Common Blocks
| 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 |
|
|
|