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