Symbol Description Uses
iTracer loop indices 260


File Line number Procedure Code
./pkg/ptracers/ptracers_readparms.F 135 PTRACERS_READPARMS 
      DO iTracer=1,PTRACERS_numInUse
./pkg/ptracers/ptracers_readparms.F 136 PTRACERS_READPARMS 
        IF (PTRACERS_advScheme(iTracer).EQ.0) THEN
./pkg/ptracers/ptracers_readparms.F 140 PTRACERS_READPARMS 
     &         iTracer
./pkg/ptracers/ptracers_readparms.F 146 PTRACERS_READPARMS 
      DO iTracer=1,PTRACERS_numInUse
./pkg/ptracers/ptracers_readparms.F 147 PTRACERS_READPARMS 
       IF ( PTRACERS_ImplVertAdv(iTracer) ) THEN
./pkg/ptracers/ptracers_readparms.F 152 PTRACERS_READPARMS 
     &   ' but pTracers_ImplVertAdv(',iTracer,' ) is TRUE'
./pkg/ptracers/ptracers_readparms.F 158 PTRACERS_READPARMS 
      DO iTracer=1,PTRACERS_numInUse
./pkg/ptracers/ptracers_readparms.F 159 PTRACERS_READPARMS 
        PTRACERS_useGMRedi(iTracer) = PTRACERS_useGMRedi(iTracer)
./pkg/ptracers/ptracers_readparms.F 161 PTRACERS_READPARMS 
        PTRACERS_useKPP(iTracer) = PTRACERS_useKPP(iTracer)
./pkg/ptracers/ptracers_readparms.F 163 PTRACERS_READPARMS 
        IF ( PTRACERS_diffKr(iTracer).NE.UNSET_RL ) THEN
./pkg/ptracers/ptracers_readparms.F 165 PTRACERS_READPARMS 
          PTRACERS_diffKrNr(k,iTracer)=PTRACERS_diffKr(iTracer)
./pkg/ptracers/ptracers_readparms.F 208 PTRACERS_READPARMS 
      DO iTracer=1,PTRACERS_numInUse
./pkg/ptracers/ptracers_readparms.F 211 PTRACERS_READPARMS 
        WRITE(msgBuf,'(A,I4)') ' tracer number : ',iTracer
