+ NASA Homepage + NASA GISS Homepage + Model E Resource Homepage
integer function checkflux(flux) result (sign_of_flux)
real*8
real*8, intent(in)