ICEFRONTlatentHeat = SHELFICElatentHeat
& SHELFICElatentHeat, recip_SHELFICElatentHeat,
_RL SHELFICElatentHeat
IF ( SHELFICElatentHeat .NE. 0. _d 0 )
& recip_SHELFICElatentHeat = 1. _d 0/SHELFICElatentHeat
& SHELFICElatentHeat, SHELFICEHeatCapacity_Cp,
SHELFICElatentHeat = 334.0 _d 3
eps2 = rUnit2mass*SHELFICElatentHeat*SHELFICEsaltTransCoeff
& SHELFICElatentHeat
& - cFac*freshWaterFlux*( SHELFICElatentHeat