DO WHILE (NSEC.GT.86400)
DO WHILE (NSEC.LT.0)
DO WHILE (TatU .GE. layers_G(kgu(i,j)+1))
DO WHILE (TatU .LT. layers_G(kgu(i,j)))
DO WHILE (TatV .GE. layers_G(kgv(i,j)+1))
DO WHILE (TatV .LT. layers_G(kgv(i,j)))
DO WHILE (ZZc(kk) .GE. Zc(k+1))
DO WHILE ( .TRUE. )
DO WHILE ( abs(rC(KGEO(i,j,bi,bj))) .LT. 50.0 _d 0 .AND.
DO WHILE (1 .EQ. 1)
DO WHILE ( k .LT. Nr .AND. rC(k) .GE. -zcrit )
DO WHILE ( addDims.GT.0 )
DO WHILE ( ii.LE.mnFld )