& SEAICEadvSnow, SEAICEadvSalt,
IF ( SEAICEadvSnow ) THEN
checkAdvSchSnow = SEAICEadvSnow .AND. (
checkAdvSchSnow = SEAICEadvSnow .AND.
IF ( SEAICEadvHeff .OR. SEAICEadvArea .OR. SEAICEadvSnow
IF ( SEAICEadvSnow .AND. SEAICEdiffKhSnow .EQ. 0. _d 0 ) THEN
SEAICEadvSnow = .TRUE.
SEAICEadvSnow = .FALSE.
& SEAICEadvHeff, SEAICEadvArea, SEAICEadvSnow,
CALL WRITE_0D_L ( SEAICEadvSnow, INDEX_NONE,
IF ( SEAICEadvSnow )