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