./pkg/ptracers/ptracers_readparms.F 213 PTRACERS_READPARMS 
        CALL WRITE_0D_I( PTRACERS_advScheme(iTracer), INDEX_NONE,
./pkg/ptracers/ptracers_readparms.F 215 PTRACERS_READPARMS 
        CALL WRITE_0D_L( PTRACERS_ImplVertAdv(iTracer), INDEX_NONE,
./pkg/ptracers/ptracers_readparms.F 218 PTRACERS_READPARMS 
        CALL WRITE_0D_R8( PTRACERS_diffKh(iTracer), INDEX_NONE,
./pkg/ptracers/ptracers_readparms.F 220 PTRACERS_READPARMS 
        CALL WRITE_0D_R8( PTRACERS_diffK4(iTracer), INDEX_NONE,
./pkg/ptracers/ptracers_readparms.F 222 PTRACERS_READPARMS 
        CALL WRITE_1D_R8( PTRACERS_diffKrNr(1,iTracer), Nr, INDEX_K,
./pkg/ptracers/ptracers_readparms.F 224 PTRACERS_READPARMS 
        CALL WRITE_0D_L( PTRACERS_useGMRedi(iTracer), INDEX_NONE,
./pkg/ptracers/ptracers_readparms.F 226 PTRACERS_READPARMS 
        CALL WRITE_0D_L( PTRACERS_useKPP(iTracer), INDEX_NONE,
./pkg/ptracers/ptracers_readparms.F 34 PTRACERS_READPARMS 
      INTEGER k, iTracer
./pkg/ptracers/ptracers_readparms.F 73 PTRACERS_READPARMS 
      DO iTracer=1,PTRACERS_num
./pkg/ptracers/ptracers_readparms.F 74 PTRACERS_READPARMS 
        PTRACERS_advScheme(iTracer)=saltAdvScheme
./pkg/ptracers/ptracers_readparms.F 75 PTRACERS_READPARMS 
        PTRACERS_ImplVertAdv(iTracer) = .FALSE.
./pkg/ptracers/ptracers_readparms.F 76 PTRACERS_READPARMS 
        PTRACERS_diffKh(iTracer)=diffKhS
./pkg/ptracers/ptracers_readparms.F 77 PTRACERS_READPARMS 
        PTRACERS_diffK4(iTracer)=diffK4S
./pkg/ptracers/ptracers_readparms.F 78 PTRACERS_READPARMS 
        PTRACERS_diffKr(iTracer)=UNSET_RL
./pkg/ptracers/ptracers_readparms.F 80 PTRACERS_READPARMS 
          PTRACERS_diffKrNr(k,iTracer)=diffKrNrS(k)
./pkg/ptracers/ptracers_readparms.F 82 PTRACERS_READPARMS 
        PTRACERS_useGMRedi(iTracer)=useGMRedi
./pkg/ptracers/ptracers_readparms.F 83 PTRACERS_READPARMS 
        PTRACERS_useKPP(iTracer)=useKPP
./pkg/ptracers/ptracers_readparms.F 84 PTRACERS_READPARMS 
        PTRACERS_initialFile(iTracer)=' '
./pkg/ptracers/ptracers_readparms.F 86 PTRACERS_READPARMS 
          PTRACERS_names(iTracer)(ic:ic) = ' '
./pkg/ptracers/ptracers_readparms.F 87 PTRACERS_READPARMS 
          PTRACERS_long_names(iTracer)(ic:ic) = ' '
./pkg/ptracers/ptracers_readparms.F 88 PTRACERS_READPARMS 
          PTRACERS_units(iTracer)(ic:ic) = ' '
./pkg/ptracers/ptracers_convect.F 40 PTRACERS_CONVECT 
      INTEGER iTracer
./pkg/ptracers/ptracers_convect.F 44 PTRACERS_CONVECT 
      DO iTracer=1,PTRACERS_numInUse
./pkg/ptracers/ptracers_convect.F 48 PTRACERS_CONVECT 
     U         pTracer(1-Olx,1-Oly,1,1,1,iTracer),
./pkg/ptracers/ptracers_initialise.F 33 PTRACERS_INITIALISE 
      INTEGER iTracer
./pkg/ptracers/ptracers_initialise.F 36 PTRACERS_INITIALISE 
      DO iTracer = 1, PTRACERS_numInUse
./pkg/ptracers/ptracers_initialise.F 40 PTRACERS_INITIALISE 
     &       PTRACERS_advScheme(iTracer).NE.ENUM_CENTERED_2ND .AND.
./pkg/ptracers/ptracers_initialise.F 41 PTRACERS_INITIALISE 
     &       PTRACERS_advScheme(iTracer).NE.ENUM_UPWIND_3RD .AND.
./pkg/ptracers/ptracers_initialise.F 42 PTRACERS_INITIALISE 
     &       PTRACERS_advScheme(iTracer).NE.ENUM_CENTERED_4TH ) THEN
./pkg/ptracers/ptracers_init.F 36 PTRACERS_INIT 
      INTEGER i,j,k,bi,bj,iTracer
./pkg/ptracers/ptracers_init.F 41 PTRACERS_INIT 
      DO iTracer = 1, PTRACERS_num
./pkg/ptracers/ptracers_init.F 51 PTRACERS_INIT 
                  pTracer(i,j,k,bi,bj,iTracer) = 0. _d 0
./pkg/ptracers/ptracers_init.F 52 PTRACERS_INIT 
                  gPtr(i,j,k,bi,bj,iTracer)    = 0. _d 0
./pkg/ptracers/ptracers_init.F 53 PTRACERS_INIT 
                  gPtrNM1(i,j,k,bi,bj,iTracer) = 0. _d 0
./pkg/ptracers/ptracers_init.F 59 PTRACERS_INIT 
                surfaceForcingPtr(i,j,bi,bj,iTracer) = 0. _d 0
./pkg/ptracers/ptracers_init.F 72 PTRACERS_INIT 
        DO iTracer = 1, PTRACERS_numInUse
./pkg/ptracers/ptracers_init.F 73 PTRACERS_INIT 
          IF ( PTRACERS_initialFile(iTracer) .NE. ' ' ) THEN
./pkg/ptracers/ptracers_init.F 75 PTRACERS_INIT 
            CALL READ_FLD_XYZ_RL(PTRACERS_initialFile(iTracer),' ',
./pkg/ptracers/ptracers_init.F 76 PTRACERS_INIT 
     &           pTracer(1-Olx,1-Oly,1,1,1,iTracer) ,0,myThid)
./pkg/ptracers/ptracers_init.F 86 PTRACERS_INIT 
     &                     pTracer(i,j,k,bi,bj,iTracer)=0.
./pkg/ptracers/ptracers_init.F 97 PTRACERS_INIT 
      _EXCH_XYZ_R8(pTracer(1-Olx,1-Oly,1,1,1,iTracer),myThid)
./pkg/ptracers/ptracers_read_checkpoint.F 38 PTRACERS_READ_CHECKPOINT 
      INTEGER iTracer,prec,iRec
./pkg/ptracers/ptracers_read_checkpoint.F 60 PTRACERS_READ_CHECKPOINT 
        DO iTracer=1,PTRACERS_num
./pkg/ptracers/ptracers_read_checkpoint.F 61 PTRACERS_READ_CHECKPOINT 
          iRec = iTracer
./pkg/ptracers/ptracers_read_checkpoint.F 63 PTRACERS_READ_CHECKPOINT 
     &         pTracer(1-Olx,1-Oly,1,1,1,iTracer),iRec,myThid)
./pkg/ptracers/ptracers_read_checkpoint.F 64 PTRACERS_READ_CHECKPOINT 
      _EXCH_XYZ_R8(pTracer(1-Olx,1-Oly,1,1,1,iTracer),myThid)
./pkg/ptracers/ptracers_read_checkpoint.F 68 PTRACERS_READ_CHECKPOINT 
        DO iTracer=1,PTRACERS_num
./pkg/ptracers/ptracers_read_checkpoint.F 69 PTRACERS_READ_CHECKPOINT 
          iRec = iTracer + PTRACERS_num
./pkg/ptracers/ptracers_read_checkpoint.F 71 PTRACERS_READ_CHECKPOINT 
     &         gPtr(1-Olx,1-Oly,1,1,1,iTracer),iRec,myThid)
./pkg/ptracers/ptracers_read_checkpoint.F 72 PTRACERS_READ_CHECKPOINT 
      _EXCH_XYZ_R8(gPtr(1-Olx,1-Oly,1,1,1,iTracer),myThid)
./pkg/ptracers/ptracers_read_checkpoint.F 74 PTRACERS_READ_CHECKPOINT 
        DO iTracer=1,PTRACERS_num
./pkg/ptracers/ptracers_read_checkpoint.F 75 PTRACERS_READ_CHECKPOINT 
          iRec = iTracer + PTRACERS_num*2
./pkg/ptracers/ptracers_read_checkpoint.F 77 PTRACERS_READ_CHECKPOINT 
     &         gPtrNm1(1-Olx,1-Oly,1,1,1,iTracer),iRec,myThid)
./pkg/ptracers/ptracers_read_checkpoint.F 78 PTRACERS_READ_CHECKPOINT 
      _EXCH_XYZ_R8(gPtrNm1(1-Olx,1-Oly,1,1,1,iTracer),myThid)
./pkg/ptracers/ptracers_read_checkpoint.F 86 PTRACERS_READ_CHECKPOINT 
        DO iTracer=1,PTRACERS_numInUse
./pkg/ptracers/ptracers_read_checkpoint.F 87 PTRACERS_READ_CHECKPOINT 
          iRec = 2*iTracer -1
./pkg/ptracers/ptracers_read_checkpoint.F 89 PTRACERS_READ_CHECKPOINT 
     &         pTracer(1-Olx,1-Oly,1,1,1,iTracer),iRec,myThid)
./pkg/ptracers/ptracers_read_checkpoint.F 90 PTRACERS_READ_CHECKPOINT 
          iRec = 2*iTracer
./pkg/ptracers/ptracers_read_checkpoint.F 92 PTRACERS_READ_CHECKPOINT 
     &         gPtrNm1(1-Olx,1-Oly,1,1,1,iTracer),iRec,myThid)
./pkg/ptracers/ptracers_read_checkpoint.F 93 PTRACERS_READ_CHECKPOINT 
      _EXCH_XYZ_R8(pTracer(1-Olx,1-Oly,1,1,1,iTracer),myThid)
./pkg/ptracers/ptracers_read_checkpoint.F 94 PTRACERS_READ_CHECKPOINT 
      _EXCH_XYZ_R8(gPtrNm1(1-Olx,1-Oly,1,1,1,iTracer),myThid)
./pkg/ptracers/ptracers_cycle.F 40 PTRACERS_CYCLE 
      INTEGER iTracer
./pkg/ptracers/ptracers_cycle.F 44 PTRACERS_CYCLE 
      DO iTracer=1,PTRACERS_numInUse
./pkg/ptracers/ptracers_cycle.F 49 PTRACERS_CYCLE 
     U           pTracer(1-Olx,1-Oly,1,1,1,iTracer),
./pkg/ptracers/ptracers_cycle.F 50 PTRACERS_CYCLE 
     U           gPtr(1-Olx,1-Oly,1,1,1,iTracer),
./pkg/ptracers/ptracers_write_checkpoint.F 44 PTRACERS_WRITE_CHECKPOINT 
      INTEGER iTracer,prec,iRec,iChar,lChar
./pkg/ptracers/ptracers_write_checkpoint.F 61 PTRACERS_WRITE_CHECKPOINT 
      DO iTracer=1,PTRACERS_num
./pkg/ptracers/ptracers_write_checkpoint.F 62 PTRACERS_WRITE_CHECKPOINT 
       iRec = 2*iTracer - 1
./pkg/ptracers/ptracers_write_checkpoint.F 64 PTRACERS_WRITE_CHECKPOINT 
     &      pTracer(1-Olx,1-Oly,1,1,1,iTracer),iRec,myIter,myThid)
