& SHELFICEselectDragQuadr
INTEGER SHELFICEselectDragQuadr
CALL WRITE_0D_I( SHELFICEselectDragQuadr, INDEX_NONE,
SHELFICEselectDragQuadr = -1
ELSEIF ( SHELFICEselectDragQuadr.EQ.-1 ) THEN
SHELFICEselectDragQuadr = MAX( 0, selectBotDragQuadr )
& SHELFICEDragQuadratic, SHELFICEselectDragQuadr,
IF ( SHELFICEselectDragQuadr.EQ.0 ) THEN
ELSEIF ( SHELFICEselectDragQuadr.EQ.1 ) THEN
ELSEIF ( SHELFICEselectDragQuadr.EQ.2 ) THEN
& .OR. SHELFICEselectDragQuadr.GE.0 )