I fldName, newName,
CHARACTER*(8) newName
IF ( fldList(i).EQ.newName ) errCode = 2
fldList(j) = newName
CHARACTER*8 newName
newName = blkName
IF ( diagName .EQ. 'SIfu ' ) newName = 'oceTAUX '
IF ( diagName .EQ. 'SIfv ' ) newName = 'oceTAUY '
IF ( diagName .EQ. 'SIuwind ' ) newName = 'EXFuwind'
IF ( diagName .EQ. 'SIvwind ' ) newName = 'EXFvwind'
IF ( diagName .EQ. 'SIsigI ' ) newName = 'SIsig1 '
IF ( diagName .EQ. 'SIsigII ' ) newName = 'SIsig2 '
IF ( newName.EQ.blkName ) THEN
DIAGS_RENAMED = newName
& ' diagnostics "', diagName, '" replaced by "', newName, '"'