Symbol Description Uses
iTrc tracer index 134



File Line number Procedure Code
./pkg/gchem/gchem_diagnostics_init.F 44 GCHEM_DIAGNOSTICS_INIT
      INTEGER      iTrc, ilnb
./pkg/gchem/gchem_diagnostics_init.F 51 GCHEM_DIAGNOSTICS_INIT
      DO iTrc=1,gchem_sepFTr_num
./pkg/gchem/gchem_diagnostics_init.F 53 GCHEM_DIAGNOSTICS_INIT
       WRITE(locName,'(A,I4.4,A)') 'Tracer ',iTrc
./pkg/gchem/gchem_diagnostics_init.F 56 GCHEM_DIAGNOSTICS_INIT
       ilnb = ILNBLNK(PTRACERS_units(iTrc))
./pkg/gchem/gchem_diagnostics_init.F 59 GCHEM_DIAGNOSTICS_INIT
         trcUnits = PTRACERS_units(iTrc)(1:ilnb)
./pkg/gchem/gchem_diagnostics_init.F 61 GCHEM_DIAGNOSTICS_INIT
       ilnb = ILNBLNK(PTRACERS_names(iTrc))
./pkg/gchem/gchem_diagnostics_init.F 64 GCHEM_DIAGNOSTICS_INIT
         WRITE(locName,'(A)') PTRACERS_names(iTrc)(1:ilnb)
./pkg/gchem/gchem_diagnostics_init.F 68 GCHEM_DIAGNOSTICS_INIT
       WRITE(diagName,'(A5,A2,A1)') 'GC_Tr',PTRACERS_ioLabel(iTrc),' '
./pkg/longstep/longstep_forcing_surf.F 108 LONGSTEP_FORCING_SURF
        DO iTrc=1,PTRACERS_numInUse
./pkg/longstep/longstep_forcing_surf.F 110 LONGSTEP_FORCING_SURF
         IF (PTRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN
./pkg/longstep/longstep_forcing_surf.F 118 LONGSTEP_FORCING_SURF
            surfaceForcingPTr(i,j,bi,bj,iTrc) =
./pkg/longstep/longstep_forcing_surf.F 119 LONGSTEP_FORCING_SURF
     &          surfaceForcingPTr(i,j,bi,bj,iTrc)
./pkg/longstep/longstep_forcing_surf.F 121 LONGSTEP_FORCING_SURF
     &          *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) )
./pkg/longstep/longstep_forcing_surf.F 132 LONGSTEP_FORCING_SURF
        DO iTrc=1,PTRACERS_numInUse
./pkg/longstep/longstep_forcing_surf.F 134 LONGSTEP_FORCING_SURF
         IF (PTRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN
./pkg/longstep/longstep_forcing_surf.F 142 LONGSTEP_FORCING_SURF
            surfaceForcingPTr(i,j,bi,bj,iTrc) =
./pkg/longstep/longstep_forcing_surf.F 143 LONGSTEP_FORCING_SURF
     &          surfaceForcingPTr(i,j,bi,bj,iTrc)
./pkg/longstep/longstep_forcing_surf.F 145 LONGSTEP_FORCING_SURF
     &            *( PTRACERS_ref(ks,iTrc) - PTRACERS_EvPrRn(iTrc) )
./pkg/longstep/longstep_forcing_surf.F 50 LONGSTEP_FORCING_SURF
      INTEGER iTrc, ks
./pkg/longstep/longstep_forcing_surf.F 60 LONGSTEP_FORCING_SURF
      DO iTrc=1,PTRACERS_numInUse
./pkg/longstep/longstep_forcing_surf.F 63 LONGSTEP_FORCING_SURF
             surfaceForcingPTr(i,j,bi,bj,iTrc) =
./pkg/longstep/longstep_forcing_surf.F 74 LONGSTEP_FORCING_SURF
       DO iTrc=1,PTRACERS_numInUse
./pkg/longstep/longstep_forcing_surf.F 82 LONGSTEP_FORCING_SURF
         IF (PTRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN
./pkg/longstep/longstep_forcing_surf.F 85 LONGSTEP_FORCING_SURF
             surfaceForcingPTr(i,j,bi,bj,iTrc) =
./pkg/longstep/longstep_forcing_surf.F 86 LONGSTEP_FORCING_SURF
     &          surfaceForcingPTr(i,j,bi,bj,iTrc)
./pkg/longstep/longstep_forcing_surf.F 88 LONGSTEP_FORCING_SURF
     &          *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) )
