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