+ NASA Homepage + NASA GISS Homepage + Model E Resource Homepage
subroutine zero_patch(pp)
type(patch), pointer