IF ( SEAICEadvArea .AND. OBNafile .NE. ' ' ) THEN
IF ( SEAICEadvArea .AND. OBEafile .NE. ' ' )
IF ( SEAICEadvArea .AND. OBWafile .NE. ' ' )
IF ( SEAICEadvArea .AND. OBNafile .NE. ' ' )
IF ( SEAICEadvArea .AND. OBSafile .NE. ' ' )
& SEAICEadvHeff, SEAICEadvArea,
IF ( SEAICEadvArea ) THEN
checkAdvSchArea = SEAICEadvArea .AND.
checkAdvSchArea = SEAICEadvArea .AND. (
IF ( SEAICEadvHeff .OR. SEAICEadvArea .OR. SEAICEadvSnow
SEAICEadvArea = .TRUE.
SEAICEadvArea = .FALSE.
& SEAICEadvHeff, SEAICEadvArea, SEAICEadvSnow,
IF ( SEAICEadvArea )
CALL WRITE_0D_L ( SEAICEadvArea, INDEX_NONE,