& atmSLPrTime, HeatFluxTime, qShortWaveTime,
_RL atmSLPrTime (nSx,nSy)
atmSLPrTime(bi,bj) = atmSLPrTime(bi,bj) + cplTimeFraction
U atmSLPr, atmSLPrTime, myThid )
atmSLPrTime(bi,bj) = 0.