Better fPAR etc. Corrected r in grow.f