INTEGER size3dBuf
PARAMETER ( size3dBuf = Nr+NrPhys )
PARAMETER ( size3dBuf = 2*Nr )
Real*8 shared3dBuf_r8( sNx*sNy*size3dBuf*nSx*nSy )
Real*4 shared3dBuf_r4( sNx*sNy*size3dBuf*nSx*nSy )
IF ( .NOT.useSingleCpuIO .AND. nNz.GT.size3dBuf ) THEN
& ' >', size3dBuf, ' = buffer 3rd Dim'
buffSize = sNx*sNy*size3dBuf*nSx*nSy
PARAMETER ( size3dBuf = 3*Nr )