LOGICAL STREAMICE_calve_to_mask
& STREAMICE_calve_to_mask,
IF (.not. STREAMICE_calve_to_mask .OR.
& (STREAMICE_calve_to_mask .and.
CALL WRITE_0D_L( STREAMICE_calve_to_mask, INDEX_NONE,
IF ( STREAMICE_calve_to_mask ) THEN
STREAMICE_calve_to_mask = .FALSE.