((Subscript[h, s])((Subscript[T, d]),p)=((Subscript[M, wv])/(Subscript[M, air]))(((Subscript[p, sat])((Subscript[T, d])))/(p-(Subscript[p, sat])((Subscript[T, d]))))Eq.   1(Subscript[Q, air,i])=(Subscript[Q, i])(1/(1+(Subscript[h, s])((Subscript[T, d,i]),p)))Eq.   2(Subscript[Q, w])=(Subscript[Q, air,1])[(Subscript[h, s])((Subscript[T, d,o]),p)-(Subscript[h, s])((Subscript[T, d,i])p)]Eq.   3)