Page:4SIGHT manual- a computer program for modelling degradation of underground low level waste concrete vaults (IA 4sightmanualcomp5612snyd).pdf/143

65. UPDATE PRESSURES     $$\Psi$$[k]=tmp[k]; } } while c> tol && iteration++ < 1000);    for (k=0; k<= 0; k < NUM_CELLS; k++)      v[k]=-$$\kappa$$[k]*CUB($$x$$i[k]/$$\vartheta_0$$}*$$\Psi$$[k+1]-$$\Psi$$[k])/$$\Delta X$$[k];  } 67. Copy the new porosities into the n—1 values.

⟨Update the porosities 67⟩ $$\equiv$$ for (k = FIRST.CELL; k < NUM.SURFACES; k++)$$\phi'^{n-1}$$[k]=$$\phi'^n$$[k];

This code is used in section 9.