Symbol Description Uses
tbar 66



File Line number Procedure Code
./verification/lab_sea/code_ad_seaice_only/cost_hyd.F 113 COST_HYD
     &     nnzbar, tbarfile, tbar, xx_tbar_mean_dummy,
./verification/lab_sea/code_ad_seaice_only/cost_hyd.F 71 COST_HYD
     &     nnzbar, tbarfile, tbar, xx_tbar_mean_dummy,
./pkg/ecco/cost_argo_theta.F 128 COST_ARGO_THETA
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_argo_theta.F 176 COST_ARGO_THETA
     &             (tbar(i,j,k,bi,bj)-tmpobs(i,j))*
./pkg/ecco/cost_argo_theta.F 177 COST_ARGO_THETA
     &             (tbar(i,j,k,bi,bj)-tmpobs(i,j))
./pkg/ecco/cost_averagesfields.F 176 COST_AVERAGESFIELDS
     &     tbar, theta, xx_tbar_mean_dummy,
./pkg/ecco/cost_averagesfields.F 183 COST_AVERAGESFIELDS
     &     tbar, theta(1-Olx,1-Oly,1,1,1), xx_tbar_mean_dummy,
./pkg/ecco/cost_averagesinit.F 112 COST_AVERAGESINIT
                tbar(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 124 COST_AVERAGESINIT
              tbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ctdt.F 126 COST_CTDT
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_ctdt.F 171 COST_CTDT
                     tmpbar(i,j) = tbar(i,j,k,bi,bj)
./pkg/ecco/cost_ctdtclim.F 126 COST_CTDTCLIM
            call ACTIVE_READ_XYZ( fnametheta, tbar, mrec,
./pkg/ecco/cost_ctdtclim.F 136 COST_CTDTCLIM
                              tbar_gen(i,j,k,bi,bj) =tbar(i,j,k,bi,bj)
./pkg/ecco/cost_ctdtclim.F 138 COST_CTDTCLIM
                              tbar(i,j,k,bi,bj) =(tbar_gen(i,j,k,bi,bj)
./pkg/ecco/cost_ctdtclim.F 139 COST_CTDTCLIM
     $                             +tbar(i,j,k,bi,bj))/float(nyears)
./pkg/ecco/cost_ctdtclim.F 142 COST_CTDTCLIM
     $                             +tbar(i,j,k,bi,bj)
./pkg/ecco/cost_ctdtclim.F 155 COST_CTDTCLIM
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_ctdtclim.F 197 COST_CTDTCLIM
     &                    (tbar(i,j,k,bi,bj) - tdat(i,j,k,bi,bj))*
./pkg/ecco/cost_ctdtclim.F 198 COST_CTDTCLIM
     &                    (tbar(i,j,k,bi,bj) - tdat(i,j,k,bi,bj))      )
./pkg/ecco/cost_drift.F 145 COST_DRIFT
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_drift.F 162 COST_DRIFT
     &                  tbar(i,j,k,bi,bj)
./pkg/ecco/cost_drift.F 176 COST_DRIFT
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_drift.F 194 COST_DRIFT
     &                  tbar(i,j,k,bi,bj)
./pkg/ecco/cost_hyd.F 137 COST_HYD
     &     nnzbar, tbarfile, tbar, xx_tbar_mean_dummy,
./pkg/ecco/cost_hyd.F 74 COST_HYD
     &     nnzbar, tbarfile, tbar, xx_tbar_mean_dummy,
./pkg/ecco/cost_obcs_ageos.F 184 COST_OBCS_AGEOS
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_obcs_ageos.F 209 COST_OBCS_AGEOS
        _EXCH_XYZ_RL(tbar,myThid)
./pkg/ecco/cost_obcs_ageos.F 243 COST_OBCS_AGEOS
     I                         tbar(1-OLx,1-OLy,k,bi,bj), 
./pkg/ecco/cost_obcs_ageos.F 307 COST_OBCS_AGEOS
     I                         tbar(1-OLx,1-OLy,k,bi,bj), 
./pkg/ecco/cost_obcs_ageos.F 371 COST_OBCS_AGEOS
     I                         tbar(1-OLx,1-OLy,k,bi,bj), 
./pkg/ecco/cost_obcs_ageos.F 434 COST_OBCS_AGEOS
     I                         tbar(1-OLx,1-OLy,k,bi,bj), 
./pkg/ecco/cost_obcse.F 113 COST_OBCSE
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_obcse.F 133 COST_OBCSE
     &                    (tbar(i,j,k,bi,bj) - OBEt(j,k,bi,bj))*
./pkg/ecco/cost_obcse.F 134 COST_OBCSE
     &                    (tbar(i,j,k,bi,bj) - OBEt(j,k,bi,bj))
./pkg/ecco/cost_obcsn.F 113 COST_OBCSN
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_obcsn.F 133 COST_OBCSN
     &                    (tbar(i,j,k,bi,bj) - OBNt(i,k,bi,bj))*
./pkg/ecco/cost_obcsn.F 134 COST_OBCSN
     &                    (tbar(i,j,k,bi,bj) - OBNt(i,k,bi,bj))
./pkg/ecco/cost_obcss.F 113 COST_OBCSS
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_obcss.F 133 COST_OBCSS
     &                    (tbar(i,j,k,bi,bj) - OBSt(i,k,bi,bj))*
./pkg/ecco/cost_obcss.F 134 COST_OBCSS
     &                    (tbar(i,j,k,bi,bj) - OBSt(i,k,bi,bj))
./pkg/ecco/cost_obcsw.F 113 COST_OBCSW
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_obcsw.F 133 COST_OBCSW
     &                    (tbar(i,j,k,bi,bj) - OBWt(j,k,bi,bj))*
./pkg/ecco/cost_obcsw.F 134 COST_OBCSW
     &                    (tbar(i,j,k,bi,bj) - OBWt(j,k,bi,bj))
./pkg/ecco/cost_theta.F 125 COST_THETA
            call ACTIVE_READ_XYZ( fnametheta, tbar, mrec,
./pkg/ecco/cost_theta.F 135 COST_THETA
                              tbar_gen(i,j,k,bi,bj) =tbar(i,j,k,bi,bj)
./pkg/ecco/cost_theta.F 137 COST_THETA
                              tbar(i,j,k,bi,bj) =(tbar_gen(i,j,k,bi,bj)
./pkg/ecco/cost_theta.F 138 COST_THETA
     $                             +tbar(i,j,k,bi,bj))/float(nyears)
./pkg/ecco/cost_theta.F 141 COST_THETA
     $                             +tbar(i,j,k,bi,bj)
./pkg/ecco/cost_theta.F 155 COST_THETA
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_theta.F 196 COST_THETA
     &                    (tbar(i,j,k,bi,bj) - tdat(i,j,k,bi,bj))*
./pkg/ecco/cost_theta.F 197 COST_THETA
     &                    (tbar(i,j,k,bi,bj) - tdat(i,j,k,bi,bj)) )
./pkg/ecco/cost_theta.F 202 COST_THETA
     &                    (tbar(i,j,k,bi,bj) - tdat(i,j,k,bi,bj))*
./pkg/ecco/cost_theta.F 203 COST_THETA
     &                    (tbar(i,j,k,bi,bj) - tdat(i,j,k,bi,bj)) )
