Pfr_Ptot function

Calculate phytochrome photoequilibrium