TS2 = TSFC(J)*TSFC(J)
Slr0(J) = SBC*TS2*TS2
TS2 = TSKIN(J)*TSKIN(J)
SLRU(J) = SBC*TS2*TS2
dSlr(J) = 4. _d 0 *SBC*TS2*TSKIN(J)
_RL QDUMMY(1), RDUMMY(1), TS2