LOGICAL useLinearSponge
& OBCSsponge_Theta, OBCSsponge_Salt, useLinearSponge,
useLinearSponge =.FALSE.
IF (useLinearSponge) THEN