INTEGER SEAICEadvScheme
& 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:'
& 'not available with SEAICEadvScheme=', SEAICEadvScheme
& SEAICEuseFluxForm, SEAICEadvScheme, SEAICEadvSchArea,
IF ( SEAICEadvScheme.EQ.2 ) THEN
SEAICEadvScheme = 2
& SEAICEadvSchArea = SEAICEadvScheme
IF ( SEAICEadvScheme .NE. SEAICEadvSchArea )
& SEAICEadvScheme = SEAICEadvSchArea
CALL WRITE_0D_I ( SEAICEadvScheme, INDEX_NONE,
IF ( SEAICEadvScheme .EQ. 2 )