./pkg/ptracers/ptracers_write_checkpoint.F 66 PTRACERS_WRITE_CHECKPOINT 
       iRec = 2*iTracer
./pkg/ptracers/ptracers_write_checkpoint.F 68 PTRACERS_WRITE_CHECKPOINT 
     &      gPtrNm1(1-Olx,1-Oly,1,1,1,iTracer),iRec,myIter,myThid)
./pkg/ptracers/ptracers_implicit.F 102 PTRACERS_IMPLICIT 
     I         PTRACERS_ImplVertAdv(iTracer),
./pkg/ptracers/ptracers_implicit.F 103 PTRACERS_IMPLICIT 
     I         PTRACERS_advScheme(iTracer), GAD_TR,
./pkg/ptracers/ptracers_implicit.F 104 PTRACERS_IMPLICIT 
     I         kappaRk, wVel, pTracer(1-Olx,1-Oly,1,1,1,iTracer),
./pkg/ptracers/ptracers_implicit.F 105 PTRACERS_IMPLICIT 
     U         gPtr(1-Olx,1-Oly,1,1,1,iTracer),
./pkg/ptracers/ptracers_implicit.F 116 PTRACERS_IMPLICIT 
     U         gPtr(1-Olx,1-Oly,1,1,1,iTracer),
