I kMax, nTracer, nTracerInuse,
MaxDepth=kMax
kMax = kLowC(I,J,bi,bj)
I wVelLoc,kMax,nTracer,nTracerInUse,
INTEGER I, J, K, kMax
INTEGER jMin, jMax, kMin, kMax, bi, bj
DO k=kMin, kMax
I jMin, jMax, kMin, kMax, bi, bj, gridLoc, myThid )
I kMin, kMax, kStr,
INTEGER kMin, kMax, kStr
DO K=kMin, kMax, kStr
& ':',kMax,
pltMax = kMax
dwnMax = kMax