+ NASA Homepage + NASA GISS Homepage + Model E Resource Homepage
real*8 function mi(hsi, ssi, msi)
real*8, intent(in)