./pkg/ptracers/ptracers_diagnostics_init.F 105 PTRACERS_DIAGNOSTICS_INIT
       WRITE(diagName,'(A5,A2,A1)') 'UTRAC',PTRACERS_ioLabel(iTrc),' '
./pkg/ptracers/ptracers_diagnostics_init.F 113 PTRACERS_DIAGNOSTICS_INIT
       WRITE(diagName,'(A5,A2,A1)') 'VTRAC',PTRACERS_ioLabel(iTrc),' '
./pkg/ptracers/ptracers_diagnostics_init.F 122 PTRACERS_DIAGNOSTICS_INIT
       WRITE(diagName,'(A5,A2,A1)') 'WTRAC',PTRACERS_ioLabel(iTrc),' '
./pkg/ptracers/ptracers_diagnostics_init.F 130 PTRACERS_DIAGNOSTICS_INIT
       tracerId = iTrc + GAD_TR1 - 1
./pkg/ptracers/ptracers_diagnostics_init.F 50 PTRACERS_DIAGNOSTICS_INIT
      INTEGER      iTrc, ilnb, ilng, tracerId
./pkg/ptracers/ptracers_diagnostics_init.F 69 PTRACERS_DIAGNOSTICS_INIT
      DO iTrc=1,PTRACERS_num
./pkg/ptracers/ptracers_diagnostics_init.F 73 PTRACERS_DIAGNOSTICS_INIT
       WRITE(locName,'(A,I4.4,A)') 'Tracer ',iTrc
./pkg/ptracers/ptracers_diagnostics_init.F 76 PTRACERS_DIAGNOSTICS_INIT
       ilnb = ILNBLNK(PTRACERS_units(iTrc))
./pkg/ptracers/ptracers_diagnostics_init.F 79 PTRACERS_DIAGNOSTICS_INIT
         trcUnits = PTRACERS_units(iTrc)(1:ilnb)
./pkg/ptracers/ptracers_diagnostics_init.F 81 PTRACERS_DIAGNOSTICS_INIT
       ilnb = ILNBLNK(PTRACERS_names(iTrc))
./pkg/ptracers/ptracers_diagnostics_init.F 84 PTRACERS_DIAGNOSTICS_INIT
         WRITE(locName,'(A)') PTRACERS_names(iTrc)(1:ilnb)
./pkg/ptracers/ptracers_diagnostics_init.F 89 PTRACERS_DIAGNOSTICS_INIT
       ilng = ILNBLNK(PTRACERS_long_names(iTrc))
./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 97 PTRACERS_DIAGNOSTICS_INIT
       WRITE(diagName,'(A4,A2,A2)') 'TRAC',PTRACERS_ioLabel(iTrc),'  '
./pkg/ptracers/ptracers_forcing_surf.F 121 PTRACERS_FORCING_SURF
       DO iTrc=1,PTRACERS_numInUse
./pkg/ptracers/ptracers_forcing_surf.F 127 PTRACERS_FORCING_SURF
         IF ( PTRACERS_StepFwd(iTrc) .AND.
./pkg/ptracers/ptracers_forcing_surf.F 128 PTRACERS_FORCING_SURF
     &        PTRACERS_EvPrRn(iTrc).NE.UNSET_RL ) THEN
./pkg/ptracers/ptracers_forcing_surf.F 131 PTRACERS_FORCING_SURF
             surfaceForcingPTr(i,j,bi,bj,iTrc) =
./pkg/ptracers/ptracers_forcing_surf.F 132 PTRACERS_FORCING_SURF
     &          surfaceForcingPTr(i,j,bi,bj,iTrc)
./pkg/ptracers/ptracers_forcing_surf.F 134 PTRACERS_FORCING_SURF
     &          *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) )
./pkg/ptracers/ptracers_forcing_surf.F 154 PTRACERS_FORCING_SURF
        DO iTrc=1,PTRACERS_numInUse
./pkg/ptracers/ptracers_forcing_surf.F 156 PTRACERS_FORCING_SURF
         IF ( PTRACERS_StepFwd(iTrc) .AND.
./pkg/ptracers/ptracers_forcing_surf.F 157 PTRACERS_FORCING_SURF
     &        PTRACERS_EvPrRn(iTrc).NE.UNSET_RL ) THEN
