& usePW79thermodynamics, SEAICErestoreUnderIce,
IF ( .NOT. usePW79thermodynamics ) THEN
IF ( usePW79thermodynamics ) THEN
usePW79thermodynamics = .TRUE.
usePW79thermodynamics = .FALSE.
& useHB87stressCoupling, SEAICEuseFlooding, usePW79thermodynamics,
CALL WRITE_0D_L ( usePW79thermodynamics, INDEX_NONE,