IF ( eMode .EQ. errorModeSTOP ) THEN
INTEGER eMode
eMode = theErrorMode
eMode = errorMode(fileHandle,myThid)
eMode = errorMode(I,myThid)