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