./pkg/ecco/cost_trans_merid.F 161 COST_TRANS_MERID
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_trans_merid.F 201 COST_TRANS_MERID
                       tv(isect) = tv(isect) + p5*(tbar(i,j,k,bi,bj)
./pkg/ecco/cost_trans_merid.F 202 COST_TRANS_MERID
     $                     + tbar(i,j-1,k,bi,bj))*vbar(i,j,k,bi,bj)
./pkg/ecco/cost_trans_zonal.F 150 COST_TRANS_ZONAL
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_trans_zonal.F 190 COST_TRANS_ZONAL
                       tu(isect) = tu(isect) + p5*(tbar(i,j,k,bi,bj)
./pkg/ecco/cost_trans_zonal.F 191 COST_TRANS_ZONAL
     $                     + tbar(i-1,j,k,bi,bj))*ubar(i,j,k,bi,bj)
./pkg/ecco/cost_xbt.F 130 COST_XBT
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_xbt.F 190 COST_XBT
     &                   (tbar(i,j,k,bi,bj)-tmpobs(i,j))*
./pkg/ecco/cost_xbt.F 191 COST_XBT
     &                   (tbar(i,j,k,bi,bj)-tmpobs(i,j))
./pkg/ecco/ecco_cost.h 137 NO PROCEDURE
     &                    tbar,
./pkg/ecco/ecco_cost.h 163 NO PROCEDURE
      _RL tbar  (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 166 NO PROCEDURE
      _RL tbar  (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
./pkg/ecco/ecco_cost.h 168 NO PROCEDURE
      _RL tbar