& selectSigmaCoord,
INTEGER selectSigmaCoord
IF ( selectSigmaCoord.NE.0 ) THEN
CALL WRITE_0D_I( selectSigmaCoord, INDEX_NONE,
ELSEIF ( selectSigmaCoord.NE.0 ) THEN
ELSEIF ( nonlinFreeSurf.GT.0 .AND. selectSigmaCoord.EQ.0 ) THEN
IF ( selectSigmaCoord.EQ.0 ) THEN
& selectSigmaCoord, rSigmaBnd, hybSigmFile,
IF ( selectSigmaCoord .EQ. 0 ) THEN
selectSigmaCoord = 0
IF ( nonlinFreeSurf.GT.0 .AND. selectSigmaCoord.NE.0 ) THEN