((∫_0^T)((∂(Subscript[Q, v]))/(∂t))dt=-(∫_0^T)(Subscript[F, v])dt+(∫_0^T)Edt-(∫_0^T)(Subscript[P, cong])dt+(∫_0^T)(Subscript[P, evapor])dt
(∫_0^T)((∂(Subscript[Q, h]))/(∂t))dt=-(∫_0^T)(Subscript[F, h])dt-(∫_0^T)Rdt+(∫_0^T)(Subscript[P, cong])dt-(∫_0^T)(Subscript[P, evapor])dt(5))