INTEGER iPtr
DO iPtr = 1, PTRACERS_numInUse
IF ( PTRACERS_SOM_Advection(iPtr) ) THEN
ALLOCATE( PTR_ISTATE_ARR(iPtr)som_P(1-OLx:sNx+OLx,