./pkg/ptracers/ptracers_implicit.F 51 PTRACERS_IMPLICIT 
      INTEGER iTracer
./pkg/ptracers/ptracers_implicit.F 62 PTRACERS_IMPLICIT 
      DO iTracer=1,PTRACERS_numInUse
./pkg/ptracers/ptracers_implicit.F 65 PTRACERS_IMPLICIT 
          act0 = iTracer - 1
./pkg/ptracers/ptracers_implicit.F 81 PTRACERS_IMPLICIT 
        GAD_TR = GAD_TR1 + iTracer - 1
./pkg/ptracers/ptracers_implicit.F 86 PTRACERS_IMPLICIT 
     I         PTRACERS_useGMRedi(iTracer),PTRACERS_useKPP(iTracer),
./pkg/ptracers/ptracers_implicit.F 99 PTRACERS_IMPLICIT 
        IF ( PTRACERS_ImplVertAdv(iTracer) ) THEN
./pkg/ptracers/ptracers_gterm_blocking_exchanges.F 33 PTRACERS_GTERM_BLOCKING_EXCH 
      INTEGER iTracer
./pkg/ptracers/ptracers_gterm_blocking_exchanges.F 39 PTRACERS_GTERM_BLOCKING_EXCH 
      DO iTracer=1,PTRACERS_numInUse
./pkg/ptracers/ptracers_gterm_blocking_exchanges.F 42 PTRACERS_GTERM_BLOCKING_EXCH 
      _EXCH_XYZ_R8(gPtr(1-Olx,1-Oly,1,1,1,iTracer),myThid)
./pkg/ptracers/ptracers_write_state.F 100 PTRACERS_WRITE_STATE 
     &         'PTRACER',iTracer,'.',myIter
./pkg/ptracers/ptracers_write_state.F 106 PTRACERS_WRITE_STATE 
     &        pTracer(1-Olx,1-Oly,1,1,1,iTracer),iRec,myIter,myThid)
./pkg/ptracers/ptracers_write_state.F 40 PTRACERS_WRITE_STATE 
      INTEGER iTracer
./pkg/ptracers/ptracers_write_state.F 64 PTRACERS_WRITE_STATE 
        DO iTracer = 1,PTRACERS_numInUse
./pkg/ptracers/ptracers_write_state.F 65 PTRACERS_WRITE_STATE 
         CALL MNC_CW_RL_W('D','ptracers',0,0,PTRACERS_names(iTracer),
./pkg/ptracers/ptracers_write_state.F 66 PTRACERS_WRITE_STATE 
     &        pTracer(1-OLx,1-OLy,1,1,1,iTracer),myThid)
./pkg/ptracers/ptracers_write_state.F 74 PTRACERS_WRITE_STATE 
        DO iTracer=1,PTRACERS_numInUse
./pkg/ptracers/ptracers_write_state.F 83 PTRACERS_WRITE_STATE 
          iRec = (iRec-1)*PTRACERS_num + iTracer + 1
./pkg/ptracers/ptracers_write_state.F 86 PTRACERS_WRITE_STATE 
          WRITE(pref,'(A7,I2.2)') 'PTRACER',iTracer
./pkg/ptracers/ptracers_write_state.F 96 PTRACERS_WRITE_STATE 
          iRec=iTracer
./pkg/ptracers/ptracers_forcing.F 11 PTRACERS_FORCING 
     I                            bi,bj,iMin,iMax,jMin,jMax,k,iTracer,
./pkg/ptracers/ptracers_forcing.F 36 PTRACERS_FORCING 
      INTEGER bi,bj,iMin,iMax,jMin,jMax,k,iTracer
./pkg/ptracers/ptracers_forcing.F 68 PTRACERS_FORCING 
     I                        iTracer,
./pkg/ptracers/ptracers_forcing_surf.F 44 PTRACERS_FORCING_SURF 
      INTEGER i, j, iTracer
./pkg/ptracers/ptracers_forcing_surf.F 48 PTRACERS_FORCING_SURF 
       DO iTracer=1,PTRACERS_numInUse
./pkg/ptracers/ptracers_forcing_surf.F 51 PTRACERS_FORCING_SURF 
             surfaceForcingPtr(i,j,bi,bj,iTracer) =
./pkg/ptracers/ptracers_advection.F 47 PTRACERS_ADVECTION 
      INTEGER iTracer
./pkg/ptracers/ptracers_advection.F 51 PTRACERS_ADVECTION 
      DO iTracer=1,PTRACERS_numInUse
./pkg/ptracers/ptracers_advection.F 55 PTRACERS_ADVECTION 
     &     PTRACERS_advScheme(iTracer).NE.ENUM_CENTERED_2ND .AND.
./pkg/ptracers/ptracers_advection.F 56 PTRACERS_ADVECTION 
     &     PTRACERS_advScheme(iTracer).NE.ENUM_UPWIND_3RD .AND.
