ICEFRONTkappa = SHELFICEkappa
& rhoShelfice, SHELFICEkappa,
_RL SHELFICEkappa
CALL WRITE_0D_RL( SHELFICEkappa, INDEX_NONE,
SHELFICEkappa = 1.54 _d -06
& * SHELFICEkappa * ( 1. _d 0 - dFac )