+ NASA Homepage + NASA GISS Homepage + Model E Resource Homepage
real*8 function deidtiws(ti, si, snowl, mice)
real*8, intent(in)