DO WHILE ( addDims.GT.0 )
DO WHILE ( fCnt.GT.prev_fCnt )
DO WHILE ( ii.LE.mnFld )
DO WHILE (NSEC.GT.86400)
DO WHILE (NSEC.LT.0)
DO WHILE ( (JJ.GT.0).AND.(rhoS(K).LT.rhoS(JJ)) )
DO WHILE (x(i,j) .GE. xx(k(i,j)+1))
DO WHILE (x(i,j) .LT. xx(k(i,j)))
DO WHILE (ZZc(kk) .GE. Zc(k+1))
DO WHILE ( .TRUE. )
DO WHILE ( newConnect.NE. 0 )
DO WHILE (doRidgeAgain)
DO WHILE ( abs(rC(KGEO(i,j,bi,bj))) .LT. 50.0 _d 0 .AND.
DO WHILE ( newtonIter.LT.SEAICEnonLinIterMax .AND.
DO WHILE ( .NOT.krylovConverged )
DO WHILE ( doLineSearch )
DO WHILE ( picardIter.LT.picardIterMax .AND.
DO WHILE ( xs.GE.1.0 .OR. xs.EQ.0.0 )
DO WHILE ( it.LE.ACFCrecSize )
DO WHILE ( nPts.GT.prev_nPts )
DO WHILE ( gdiag(nn)(5:5).EQ.'P' )
DO WHILE ( flagP )
DO WHILE ( k .LT. Nr .AND. rC(k) .GE. -zcrit )