LOGICAL SHELFICEuseGammaFrict
& SHELFICEuseGammaFrict,
IF ( SHELFICEuseGammaFrict ) THEN
CALL WRITE_0D_L( SHELFICEuseGammaFrict, INDEX_NONE,
IF ( .NOT. SHELFICEuseGammaFrict ) THEN
SHELFICEuseGammaFrict = .FALSE.
& SHELFICEuseGammaFrict, SHELFICE_oldCalcUStar,
IF ( SHELFICEuseGammaFrict )