Symbol Description Uses
locNameTr 8



File Line number Procedure Code
./pkg/seaice/seaice_diagnostics_init.F 140 SEAICE_DIAGNOSTICS_INIT
       WRITE(locNameTr,'(A,I4.4,A)') 'sea ice tracer no. ',iTr
./pkg/seaice/seaice_diagnostics_init.F 158 SEAICE_DIAGNOSTICS_INIT
         ilnb = MIN(LEN(locNameTr),ilnb)
./pkg/seaice/seaice_diagnostics_init.F 159 SEAICE_DIAGNOSTICS_INIT
         WRITE(locNameTr,'(A)') SItrNameLong(iTr)(1:ilnb)
./pkg/seaice/seaice_diagnostics_init.F 163 SEAICE_DIAGNOSTICS_INIT
           ilnb = MIN(LEN(locNameTr),ilnb)
./pkg/seaice/seaice_diagnostics_init.F 164 SEAICE_DIAGNOSTICS_INIT
           WRITE(locNameTr,'(2A)') SItrName(iTr)(1:ilnb),' tracer'
./pkg/seaice/seaice_diagnostics_init.F 167 SEAICE_DIAGNOSTICS_INIT
       ilnb = MAX(ILNBLNK(locNameTr),1)
./pkg/seaice/seaice_diagnostics_init.F 170 SEAICE_DIAGNOSTICS_INIT
       WRITE(diagTitle,'(4A)') locNameTr(1:ilnb),
./pkg/seaice/seaice_diagnostics_init.F 61 SEAICE_DIAGNOSTICS_INIT
      CHARACTER*30  locNameTr