& SEAICEadvSchHeff,
INTEGER SEAICEadvSchHeff
I GAD_HEFF, SEAICEadvSchHeff,
& ' SEAICEadvSchHeff = ', SEAICEadvSchHeff
& SEAICEadvSchHeff.NE.ENUM_CENTERED_2ND
& 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 = UNSET_I
IF ( SEAICEadvSchHeff .EQ. UNSET_I )
& SEAICEadvSchHeff = SEAICEadvSchArea
& SEAICEadvSchSnow = SEAICEadvSchHeff
& SEAICEadvSchSalt = SEAICEadvSchHeff
& SEAICEadvSchAge = SEAICEadvSchHeff
& SEAICEadvSchHeff, SEAICEadvSchSnow,
&CALL WRITE_0D_I ( SEAICEadvSchHeff, INDEX_NONE,