subroutine nst_module::cal_w | ( | integer, intent(in) | kdt, |
real(kind=kind_phys), intent(in) | xz, | ||
real(kind=kind_phys), intent(in) | xt, | ||
real(kind=kind_phys), intent(in) | xzts, | ||
real(kind=kind_phys), intent(in) | xtts, | ||
real(kind=kind_phys), intent(out) | w_0, | ||
real(kind=kind_phys), intent(out) | w_d | ||
) |