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