#include <misc.h>#include <params.h>subroutine tsinti (tmeltx, latvapx, rairx, stebolx, laticex)!----------------------------------------------------------------------- ! ! Purpose: ! Initialize surface temperature calculation constants! ! Method: ! <Describe the algorithm(s) used in the routine.> ! <Also include any applicable external references.> ! ! Author: L. Buja! !-----------------------------------------------------------------------   use precision   implicit none#include <comtsc.h>!------------------------------Arguments--------------------------------!! Input arguments!   real(r8) tmeltx         ! Melting temperature of snow and ice   real(r8) latvapx        ! Latent heat of vaporization   real(r8) rairx          ! Gas constant for dry air   real(r8) stebolx        ! Stefan-Boltzmann constant   real(r8) laticex        ! latent heat of fusion!!-----------------------------------------------------------------------!   latice = laticex    ! Latent heat of fusion at 0'C = 3.336e5 J/Kg   tmelt  = tmeltx   latvap = latvapx   rair   = rairx   stebol = stebolx   snwedp = 10.0       ! 10:1 Snow:water equivalent depth factor!   returnend subroutine tsinti