| File |
Line number |
Procedure |
Code |
|
./pkg/rw/read_mflds.F |
761 |
READ_MFLDS_RENAME |
I fldName, newName, |
|
./pkg/rw/read_mflds.F |
781 |
READ_MFLDS_RENAME |
CHARACTER*(8) newName |
|
./pkg/rw/read_mflds.F |
811 |
READ_MFLDS_RENAME |
IF ( fldList(i).EQ.newName ) errCode = 2 |
|
./pkg/rw/read_mflds.F |
818 |
READ_MFLDS_RENAME |
fldList(j) = newName |
|
./pkg/diagnostics/diagnostics_utils.F |
644 |
DIAGNOSTICS_SETKLEV |
CHARACTER*8 newName |
|
./pkg/diagnostics/diagnostics_utils.F |
649 |
DIAGNOSTICS_SETKLEV |
newName = blkName |
|
./pkg/diagnostics/diagnostics_utils.F |
652 |
DIAGNOSTICS_SETKLEV |
IF ( diagName .EQ. 'SIfu ' ) newName = 'oceTAUX ' |
|
./pkg/diagnostics/diagnostics_utils.F |
653 |
DIAGNOSTICS_SETKLEV |
IF ( diagName .EQ. 'SIfv ' ) newName = 'oceTAUY ' |
|
./pkg/diagnostics/diagnostics_utils.F |
654 |
DIAGNOSTICS_SETKLEV |
IF ( diagName .EQ. 'SIuwind ' ) newName = 'EXFuwind' |
|
./pkg/diagnostics/diagnostics_utils.F |
655 |
DIAGNOSTICS_SETKLEV |
IF ( diagName .EQ. 'SIvwind ' ) newName = 'EXFvwind' |
|
./pkg/diagnostics/diagnostics_utils.F |
656 |
DIAGNOSTICS_SETKLEV |
IF ( diagName .EQ. 'SIsigI ' ) newName = 'SIsig1 ' |
|
./pkg/diagnostics/diagnostics_utils.F |
657 |
DIAGNOSTICS_SETKLEV |
IF ( diagName .EQ. 'SIsigII ' ) newName = 'SIsig2 ' |
|
./pkg/diagnostics/diagnostics_utils.F |
660 |
DIAGNOSTICS_SETKLEV |
IF ( newName.EQ.blkName ) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
663 |
DIAGNOSTICS_SETKLEV |
DIAGS_RENAMED = newName |
|
./pkg/diagnostics/diagnostics_utils.F |
665 |
DIAGNOSTICS_SETKLEV |
& ' diagnostics "', diagName, '" replaced by "', newName, '"' |