subroutine nst_module::dtm_onset |
( |
integer, intent(in) |
kdt, |
|
|
real(kind=kind_phys), intent(in) |
timestep, |
|
|
real(kind=kind_phys), intent(in) |
rich, |
|
|
real(kind=kind_phys), intent(in) |
tox, |
|
|
real(kind=kind_phys), intent(in) |
toy, |
|
|
real(kind=kind_phys), intent(in) |
i0, |
|
|
real(kind=kind_phys), intent(in) |
q, |
|
|
real(kind=kind_phys), intent(in) |
sss, |
|
|
real(kind=kind_phys), intent(in) |
sep, |
|
|
real(kind=kind_phys), intent(in) |
q_ts, |
|
|
real(kind=kind_phys), intent(in) |
hl_ts, |
|
|
real(kind=kind_phys), intent(in) |
rho, |
|
|
real(kind=kind_phys), intent(in) |
alpha, |
|
|
real(kind=kind_phys), intent(in) |
beta, |
|
|
real(kind=kind_phys), intent(in) |
alon, |
|
|
real(kind=kind_phys), intent(in) |
sinlat, |
|
|
real(kind=kind_phys), intent(in) |
soltim, |
|
|
real(kind=kind_phys), intent(in) |
grav, |
|
|
real(kind=kind_phys), intent(in) |
le, |
|
|
real(kind=kind_phys), intent(out) |
xt, |
|
|
real(kind=kind_phys), intent(out) |
xs, |
|
|
real(kind=kind_phys), intent(out) |
xu, |
|
|
real(kind=kind_phys), intent(out) |
xv, |
|
|
real(kind=kind_phys), intent(out) |
xz, |
|
|
real(kind=kind_phys), intent(out) |
xzts, |
|
|
real(kind=kind_phys), intent(out) |
xtts |
|
) |
| |