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