Go to the source code of this file.
|
| subroutine | oi_tsl (KDAT, KSSSSS, PLAT, PLON, PMU0, PMU0M, KH) |
| |
| subroutine | get_mu0 (PGEMU, PGELAM, PTIME, KSSSSS, PMU) |
| |
| real function | rds (PT) |
| |
| real function | ret (PT) |
| |
| real function | rtime (KA, KM, KD, KS) |
| |
| subroutine oi_tsl::get_mu0 |
( |
real, intent(in) |
PGEMU, |
|
|
real, intent(in) |
PGELAM, |
|
|
real, intent(in) |
PTIME, |
|
|
integer, intent(in) |
KSSSSS, |
|
|
real, intent(out) |
PMU |
|
) |
| |
| subroutine oi_tsl |
( |
integer, intent(in) |
KDAT, |
|
|
integer, intent(in) |
KSSSSS, |
|
|
real, intent(in) |
PLAT, |
|
|
real, intent(in) |
PLON, |
|
|
real, intent(out) |
PMU0, |
|
|
real, intent(out) |
PMU0M, |
|
|
integer, intent(out) |
KH |
|
) |
| |
| real function oi_tsl::rds |
( |
real, intent(in) |
PT | ) |
|
| real function oi_tsl::ret |
( |
real, intent(in) |
PT | ) |
|
| real function oi_tsl::rtime |
( |
integer, intent(in) |
KA, |
|
|
integer, intent(in) |
KM, |
|
|
integer, intent(in) |
KD, |
|
|
integer, intent(in) |
KS |
|
) |
| |