Symbol Description Uses
tbar 76


File Line number Procedure Code
./pkg/ecco/cost_obcs_ageos.F 183 COST_OBCS_AGEOS 
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_obcs_ageos.F 208 COST_OBCS_AGEOS 
        _EXCH_XYZ_R8(tbar,myThid)
./pkg/ecco/cost_obcs_ageos.F 237 COST_OBCS_AGEOS 
     &                      tbar,sbar,rholoc,mythid)
./pkg/ecco/cost_obcs_ageos.F 297 COST_OBCS_AGEOS 
     &                      tbar,sbar,rholoc,mythid)
./pkg/ecco/cost_obcs_ageos.F 356 COST_OBCS_AGEOS 
     &                      tbar,sbar,rholoc,mythid)
./pkg/ecco/cost_obcs_ageos.F 415 COST_OBCS_AGEOS 
     &                      tbar,sbar,rholoc,mythid)
./pkg/ecco/cost_xbt.F 129 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/cost_obcsn.F 111 COST_OBCSN 
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_obcsn.F 131 COST_OBCSN 
     &                    (tbar(i,j,k,bi,bj) - OBNt(i,k,bi,bj))*
./pkg/ecco/cost_obcsn.F 132 COST_OBCSN 
     &                    (tbar(i,j,k,bi,bj) - OBNt(i,k,bi,bj))
./pkg/ecco/cost_ctdtclim.F 125 COST_CTDTCLIM 
            call ACTIVE_READ_XYZ( fnametheta, tbar, mrec,
./pkg/ecco/cost_ctdtclim.F 135 COST_CTDTCLIM 
                              tbar_gen(i,j,k,bi,bj) =tbar(i,j,k,bi,bj)
./pkg/ecco/cost_ctdtclim.F 137 COST_CTDTCLIM 
                              tbar(i,j,k,bi,bj) =(tbar_gen(i,j,k,bi,bj)
./pkg/ecco/cost_ctdtclim.F 138 COST_CTDTCLIM 
     $                             +tbar(i,j,k,bi,bj))/float(nyears)
./pkg/ecco/cost_ctdtclim.F 141 COST_CTDTCLIM 
     $                             +tbar(i,j,k,bi,bj)
./pkg/ecco/cost_ctdtclim.F 154 COST_CTDTCLIM 
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_ctdtclim.F 208 COST_CTDTCLIM 
     &                    (tbar(i,j,k,bi,bj) - tdat(i,j,k,bi,bj))*
./pkg/ecco/cost_ctdtclim.F 209 COST_CTDTCLIM 
     &                    (tbar(i,j,k,bi,bj) - tdat(i,j,k,bi,bj))      )
./pkg/ecco/cost_tmi.F 109 COST_TMI 
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_tmi.F 148 COST_TMI 
     &                  ( (tbar(i,j,k,bi,bj)-tmidat(i,j,bi,bj))*
./pkg/ecco/cost_tmi.F 149 COST_TMI 
     &                    (tbar(i,j,k,bi,bj)-tmidat(i,j,bi,bj)) )
./pkg/ecco/cost_argo_theta.F 127 COST_ARGO_THETA 
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_argo_theta.F 175 COST_ARGO_THETA 
     &             (tbar(i,j,k,bi,bj)-tmpobs(i,j))*
./pkg/ecco/cost_argo_theta.F 176 COST_ARGO_THETA 
     &             (tbar(i,j,k,bi,bj)-tmpobs(i,j))
./pkg/ecco/cost_ctdt.F 125 COST_CTDT 
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_ctdt.F 179 COST_CTDT 
                     tmpbar(i,j) = tbar(i,j,k,bi,bj)
./pkg/ecco/cost_trans_zonal.F 149 COST_TRANS_ZONAL 
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_trans_zonal.F 189 COST_TRANS_ZONAL 
                       tu(isect) = tu(isect) + p5*(tbar(i,j,k,bi,bj)
./pkg/ecco/cost_trans_zonal.F 190 COST_TRANS_ZONAL 
     $                     + tbar(i-1,j,k,bi,bj))*ubar(i,j,k,bi,bj)
./pkg/ecco/cost_obcss.F 111 COST_OBCSS 
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_obcss.F 131 COST_OBCSS 
     &                    (tbar(i,j,k,bi,bj) - OBSt(i,k,bi,bj))*
./pkg/ecco/cost_obcss.F 132 COST_OBCSS 
     &                    (tbar(i,j,k,bi,bj) - OBSt(i,k,bi,bj))
./pkg/ecco/cost_obcsw.F 111 COST_OBCSW 
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_obcsw.F 131 COST_OBCSW 
     &                    (tbar(i,j,k,bi,bj) - OBWt(j,k,bi,bj))*
