+ NASA Homepage + NASA GISS Homepage + Model E Resource Homepage
subroutine find_phim(zet, phim)
real*8