& usingPCoords, usingZCoords,
LOGICAL usingZCoords
ELSEIF ( usingZCoords .AND. useShelfIce ) THEN
IF ( usingZCoords ) THEN
IF ( fluidIsWater .AND. usingZCoords ) THEN
& usingZCoords.AND.rhoRefFile .NE. ' ' ) ) THEN
CALL WRITE_0D_L( usingZCoords, INDEX_NONE,
IF ( (usingZCoords .AND. K .EQ. 2) .OR.
IF (usingZCoords) upward = -1
ELSEIF ( usingZCoords ) THEN
IF ( usingZCoords .AND. seaLev_Z.NE.UNSET_RL ) THEN
usingZCoords = .FALSE.
usingZCoords = .TRUE.
IF ( useShelfIce .AND. usingZCoords ) THEN
IF ( usingZCoords ) rEmpty = rF(1)
& usingZCoords.AND.fluidIsWater ) THEN
IF ( usingZCoords ) rSigBndRS = rF(1)
IF ( usingZCoords .AND. setInterFDr ) THEN
IF ( usingZCoords .AND. setCenterDr ) THEN
uniformFreeSurfLev = usingZCoords
uniformFreeSurfLev = usingZCoords .AND. .NOT.useShelfIce
IF ( usingZCoords .AND. rhoRefFile .NE. ' ' ) THEN