& uniformLin_PhiSurf, uniformFreeSurfLev,
LOGICAL uniformFreeSurfLev
IF ( .NOT.uniformFreeSurfLev .AND. k.NE.1 .AND.
& uniformFreeSurfLev .AND. k.EQ.1 ) THEN
IF ( uniformFreeSurfLev ) THEN
CALL WRITE_0D_L( uniformFreeSurfLev, INDEX_NONE,
IF ( select_rStar.EQ.0 .AND. uniformFreeSurfLev ) THEN
ELSEIF ( uniformFreeSurfLev ) THEN
uniformFreeSurfLev = usingZCoords
uniformFreeSurfLev = usingZCoords .AND. .NOT.useShelfIce