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