./pkg/ecco/cost_obcsw.F 132 COST_OBCSW 
     &                    (tbar(i,j,k,bi,bj) - OBWt(j,k,bi,bj))
./pkg/ecco/ecco_cost.h 66 NO PROCEDURE 
     &                    tbar,
./pkg/ecco/ecco_cost.h 90 NO PROCEDURE 
      _RL tbar  (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 93 NO PROCEDURE 
      _RL tbar  (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
./pkg/ecco/ecco_cost.h 95 NO PROCEDURE 
      _RL tbar
./pkg/ecco/cost_theta.F 124 COST_THETA 
            call ACTIVE_READ_XYZ( fnametheta, tbar, mrec,
./pkg/ecco/cost_theta.F 134 COST_THETA 
                              tbar_gen(i,j,k,bi,bj) =tbar(i,j,k,bi,bj)
./pkg/ecco/cost_theta.F 136 COST_THETA 
                              tbar(i,j,k,bi,bj) =(tbar_gen(i,j,k,bi,bj)
./pkg/ecco/cost_theta.F 137 COST_THETA 
     $                             +tbar(i,j,k,bi,bj))/float(nyears)
./pkg/ecco/cost_theta.F 140 COST_THETA 
     $                             +tbar(i,j,k,bi,bj)
./pkg/ecco/cost_theta.F 153 COST_THETA 
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_theta.F 205 COST_THETA 
     &                    (tbar(i,j,k,bi,bj) - tdat(i,j,k,bi,bj))*
./pkg/ecco/cost_theta.F 206 COST_THETA 
     &                    (tbar(i,j,k,bi,bj) - tdat(i,j,k,bi,bj)) )
./pkg/ecco/cost_averagesfields.F 191 COST_AVERAGESFIELDS 
                  tbar(i,j,k,bi,bj) = theta(i,j,k,bi,bj)
./pkg/ecco/cost_averagesfields.F 205 COST_AVERAGESFIELDS 
                  tbar(i,j,k,bi,bj)  = (tbar (i,j,k,bi,bj) +
./pkg/ecco/cost_averagesfields.F 220 COST_AVERAGESFIELDS 
        call ACTIVE_WRITE_XYZ( fnametbar, tbar, monrec, optimcycle,
./pkg/ecco/cost_averagesfields.F 232 COST_AVERAGESFIELDS 
                  tbar(i,j,k,bi,bj) = tbar (i,j,k,bi,bj) +
./pkg/ecco/cost_averagesfields.F 256 COST_AVERAGESFIELDS 
                tbar(i,j,bi,bj) = theta(i,j,k,bi,bj)
./pkg/ecco/cost_averagesfields.F 269 COST_AVERAGESFIELDS 
                tbar(i,j,bi,bj)  = (tbar (i,j,bi,bj)  +
./pkg/ecco/cost_averagesfields.F 283 COST_AVERAGESFIELDS 
        call ACTIVE_WRITE_XY( fnametbar, tbar, monrec, optimcycle,
./pkg/ecco/cost_averagesfields.F 295 COST_AVERAGESFIELDS 
                tbar(i,j,bi,bj) = tbar (i,j,bi,bj) +
./pkg/ecco/cost_sst.F 109 COST_SST 
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_sst.F 149 COST_SST 
     &                  ( (tbar(i,j,k,bi,bj)-sstdat(i,j,bi,bj))*
./pkg/ecco/cost_sst.F 150 COST_SST 
     &                    (tbar(i,j,k,bi,bj)-sstdat(i,j,bi,bj)) )
./pkg/ecco/cost_averagesinit.F 87 COST_AVERAGESINIT 
                tbar(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 98 COST_AVERAGESINIT 
              tbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_trans_merid.F 160 COST_TRANS_MERID 
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_trans_merid.F 200 COST_TRANS_MERID 
                       tv(isect) = tv(isect) + p5*(tbar(i,j,k,bi,bj)
./pkg/ecco/cost_trans_merid.F 201 COST_TRANS_MERID 
     $                     + tbar(i,j-1,k,bi,bj))*vbar(i,j,k,bi,bj)
./pkg/ecco/cost_drift.F 150 COST_DRIFT 
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_drift.F 167 COST_DRIFT 
     &                  tbar(i,j,k,bi,bj)
./pkg/ecco/cost_drift.F 181 COST_DRIFT 
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_drift.F 199 COST_DRIFT 
     &                  tbar(i,j,k,bi,bj)
./pkg/ecco/cost_obcse.F 111 COST_OBCSE 
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_obcse.F 131 COST_OBCSE 
     &                    (tbar(i,j,k,bi,bj) - OBEt(j,k,bi,bj))*
./pkg/ecco/cost_obcse.F 132 COST_OBCSE 
     &                    (tbar(i,j,k,bi,bj) - OBEt(j,k,bi,bj))