& SHELFICElatentHeat, recip_SHELFICElatentHeat,
_RL recip_SHELFICElatentHeat
& recip_SHELFICElatentHeat = 1. _d 0/SHELFICElatentHeat
recip_SHELFICElatentHeat = 0.0 _d 0
& *recip_SHELFICElatentHeat