LOGICAL useThSIce
& useICEFRONT, useThSIce,
IF ( useRealFreshWaterFlux .AND. useThSIce ) THEN
IF ( (useSEAICE .OR. useThSIce) .AND. allowFreezing ) THEN
IF ( useThSIce .AND. fluidIsWater ) THEN
IF ( seqFlag.EQ.0 .AND. useThSIce ) THEN
IF (useThSIce)
IF ( useRealFreshWaterFlux .AND. .NOT.useThSIce ) THEN
IF ( .NOT.useThSIce ) THEN
IF (useThSIce) THEN
useThSIce =.FALSE.
& useThSIce,
IF (useThSIce) CALL THSICE_CHECK( myThid )
IF (useThSIce) CALL PACKAGES_ERROR_MSG('ThSIce',' ',myThid)
IF (useThSIce) CALL THSICE_INIT_FIXED(myThid)
IF (useThSIce) CALL THSICE_READPARMS( myThid )
& .AND. .NOT.(useThSIce.AND.k.EQ.1) ) THEN
IF ( useThSIce ) THEN
IF ( useThSIce )
IF ( useThSIce .AND. stressReduction.GT. 0. _d 0 ) THEN
IF ( aim_energPrecip .OR. useThSIce ) ALHevp = ALHC + ALHF
IF ( useThSIce ) QSW_underice = .TRUE.