+ NASA Homepage + NASA GISS Homepage + Model E Resource Homepage
real*8 function cohort_carbon(cop)
type(cohort), pointer
real*8