ICEFRONTlatentHeat = SHELFICElatentHeat
& SHELFICElatentHeat,
_RL SHELFICElatentHeat
CALL WRITE_0D_RL( SHELFICElatentHeat, INDEX_NONE,
SHELFICElatentHeat = 334.0 _d 3
& SHELFICElatentHeat, SHELFICEHeatCapacity_Cp,
IF ( SHELFICElatentHeat .NE. 0. _d 0 )
& recip_latentHeat = 1. _d 0/SHELFICElatentHeat
& - xx_shifwflx_loc(I,J,bi,bj)*SHELFICElatentHeat
eps2 = rUnit2mass*SHELFICElatentHeat
& SHELFICElatentHeat
& - cFac*freshWaterFlux*( SHELFICElatentHeat