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'