& SEAICEadvScheme,
INTEGER SEAICEadvScheme
IF ( SEAICEadvScheme.EQ.ENUM_CENTERED_2ND
& .OR.SEAICEadvScheme.EQ.ENUM_UPWIND_3RD
& .OR.SEAICEadvScheme.EQ.ENUM_CENTERED_4TH ) THEN
IF ( SEAICEadvScheme.EQ.ENUM_CENTERED_2ND ) THEN
& SEAICEadvScheme, ' not compatible with those Adv.Scheme:'
SEAICEadvScheme = 2
& SEAICEadvSchArea = SEAICEadvScheme
IF ( SEAICEadvScheme .NE. SEAICEadvSchArea )
& SEAICEadvScheme = SEAICEadvSchArea
& LAD, IMAX_TICE, SEAICEadvScheme, SEAICEadvSchArea,
CALL WRITE_0D_I ( SEAICEadvScheme, INDEX_NONE,
IF ( SEAICEadvScheme .EQ. 2 )