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