./pkg/ptracers/ptracers_advection.F 57 PTRACERS_ADVECTION 
     &     PTRACERS_advScheme(iTracer).NE.ENUM_CENTERED_4TH ) THEN
./pkg/ptracers/ptracers_advection.F 59 PTRACERS_ADVECTION 
     I                        PTRACERS_ImplVertAdv(iTracer),
./pkg/ptracers/ptracers_advection.F 60 PTRACERS_ADVECTION 
     I                        PTRACERS_advScheme(iTracer),
./pkg/ptracers/ptracers_advection.F 61 PTRACERS_ADVECTION 
     I                        PTRACERS_advScheme(iTracer),
./pkg/ptracers/ptracers_advection.F 64 PTRACERS_ADVECTION 
     I                        pTracer(1-Olx,1-Oly,1,1,1,iTracer),
./pkg/ptracers/ptracers_advection.F 65 PTRACERS_ADVECTION 
     O                        gPtr(1-Olx,1-Oly,1,1,1,iTracer),
./pkg/ptracers/ptracers_debug.F 36 PTRACERS_DEBUG 
      INTEGER i,j,iTracer
./pkg/ptracers/ptracers_debug.F 41 PTRACERS_DEBUG 
      DO iTracer=1,PTRACERS_num
./pkg/ptracers/ptracers_debug.F 43 PTRACERS_DEBUG 
       WRITE(strng(1:9),'(a7,i2.2)') 'PTRACER',iTracer
./pkg/ptracers/ptracers_debug.F 45 PTRACERS_DEBUG 
     &   pTracer(1-Olx,1-Oly,1,1,1,iTracer),strng,myThid)
./pkg/ptracers/ptracers_debug.F 46 PTRACERS_DEBUG 
       WRITE(strng(1:9),'(a7,i2.2)') 'GTRACER',iTracer
./pkg/ptracers/ptracers_debug.F 48 PTRACERS_DEBUG 
     &   gPtr(1-Olx,1-Oly,1,1,1,iTracer),strng,myThid)
./pkg/ptracers/ptracers_debug.F 49 PTRACERS_DEBUG 
       WRITE(strng(1:9),'(a7,i2.2)') 'GNm1TRC',iTracer
./pkg/ptracers/ptracers_debug.F 51 PTRACERS_DEBUG 
     &   gPtrNm1(1-Olx,1-Oly,1,1,1,iTracer),strng,myThid)
