+ NASA Homepage + NASA GISS Homepage + Model E Resource Homepage
subroutine cohort_destruct(cop)
type(cohort), pointer