IF (useThSIce) CALL PACKAGES_CHECK_ERROR('THSICE', myThid)
IF ( useThSIce .AND. fluidIsWater ) THEN
& .AND. .NOT. useThSIce ) THEN
IF (useThSIce) CALL THSICE_INIT_FIXED(mythid)
IF (useThSIce) CALL THSICE_INI_VARS( mythid)
IF ( useRealFreshWaterFlux .AND. useThSIce ) THEN
useThSIce=.FALSE.
& useThSIce,
IF (useThSIce) THEN
IF (useThSIce)
IF (useThSIce) CALL THSICE_READPARMS( myThid )
& .AND. .NOT.(useThSIce.AND.k.EQ.1) ) THEN
IF ( seqFlag.EQ.0 .AND. useThSIce ) THEN
LOGICAL useThSIce
& useSBO, useSEAICE, useThSIce, useBulkForce,
IF ( useThSIce ) THEN
IF ( useThSIce .AND. aim_energPrecip ) THEN
IF (useThSIce) conv_EmP = conv_Precip / rhofw
IF (useThSIce) _EXCH_XY_R8( iceMask, myThid )
IF ( useThSIce .AND. stressReduction.GT. 0. _d 0 ) THEN