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