subroutine nst_module::cal_ttop | ( | integer, intent(in) | kdt, |
real(kind=kind_phys), intent(in) | timestep, | ||
real(kind=kind_phys), intent(in) | q_warm, | ||
real(kind=kind_phys), intent(in) | rho, | ||
real(kind=kind_phys), intent(in) | dz, | ||
real(kind=kind_phys), intent(in) | xt, | ||
real(kind=kind_phys), intent(in) | xz, | ||
real(kind=kind_phys), intent(out) | ttop | ||
) |