| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/diagnostics_utils.F |
470 |
DIAGNOSTICS_SETKLEV |
I diagUnitsInPieces, myThid ) |
|
./pkg/diagnostics/diagnostics_utils.F |
487 |
DIAGNOSTICS_SETKLEV |
CHARACTER*(*) diagUnitsInPieces |
|
./pkg/diagnostics/diagnostics_utils.F |
496 |
DIAGNOSTICS_SETKLEV |
n = LEN(diagUnitsInPieces) |
|
./pkg/diagnostics/diagnostics_utils.F |
500 |
DIAGNOSTICS_SETKLEV |
IF (diagUnitsInPieces(i:i) .NE. ' ' ) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
502 |
DIAGNOSTICS_SETKLEV |
IF ( j.LE.16 ) DIAGS_MK_UNITS(j:j) = diagUnitsInPieces(i:i) |
|
./pkg/diagnostics/diagnostics_utils.F |
512 |
DIAGNOSTICS_SETKLEV |
IF ( diagUnitsInPieces(i:i) .NE. ' ' ) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
514 |
DIAGNOSTICS_SETKLEV |
& diagUnitsInPieces(i:i).EQ.'^' ) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
515 |
DIAGNOSTICS_SETKLEV |
IF ( diagUnitsInPieces(i-1:i-1).EQ.'m' ) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
519 |
DIAGNOSTICS_SETKLEV |
IF ( j.LE.16 ) DIAGS_MK_UNITS(j:j) = diagUnitsInPieces(i:i) |
|
./pkg/diagnostics/diagnostics_utils.F |
523 |
DIAGNOSTICS_SETKLEV |
IF ( j.LE.16 ) DIAGS_MK_UNITS(j:j) = diagUnitsInPieces(i:i) |
|
./pkg/diagnostics/diagnostics_utils.F |
535 |
DIAGNOSTICS_SETKLEV |
& 'DIAGS_MK_UNITS: input=', diagUnitsInPieces |