& ICEFRONTlatentHeat, recip_ICEFRONTlatentHeat,
_RL ICEFRONTlatentHeat
IF ( ICEFRONTlatentHeat .NE. 0. _d 0 )
& recip_ICEFRONTlatentHeat = 1. _d 0/ICEFRONTlatentHeat
& ICEFRONTlatentHeat, ICEFRONTHeatCapacity_Cp,
ICEFRONTlatentHeat = SHELFICElatentHeat
ICEFRONTlatentHeat = 334.0 _d 3
eps2 = rUnit2mass*ICEFRONTlatentHeat*ICEFRONTsaltTransCoeff(I,J)
& (ICEFRONTlatentHeat + ICEFRONTheatCapacity_cp*