DO ktr=1,nTracerInUse
DO ktr = 1, nTracerInUse
DO ktr = 1,nTracerInUse
INTEGER I, J, bi, bj, KMax, nTracer, nTracerInUse
DO itr = 3, nTracerInUse
I wVelLoc,kMax,nTracer,nTracerInUse,
INTEGER nTracerInUse
nTracerInUse = 2+PTRACERS_numInUse
nTracerInUse = 2