LOGICAL SHELFICEconserve
& SHELFICEconserve,
IF ( SHELFICEconserve ) THEN
CALL WRITE_0D_L( SHELFICEconserve, INDEX_NONE,
& SHELFICEconserve, SHELFICEboundaryLayer,
SHELFICEconserve = .FALSE.
IF ( SHELFICEconserve ) cFac = 1. _d 0
IF ( SHELFICEconserve .AND. useRealFreshWaterFlux ) rFac = 0. _d 0