Symbol | Description | Uses |
ilng | 8 |
File | Line number | Procedure | Code |
./pkg/ptracers/ptracers_diagnostics_init.F | 50 | PTRACERS_DIAGNOSTICS_INIT |
INTEGER iTrc, ilnb, ilng, tracerId |
./pkg/ptracers/ptracers_diagnostics_init.F | 89 | PTRACERS_DIAGNOSTICS_INIT |
ilng = ILNBLNK(PTRACERS_long_names(iTrc)) |
./pkg/ptracers/ptracers_diagnostics_init.F | 90 | PTRACERS_DIAGNOSTICS_INIT |
IF ( ilng.GE.1 ) THEN |
./pkg/ptracers/ptracers_diagnostics_init.F | 91 | PTRACERS_DIAGNOSTICS_INIT |
ilng = MIN(LEN(longName),ilng) |
./pkg/ptracers/ptracers_diagnostics_init.F | 92 | PTRACERS_DIAGNOSTICS_INIT |
WRITE(longName,'(A)') PTRACERS_long_names(iTrc)(1:ilng) |
./pkg/ptracers/ptracers_diagnostics_init.F | 94 | PTRACERS_DIAGNOSTICS_INIT |
ilng = MAX(ILNBLNK(longName),1) |
./pkg/ptracers/ptracers_diagnostics_init.F | 98 | PTRACERS_DIAGNOSTICS_INIT |
WRITE(diagTitle,'(2A)') longName(1:ilng), ' concentration' |