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