LOGICAL useSEAICE
& useSEAICE, useSALT_PLUME, useShelfIce,
IF (useSEAICE) THEN
IF (useSEAICE .AND. .NOT. useEXF) THEN
IF ( (useSEAICE .OR. useThSIce) .AND. allowFreezing ) THEN
IF ( useSEAICE ) THEN
IF ( seqFlag.EQ.0 .AND. useSEAICE ) THEN
if (useSEAICE) then
IF ( useSEAICE .AND. (.NOT. SEAICErestoreUnderIce) ) THEN
IF ( useSEAICE .OR. thSIceAdvScheme.GT.0 ) THEN
IF ( useRealFreshWaterFlux .AND. (useEXF.OR.useSEAICE ) )
IF ( useEXF .OR. useSEAICE ) THEN
IF ( useSEAICE ) stressReduction = 0. _d 0
IF ( useSEAICE .AND. stressReduction.NE.0. _d 0 ) THEN
useSEAICE = .FALSE.
useSEAICE = .TRUE.
useSEAICE =.FALSE.
& useSEAICE,
IF (useSEAICE) CALL SEAICE_CHECK( myThid )
IF (useSEAICE) CALL PACKAGES_ERROR_MSG('SEAICE',' ',myThid)
IF (useSEAICE) CALL SEAICE_COST_INIT_FIXED( myThid )
IF (useSEAICE) CALL SEAICE_INIT_FIXED(myThid)
IF (useSEAICE) CALL SEAICE_READPARMS( myThid )
IF ( useOldFreezing .AND. .NOT. useSEAICE
IF (useSEAICE) CALL MNC_CW_WRITE_GRID_COORD('adseaice',myThid)
if ( .NOT. useSEAICE .AND. .NOT. useEXF ) then
IF ( useSEAICE ) CALL SEAICE_AD_DUMP( mytime, myiter, myThid )
IF ( CFC_iceFile .NE. ' ' .AND. .NOT.useSEAICE ) THEN
IF (.NOT.useSEAICE) THEN
IF ( useSEAICE ) QSW_underice = .TRUE.
IF ( .NOT. useSEAICE ) THEN
if ( .NOT. useSEAICE )