./pkg/ptracers/ptracers_statvars.F 102 PTRACERS_STATVARS 
        CALL TIMEAVE_CUMULATE(ptracerFluxtave(1-Olx,1-Oly,1,1,iTracer),
./pkg/ptracers/ptracers_statvars.F 103 PTRACERS_STATVARS 
     &                      surfaceForcingPtr(1-Olx,1-Oly,1,1,iTracer),
./pkg/ptracers/ptracers_statvars.F 42 PTRACERS_STATVARS 
      INTEGER iTracer, i, j, k
./pkg/ptracers/ptracers_statvars.F 48 PTRACERS_STATVARS 
        DO iTracer=1,PTRACERS_numInUse
./pkg/ptracers/ptracers_statvars.F 49 PTRACERS_STATVARS 
         CALL TIMEAVE_RESET(ptracerFluxtave(1-Olx,1-Oly,  1,1,iTracer),
./pkg/ptracers/ptracers_statvars.F 51 PTRACERS_STATVARS 
         CALL TIMEAVE_RESET(ptracertave    (1-Olx,1-Oly,1,1,1,iTracer),
./pkg/ptracers/ptracers_statvars.F 70 PTRACERS_STATVARS 
      DO iTracer=1,PTRACERS_numInUse
./pkg/ptracers/ptracers_statvars.F 71 PTRACERS_STATVARS 
       CALL TIMEAVE_CUMULATE(ptracertave(1-Olx,1-Oly,1,1,1,iTracer),
./pkg/ptracers/ptracers_statvars.F 72 PTRACERS_STATVARS 
     &                       ptracer(1-Olx,1-Oly,1,1,1,iTracer),
./pkg/ptracers/ptracers_statvars.F 92 PTRACERS_STATVARS 
       DO iTracer=1,PTRACERS_numInUse
./pkg/ptracers/ptracers_fields_blocking_exchanges.F 33 PTRACERS_FIELDS_BLOCKING_EXCH 
      INTEGER iTracer
./pkg/ptracers/ptracers_fields_blocking_exchanges.F 39 PTRACERS_FIELDS_BLOCKING_EXCH 
      DO iTracer=1,PTRACERS_numInUse
./pkg/ptracers/ptracers_fields_blocking_exchanges.F 42 PTRACERS_FIELDS_BLOCKING_EXCH 
      _EXCH_XYZ_R8(pTracer(1-Olx,1-Oly,1,1,1,iTracer),myThid)
./pkg/ptracers/ptracers_integrate.F 103 PTRACERS_INTEGRATE 
     I                   PTRACERS_diffKh(iTracer),
./pkg/ptracers/ptracers_integrate.F 104 PTRACERS_INTEGRATE 
     I                   PTRACERS_diffK4(iTracer),
./pkg/ptracers/ptracers_integrate.F 105 PTRACERS_INTEGRATE 
     I                   KappaRtr(1-Olx,1-Oly,iTracer),
./pkg/ptracers/ptracers_integrate.F 106 PTRACERS_INTEGRATE 
     I                   pTracer(1-Olx,1-Oly,1,1,1,iTracer),
./pkg/ptracers/ptracers_integrate.F 108 PTRACERS_INTEGRATE 
     I                   PTRACERS_advScheme(iTracer),
./pkg/ptracers/ptracers_integrate.F 109 PTRACERS_INTEGRATE 
     I                   PTRACERS_advScheme(iTracer),
./pkg/ptracers/ptracers_integrate.F 110 PTRACERS_INTEGRATE 
     I                   calcAdvection, PTRACERS_ImplVertAdv(iTracer),
./pkg/ptracers/ptracers_integrate.F 111 PTRACERS_INTEGRATE 
     U                   rFlx(1-Olx,1-Oly,1,iTracer),
./pkg/ptracers/ptracers_integrate.F 112 PTRACERS_INTEGRATE 
     U                   gPtr(1-Olx,1-Oly,1,1,1,iTracer),
./pkg/ptracers/ptracers_integrate.F 118 PTRACERS_INTEGRATE 
     I                      bi,bj,iMin,iMax,jMin,jMax,k,iTracer,
./pkg/ptracers/ptracers_integrate.F 119 PTRACERS_INTEGRATE 
     U                      gPtr(1-Olx,1-Oly,1,1,1,iTracer),
./pkg/ptracers/ptracers_integrate.F 120 PTRACERS_INTEGRATE 
     I                      surfaceForcingPtr(1-Olx,1-Oly,1,1,iTracer),
./pkg/ptracers/ptracers_integrate.F 125 PTRACERS_INTEGRATE 
      IF ( PTRACERS_advScheme(iTracer).EQ.ENUM_CENTERED_2ND
./pkg/ptracers/ptracers_integrate.F 126 PTRACERS_INTEGRATE 
     & .OR.PTRACERS_advScheme(iTracer).EQ.ENUM_UPWIND_3RD
./pkg/ptracers/ptracers_integrate.F 127 PTRACERS_INTEGRATE 
     & .OR.PTRACERS_advScheme(iTracer).EQ.ENUM_CENTERED_4TH ) THEN
./pkg/ptracers/ptracers_integrate.F 137 PTRACERS_INTEGRATE 
     U                        gPtr(1-Olx,1-Oly,1,1,1,iTracer),
./pkg/ptracers/ptracers_integrate.F 138 PTRACERS_INTEGRATE 
     U                        gPtrNm1(1-Olx,1-Oly,1,1,1,iTracer),
./pkg/ptracers/ptracers_integrate.F 148 PTRACERS_INTEGRATE 
     I                      bi,bj,iMin,iMax,jMin,jMax,k,iTracer,
./pkg/ptracers/ptracers_integrate.F 149 PTRACERS_INTEGRATE 
     U                      gPtr(1-Olx,1-Oly,1,1,1,iTracer),
./pkg/ptracers/ptracers_integrate.F 150 PTRACERS_INTEGRATE 
     I                      surfaceForcingPtr(1-Olx,1-Oly,1,1,iTracer),
./pkg/ptracers/ptracers_integrate.F 158 PTRACERS_INTEGRATE 
     U                          gPtr(1-Olx,1-Oly,1,1,1,iTracer),
./pkg/ptracers/ptracers_integrate.F 160 PTRACERS_INTEGRATE 
        IF ( PTRACERS_advScheme(iTracer).EQ.ENUM_CENTERED_2ND
./pkg/ptracers/ptracers_integrate.F 161 PTRACERS_INTEGRATE 
     &   .OR.PTRACERS_advScheme(iTracer).EQ.ENUM_UPWIND_3RD
./pkg/ptracers/ptracers_integrate.F 162 PTRACERS_INTEGRATE 
     &   .OR.PTRACERS_advScheme(iTracer).EQ.ENUM_CENTERED_4TH )
./pkg/ptracers/ptracers_integrate.F 165 PTRACERS_INTEGRATE 
     U                          gPtrNm1(1-Olx,1-Oly,1,1,1,iTracer),
./pkg/ptracers/ptracers_integrate.F 173 PTRACERS_INTEGRATE 
     I                        PTRACERS_advScheme(iTracer),
./pkg/ptracers/ptracers_integrate.F 174 PTRACERS_INTEGRATE 
     I                        pTracer(1-Olx,1-Oly,1,1,1,iTracer),
./pkg/ptracers/ptracers_integrate.F 175 PTRACERS_INTEGRATE 
     I                        gPtr(1-Olx,1-Oly,1,1,1,iTracer),
./pkg/ptracers/ptracers_integrate.F 71 PTRACERS_INTEGRATE 
      INTEGER i,j,iTracer
./pkg/ptracers/ptracers_integrate.F 80 PTRACERS_INTEGRATE 
      DO iTracer=1,PTRACERS_numInUse
./pkg/ptracers/ptracers_integrate.F 95 PTRACERS_INTEGRATE 
     &      .OR. PTRACERS_advScheme(iTracer).EQ.ENUM_CENTERED_2ND
./pkg/ptracers/ptracers_integrate.F 96 PTRACERS_INTEGRATE 
     &      .OR. PTRACERS_advScheme(iTracer).EQ.ENUM_UPWIND_3RD
./pkg/ptracers/ptracers_integrate.F 97 PTRACERS_INTEGRATE 
     &      .OR. PTRACERS_advScheme(iTracer).EQ.ENUM_CENTERED_4TH
./pkg/ptracers/ptracers_integrate.F 98 PTRACERS_INTEGRATE 
       GAD_TR = GAD_TR1 + iTracer - 1
./pkg/ptracers/ptracers_write_timeave.F 123 PTRACERS_WRITE_TIMEAVE 
          do iTracer=1,PTRACERS_numInUse
./pkg/ptracers/ptracers_write_timeave.F 125 PTRACERS_WRITE_TIMEAVE 
     &           iTracer,'.',myIter
./pkg/ptracers/ptracers_write_timeave.F 127 PTRACERS_WRITE_TIMEAVE 
     &           ptracerFluxtave(1-Olx,1-Oly,  1,1,iTracer),
./pkg/ptracers/ptracers_write_timeave.F 130 PTRACERS_WRITE_TIMEAVE 
     &           iTracer,'.',myIter
./pkg/ptracers/ptracers_write_timeave.F 132 PTRACERS_WRITE_TIMEAVE 
     &           ptracertave    (1-Olx,1-Oly,1,1,1,iTracer),
./pkg/ptracers/ptracers_write_timeave.F 48 PTRACERS_WRITE_TIMEAVE 
      INTEGER bi,bj,k, iTracer
./pkg/ptracers/ptracers_write_timeave.F 68 PTRACERS_WRITE_TIMEAVE 
            DO iTracer=1,PTRACERS_numInUse
./pkg/ptracers/ptracers_write_timeave.F 70 PTRACERS_WRITE_TIMEAVE 
     &             ptracerFluxtave(1-Olx,1-Oly,  1,1,iTracer),
./pkg/ptracers/ptracers_write_timeave.F 73 PTRACERS_WRITE_TIMEAVE 
     &             ptracertave    (1-Olx,1-Oly,1,1,1,iTracer),
./pkg/matrix/matrix_init.F 24 MATRIX_INIT 
      INTEGER iTracer
./pkg/matrix/matrix_init.F 29 MATRIX_INIT 
 	  DO iTracer=1,PTRACERS_num
./pkg/matrix/matrix_init.F 35 MATRIX_INIT 
		  		  PTRACERS_initial(i,j,k,bi,bj,iTracer)=
./pkg/matrix/matrix_init.F 36 MATRIX_INIT 
     &                  pTracer(i,j,k,bi,bj,iTracer)
./pkg/matrix/matrix_init.F 37 MATRIX_INIT 
				  MATRIX(i,j,k,bi,bj,iTracer,1)= 0. _d 0
./pkg/matrix/matrix_init.F 38 MATRIX_INIT 
				  MATRIX(i,j,k,bi,bj,iTracer,2)= 0. _d 0
./pkg/matrix/matrix_write_tendency.F 101 MATRIX_WRITE_TENDENCY 
     &         MATRIX(1-Olx,1-Oly,1,1,1,iTracer,2),iRec,myIter,myThid)
./pkg/matrix/matrix_write_tendency.F 106 MATRIX_WRITE_TENDENCY 
        DO iTracer=1,PTRACERS_numInUse
./pkg/matrix/matrix_write_tendency.F 112 MATRIX_WRITE_TENDENCY 
                    MATRIX(i,j,k,bi,bj,iTracer,2)= 0. _d 0
./pkg/matrix/matrix_write_tendency.F 27 MATRIX_WRITE_TENDENCY 
      INTEGER bi,bj,i,j,k,iTracer,iRec
./pkg/matrix/matrix_write_tendency.F 40 MATRIX_WRITE_TENDENCY 
        DO iTracer=1,PTRACERS_numInUse
./pkg/matrix/matrix_write_tendency.F 46 MATRIX_WRITE_TENDENCY 
                    MATRIX(i,j,k,bi,bj,iTracer,1) =
./pkg/matrix/matrix_write_tendency.F 47 MATRIX_WRITE_TENDENCY 
     &                   MATRIX(i,j,k,bi,bj,iTracer,1)
./pkg/matrix/matrix_write_tendency.F 54 MATRIX_WRITE_TENDENCY 
          WRITE(suff,'(A9,I2.2)') 'MATRIXEXP',iTracer
./pkg/matrix/matrix_write_tendency.F 55 MATRIX_WRITE_TENDENCY 
          write(*,*)'Writing explicit matrix :',iTracer,
./pkg/matrix/matrix_write_tendency.F 58 MATRIX_WRITE_TENDENCY 
     &         MATRIX(1-Olx,1-Oly,1,1,1,iTracer,1),iRec,myIter,myThid)
./pkg/matrix/matrix_write_tendency.F 63 MATRIX_WRITE_TENDENCY 
        DO iTracer=1,PTRACERS_numInUse
./pkg/matrix/matrix_write_tendency.F 69 MATRIX_WRITE_TENDENCY 
                    MATRIX(i,j,k,bi,bj,iTracer,1)= 0. _d 0
./pkg/matrix/matrix_write_tendency.F 83 MATRIX_WRITE_TENDENCY 
        DO iTracer=1,PTRACERS_numInUse
./pkg/matrix/matrix_write_tendency.F 89 MATRIX_WRITE_TENDENCY 
                    MATRIX(i,j,k,bi,bj,iTracer,2) =
./pkg/matrix/matrix_write_tendency.F 90 MATRIX_WRITE_TENDENCY 
     &                   MATRIX(i,j,k,bi,bj,iTracer,2)
./pkg/matrix/matrix_write_tendency.F 97 MATRIX_WRITE_TENDENCY 
          WRITE(suff,'(A9,I2.2)') 'MATRIXIMP',iTracer
./pkg/matrix/matrix_write_tendency.F 98 MATRIX_WRITE_TENDENCY 
          write(*,*)'Writing implicit matrix :',iTracer,
./pkg/matrix/matrix_store_tendency.F 32 MATRIX_STORE_TENDENCY_EXP 
      INTEGER iTracer
./pkg/matrix/matrix_store_tendency.F 34 MATRIX_STORE_TENDENCY_EXP 
      DO iTracer=1,PTRACERS_numInUse
./pkg/matrix/matrix_store_tendency.F 38 MATRIX_STORE_TENDENCY_EXP 
              MATRIX(i,j,k,bi,bj,iTracer,1) =
./pkg/matrix/matrix_store_tendency.F 39 MATRIX_STORE_TENDENCY_EXP 
     &             MATRIX(i,j,k,bi,bj,iTracer,1)
./pkg/matrix/matrix_store_tendency.F 40 MATRIX_STORE_TENDENCY_EXP 
     &             + (gPtr(i,j,k,bi,bj,iTracer)
./pkg/matrix/matrix_store_tendency.F 41 MATRIX_STORE_TENDENCY_EXP 
     &             - PTRACERS_initial(i,j,k,bi,bj,iTracer))
./pkg/matrix/matrix_store_tendency.F 42 MATRIX_STORE_TENDENCY_EXP 
              gPtr(i,j,k,bi,bj,iTracer)=
./pkg/matrix/matrix_store_tendency.F 43 MATRIX_STORE_TENDENCY_EXP 
     &             PTRACERS_initial(i,j,k,bi,bj,iTracer)
./pkg/matrix/matrix_store_tendency.F 79 MATRIX_STORE_TENDENCY_IMP 
      INTEGER iTracer
./pkg/matrix/matrix_store_tendency.F 81 MATRIX_STORE_TENDENCY_IMP 
      DO iTracer=1,PTRACERS_numInUse
./pkg/matrix/matrix_store_tendency.F 85 MATRIX_STORE_TENDENCY_IMP 
              MATRIX(i,j,k,bi,bj,iTracer,2) =
./pkg/matrix/matrix_store_tendency.F 86 MATRIX_STORE_TENDENCY_IMP 
     &             MATRIX(i,j,k,bi,bj,iTracer,2)
./pkg/matrix/matrix_store_tendency.F 87 MATRIX_STORE_TENDENCY_IMP 
     &             +  pTracer(i,j,k,bi,bj,iTracer)
./pkg/matrix/matrix_store_tendency.F 88 MATRIX_STORE_TENDENCY_IMP 
              pTracer(i,j,k,bi,bj,iTracer)=
./pkg/matrix/matrix_store_tendency.F 89 MATRIX_STORE_TENDENCY_IMP 
     &             PTRACERS_initial(i,j,k,bi,bj,iTracer)
./pkg/gchem/gchem_calc_tendency.F 50 GCHEM_CALC_TENDENCY 
      INTEGER iTracer
./pkg/gchem/gchem_calc_tendency.F 60 GCHEM_CALC_TENDENCY 
      DO iTracer = 1, PTRACERS_numInUse
./pkg/gchem/gchem_calc_tendency.F 66 GCHEM_CALC_TENDENCY 
            gchemTendency(I,J,K,bi,bj,iTracer) = 0. _d 0
./pkg/gchem/gchem_readparms.F 36 GCHEM_READPARMS 
      INTEGER iTracer
./pkg/gchem/gchem_add_tendency.F 11 GCHEM_ADD_TENDENCY 
     &                           iTracer, myTime,myIter, myThid )
./pkg/gchem/gchem_add_tendency.F 41 GCHEM_ADD_TENDENCY 
      INTEGER iTracer
./pkg/gchem/gchem_add_tendency.F 59 GCHEM_ADD_TENDENCY 
        gPtr(I,J,K,bi,bj,iTracer) = gPtr(I,J,K,bi,bj,iTracer)
./pkg/gchem/gchem_add_tendency.F 60 GCHEM_ADD_TENDENCY 
     &       + gchemTendency(I,J,K,bi,bj,iTracer)