_RL PredTempChangeFromNewIceVol
& PredTempChangeFromNewIceVol(i,j)
PredTempChangeFromNewIceVol (I,J) = 0.0
PredTempChangeFromNewIceVol(I,J) =
& PredTempChangeFromNewIceVol(I,J)