./pkg/ptracers/ptracers_forcing_surf.F 162 PTRACERS_FORCING_SURF
            surfaceForcingPTr(i,j,bi,bj,iTrc) =
./pkg/ptracers/ptracers_forcing_surf.F 163 PTRACERS_FORCING_SURF
     &          surfaceForcingPTr(i,j,bi,bj,iTrc)
./pkg/ptracers/ptracers_forcing_surf.F 165 PTRACERS_FORCING_SURF
     &          *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) )
./pkg/ptracers/ptracers_forcing_surf.F 176 PTRACERS_FORCING_SURF
        DO iTrc=1,PTRACERS_numInUse
./pkg/ptracers/ptracers_forcing_surf.F 178 PTRACERS_FORCING_SURF
         IF ( PTRACERS_StepFwd(iTrc) .AND.
./pkg/ptracers/ptracers_forcing_surf.F 179 PTRACERS_FORCING_SURF
     &        PTRACERS_EvPrRn(iTrc).NE.UNSET_RL ) THEN
./pkg/ptracers/ptracers_forcing_surf.F 184 PTRACERS_FORCING_SURF
            surfaceForcingPTr(i,j,bi,bj,iTrc) =
./pkg/ptracers/ptracers_forcing_surf.F 185 PTRACERS_FORCING_SURF
     &          surfaceForcingPTr(i,j,bi,bj,iTrc)
./pkg/ptracers/ptracers_forcing_surf.F 187 PTRACERS_FORCING_SURF
     &            *( PTRACERS_ref(ks,iTrc) - PTRACERS_EvPrRn(iTrc) )
./pkg/ptracers/ptracers_forcing_surf.F 53 PTRACERS_FORCING_SURF
      INTEGER iTrc, ks
./pkg/ptracers/ptracers_forcing_surf.F 65 PTRACERS_FORCING_SURF
      DO iTrc=1,PTRACERS_numInUse
