LOGICAL useStreamIce
& useStreamIce, useICEFRONT, useThSIce, useLand,
IF ( seqFlag.EQ.2 .AND. useStreamIce ) THEN
IF (useStreamIce) THEN
IF (.NOT.useStreamIce) THEN
IF ( .NOT.useStreamIce ) THEN
useStreamIce =.FALSE.
CALL PACKAGES_PRINT_MSG( useStreamIce, 'StreamIce', ' ' )
& useStreamIce,
IF (useStreamIce) CALL STREAMICE_CHECK( myThid )
IF (useStreamIce) CALL PACKAGES_ERROR_MSG('StreamIce',' ',myThid)