& useFullLeith, useStrainTensionVisc, useAreaViscLength,
LOGICAL useStrainTensionVisc
IF (useStrainTensionVisc) THEN
CALL WRITE_0D_L( useStrainTensionVisc, INDEX_NONE,
& useFullLeith, useAnisotropicViscAgridMax, useStrainTensionVisc,
useStrainTensionVisc= .FALSE.