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