Analytical calculation procedure for underground heat losses