I undef, pInc,ijm,lm, myThid )
LOGICAL pInc
IF ( pInc ) THEN
pInc = .TRUE.
I undefRL,pInc,sNx*sNy,kdiag(ndId),myThid )