653 |
IF ( diagName .EQ. 'SIfv ' ) newName = 'oceTAUY ' |
IF ( diagName .EQ. 'SIfv ' ) newName = 'oceTAUY ' |
654 |
IF ( diagName .EQ. 'SIuwind ' ) newName = 'EXFuwind' |
IF ( diagName .EQ. 'SIuwind ' ) newName = 'EXFuwind' |
655 |
IF ( diagName .EQ. 'SIvwind ' ) newName = 'EXFvwind' |
IF ( diagName .EQ. 'SIvwind ' ) newName = 'EXFvwind' |
656 |
|
IF ( diagName .EQ. 'SIsigI ' ) newName = 'SIsig1 ' |
657 |
|
IF ( diagName .EQ. 'SIsigII ' ) newName = 'SIsig2 ' |
658 |
ENDIF |
ENDIF |
659 |
|
|
660 |
IF ( newName.EQ.blkName ) THEN |
IF ( newName.EQ.blkName ) THEN |