LOGICAL W2_useE2ioLayOut
& W2_useE2ioLayOut
WRITE(msgBuf,'(A,L5,A)') 'W2_useE2ioLayOut=', W2_useE2ioLayOut,
W2_useE2ioLayOut = .TRUE.
IF ( W2_useE2ioLayOut ) THEN
IF ( .NOT.W2_useE2ioLayOut ) xySize = Nx*Ny