& SHELFICEheatCapacity_Cp,
_RL SHELFICEheatCapacity_Cp
CALL WRITE_0D_RL( SHELFICEheatCapacity_Cp, INDEX_NONE,
eps3a = rhoShelfIce*SHELFICEheatCapacity_Cp
eps8 = rUnit2mass*SHELFICEheatCapacity_Cp
& - freshWaterFlux*SHELFICEheatCapacity_Cp*fwflxFac )