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
	)

Referenced by dtm_1p_zwa(), and sfc_nst::sfc_nst_run().