& SEAICE_maskRHS, SEAICEscaleSurfStress,
IF ( SEAICEscaleSurfStress ) THEN
IF ( .NOT. SEAICEscaleSurfStress ) THEN
& SEAICEscaleSurfStress ) THEN
& SEAICE_cpAir, SEAICEscaleSurfStress,
SEAICEscaleSurfStress = .FALSE.
CALL WRITE_0D_L ( SEAICEscaleSurfStress, INDEX_NONE,