| File |
Line number |
Procedure |
Code |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
54 |
PTRACERS_DIAGNOSTICS_INIT |
CHARACTER*60 longName |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
88 |
PTRACERS_DIAGNOSTICS_INIT |
WRITE(longName,'(A)') locName |
|
./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' |