INTEGER SEAICEadvSchHeff
& SEAICEadvSchHeff,
I GAD_HEFF, SEAICEadvSchHeff,
& SEAICEadvSchHeff.NE.ENUM_UPWIND_1RST .AND.
& SEAICEadvSchHeff.NE.ENUM_CENTERED_2ND .AND.
& SEAICEadvSchHeff.NE.ENUM_DST2 .AND.
& SEAICEadvSchHeff.NE.ENUM_FLUX_LIMIT .AND.
& SEAICEadvSchHeff.NE.ENUM_DST3 .AND.
& SEAICEadvSchHeff.NE.ENUM_DST3_FLUX_LIMIT .AND.
& SEAICEadvSchHeff.NE.ENUM_OS7MP )
& ' SEAICEadvSchHeff = ', SEAICEadvSchHeff
& SEAICEadvSchHeff.NE.ENUM_CENTERED_2ND
& SEAICEadvSchHeff, SEAICEadvSchSnow,
SEAICEadvSchHeff = UNSET_I
& SEAICEadvSchArea = SEAICEadvSchHeff
IF ( SEAICEadvSchHeff .EQ. UNSET_I )
& SEAICEadvSchHeff = SEAICEadvSchArea
& SEAICEadvSchSnow = SEAICEadvSchHeff
& SEAICEadvSchSalt = SEAICEadvSchHeff
&CALL WRITE_0D_I ( SEAICEadvSchHeff, INDEX_NONE,