+ NASA Homepage + NASA GISS Homepage + Model E Resource Homepage
subroutine find_phih(zet, phih)
real*8