./pkg/ptracers/ptracers_forcing_surf.F 69 PTRACERS_FORCING_SURF
             surfaceForcingPTr(i,j,bi,bj,iTrc) = 0. _d 0
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 124 PTRACERS_FORCING_SURF
       DO iTrc=1,PTRACERS_numInUse
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 130 PTRACERS_FORCING_SURF
         IF ( PTRACERS_StepFwd(iTrc) .AND.
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 131 PTRACERS_FORCING_SURF
     &        PTRACERS_EvPrRn(iTrc).NE.UNSET_RL ) THEN
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 134 PTRACERS_FORCING_SURF
             surfaceForcingPTr(i,j,bi,bj,iTrc) =
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 135 PTRACERS_FORCING_SURF
     &          surfaceForcingPTr(i,j,bi,bj,iTrc)
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 137 PTRACERS_FORCING_SURF
     &          *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) )
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 157 PTRACERS_FORCING_SURF
        DO iTrc=1,PTRACERS_numInUse
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 159 PTRACERS_FORCING_SURF
         IF ( PTRACERS_StepFwd(iTrc) .AND.
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 160 PTRACERS_FORCING_SURF
     &        PTRACERS_EvPrRn(iTrc).NE.UNSET_RL ) THEN
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 165 PTRACERS_FORCING_SURF
            surfaceForcingPTr(i,j,bi,bj,iTrc) =
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 166 PTRACERS_FORCING_SURF
     &          surfaceForcingPTr(i,j,bi,bj,iTrc)
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 168 PTRACERS_FORCING_SURF
     &          *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) )
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 179 PTRACERS_FORCING_SURF
        DO iTrc=1,PTRACERS_numInUse
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 181 PTRACERS_FORCING_SURF
         IF ( PTRACERS_StepFwd(iTrc) .AND.
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 182 PTRACERS_FORCING_SURF
     &        PTRACERS_EvPrRn(iTrc).NE.UNSET_RL ) THEN
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 187 PTRACERS_FORCING_SURF
            surfaceForcingPTr(i,j,bi,bj,iTrc) =
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 188 PTRACERS_FORCING_SURF
     &          surfaceForcingPTr(i,j,bi,bj,iTrc)
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 190 PTRACERS_FORCING_SURF
     &            *( PTRACERS_ref(ks,iTrc) - PTRACERS_EvPrRn(iTrc) )
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 53 PTRACERS_FORCING_SURF
      INTEGER iTrc, ks
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 65 PTRACERS_FORCING_SURF
      DO iTrc=1,PTRACERS_numInUse
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 70 PTRACERS_FORCING_SURF
             surfaceForcingPTr(i,j,bi,bj,iTrc) =
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 72 PTRACERS_FORCING_SURF
     &                  * ( 0. _d 0 - pTracer(i,j,ks,bi,bj,iTrc) )
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 119 PTRACERS_FORCING_SURF
       DO iTrc=1,PTRACERS_numInUse
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 125 PTRACERS_FORCING_SURF
         IF (PTRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 128 PTRACERS_FORCING_SURF
             surfaceForcingPTr(i,j,bi,bj,iTrc) =
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 129 PTRACERS_FORCING_SURF
     &          surfaceForcingPTr(i,j,bi,bj,iTrc)
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 131 PTRACERS_FORCING_SURF
     &          *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) )
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 151 PTRACERS_FORCING_SURF
        DO iTrc=1,PTRACERS_numInUse
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 153 PTRACERS_FORCING_SURF
         IF (PTRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 158 PTRACERS_FORCING_SURF
            surfaceForcingPTr(i,j,bi,bj,iTrc) =
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 159 PTRACERS_FORCING_SURF
     &          surfaceForcingPTr(i,j,bi,bj,iTrc)
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 161 PTRACERS_FORCING_SURF
     &          *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) )
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 172 PTRACERS_FORCING_SURF
        DO iTrc=1,PTRACERS_numInUse
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 174 PTRACERS_FORCING_SURF
         IF (PTRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 179 PTRACERS_FORCING_SURF
            surfaceForcingPTr(i,j,bi,bj,iTrc) =
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 180 PTRACERS_FORCING_SURF
     &          surfaceForcingPTr(i,j,bi,bj,iTrc)
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 182 PTRACERS_FORCING_SURF
     &            *( PTRACERS_ref(ks,iTrc) - PTRACERS_EvPrRn(iTrc) )
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 52 PTRACERS_FORCING_SURF
      INTEGER iTrc, ks
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 64 PTRACERS_FORCING_SURF
      DO iTrc=1,PTRACERS_numInUse
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 67 PTRACERS_FORCING_SURF
             surfaceForcingPTr(i,j,bi,bj,iTrc) =
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F 119 PTRACERS_FORCING_SURF
       DO iTrc=1,PTRACERS_numInUse
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F 125 PTRACERS_FORCING_SURF
         IF (PTRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F 128 PTRACERS_FORCING_SURF
             surfaceForcingPTr(i,j,bi,bj,iTrc) =
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F 129 PTRACERS_FORCING_SURF
     &          surfaceForcingPTr(i,j,bi,bj,iTrc)
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F 131 PTRACERS_FORCING_SURF
     &          *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) )
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F 151 PTRACERS_FORCING_SURF
        DO iTrc=1,PTRACERS_numInUse
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F 153 PTRACERS_FORCING_SURF
         IF (PTRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F 158 PTRACERS_FORCING_SURF
            surfaceForcingPTr(i,j,bi,bj,iTrc) =
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F 159 PTRACERS_FORCING_SURF
     &          surfaceForcingPTr(i,j,bi,bj,iTrc)
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F 161 PTRACERS_FORCING_SURF
     &          *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) )
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F 172 PTRACERS_FORCING_SURF
        DO iTrc=1,PTRACERS_numInUse
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F 174 PTRACERS_FORCING_SURF
         IF (PTRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F 179 PTRACERS_FORCING_SURF
            surfaceForcingPTr(i,j,bi,bj,iTrc) =
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F 180 PTRACERS_FORCING_SURF
     &          surfaceForcingPTr(i,j,bi,bj,iTrc)
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F 182 PTRACERS_FORCING_SURF
     &            *( PTRACERS_ref(ks,iTrc) - PTRACERS_EvPrRn(iTrc) )
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F 52 PTRACERS_FORCING_SURF
      INTEGER iTrc, ks
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F 64 PTRACERS_FORCING_SURF
      DO iTrc=1,PTRACERS_numInUse
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F 67 PTRACERS_FORCING_SURF
             surfaceForcingPTr(i,j,bi,bj,iTrc) =