LOGICAL useShelfIce
& useSEAICE, useSALT_PLUME, useShelfIce,
if ( useShelfIce ) k = kTopC(i,j,bi,bj)
IF (useShelfIce) THEN
IF (useShelfIce.AND.momViscosity.AND.bottomDragTerms) THEN
IF ( useShelfIce .AND. useDOWN_SLOPE ) THEN
ELSEIF ( useShelfIce ) THEN
IF ( useShelfIce .AND. fluidIsWater ) THEN
IF ( useShelfIce ) THEN
IF ( useShelfIce )
useShelfIce =.FALSE.
& useShelfIce,
IF (useShelfIce) CALL SHELFICE_CHECK( myThid )
IF (useShelfIce) CALL PACKAGES_ERROR_MSG('ShelfIce',' ',myThid)
IF (useShelfIce) CALL SHELFICE_INIT_FIXED( myThid )
IF (useShelfIce) CALL SHELFICE_READPARMS( myThid )