Symbol Description Uses
frame 79



File Line number Procedure Code
./pkg/seaice/seaice_cost_weights.F 111 SEAICE_COST_WEIGHTS
     &                 *frame(i,j)*_hFacC(i,j,k,bi,bj)
./pkg/seaice/seaice_cost_weights.F 122 SEAICE_COST_WEIGHTS
     &                 *frame(i,j)*_hFacC(i,j,k,bi,bj)
./pkg/seaice/seaice_cost_weights.F 77 SEAICE_COST_WEIGHTS
            frame(i,j) = 0. _d 0
./pkg/seaice/seaice_cost_weights.F 79 SEAICE_COST_WEIGHTS
            frame(i,j) = 1. _d 0
./pkg/ecco/cost_readers.F 169 COST_READERS
              ersmask(i,j,bi,bj) = ersmask(i,j,bi,bj)*frame(i,j)
./pkg/ecco/cost_readgfo.F 168 COST_READGFO
              gfomask(i,j,bi,bj) = gfomask(i,j,bi,bj)*frame(i,j)
./pkg/ecco/cost_readscatxfields.F 199 COST_READSCATXFIELDS
              scatxmask(i,j,bi,bj) = scatxmask(i,j,bi,bj)*frame(i,j)
./pkg/ecco/cost_readscatyfields.F 197 COST_READSCATYFIELDS
              scatymask(i,j,bi,bj) = scatymask(i,j,bi,bj)*frame(i,j)
./pkg/ecco/cost_readtopex.F 196 COST_READTOPEX
              tpmask(i,j,bi,bj) = tpmask(i,j,bi,bj)*frame(i,j)
./pkg/ecco/cost_readtopexmean.F 101 COST_READTOPEXMEAN
              mdtmask(i,j,bi,bj) = mdtmask(i,j,bi,bj)*frame(i,j)
./pkg/ecco/cost_sla_read.F 165 COST_SLA_READ
              sla_mask(i,j,bi,bj) = sla_mask(i,j,bi,bj)*frame(i,j)
./pkg/ecco/cost_sla_read_yd.F 144 COST_SLA_READ_YD
              sla_mask(i,j,bi,bj) = sla_mask(i,j,bi,bj)*frame(i,j)
./pkg/ecco/ecco_cost.h 1130 NO PROCEDURE
     &                      frame,
./pkg/ecco/ecco_cost.h 1159 NO PROCEDURE
      _RL frame   (1-olx:snx+olx,1-oly:sny+oly           )
./pkg/ecco/ecco_cost_weights.F 1015 ECCO_COST_WEIGHTS
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1017 ECCO_COST_WEIGHTS
              wtauv2(i,j,bi,bj) = wtau0*maskS(i,j,k,bi,bj)*frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1021 ECCO_COST_WEIGHTS
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1022 ECCO_COST_WEIGHTS
              wtauv2(i,j,bi,bj) = wtau0*maskc(i,j,k,bi,bj)*frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1053 ECCO_COST_WEIGHTS
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1085 ECCO_COST_WEIGHTS
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1087 ECCO_COST_WEIGHTS
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1089 ECCO_COST_WEIGHTS
              whflux2(i,j,bi,bj) = whflux0*frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1120 ECCO_COST_WEIGHTS
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1154 ECCO_COST_WEIGHTS
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1156 ECCO_COST_WEIGHTS
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1158 ECCO_COST_WEIGHTS
              wsflux2(i,j,bi,bj) = wsflux0*frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1189 ECCO_COST_WEIGHTS
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1221 ECCO_COST_WEIGHTS
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1253 ECCO_COST_WEIGHTS
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1285 ECCO_COST_WEIGHTS
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1317 ECCO_COST_WEIGHTS
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1349 ECCO_COST_WEIGHTS
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1382 ECCO_COST_WEIGHTS
     &            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1414 ECCO_COST_WEIGHTS
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1447 ECCO_COST_WEIGHTS
     &            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1479 ECCO_COST_WEIGHTS
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1658 ECCO_COST_WEIGHTS
                 wetan(i,j,bi,bj)=frame(i,j)*maskC(i,j,1,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 1699 ECCO_COST_WEIGHTS
                 wuvel3d(i,j,k,bi,bj)=frame(i,j)*maskW(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 1705 ECCO_COST_WEIGHTS
                 wvvel3d(i,j,k,bi,bj)=frame(i,j)*maskS(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 2002 ECCO_COST_WEIGHTS
                   wdiffkr2(i,j,k,bi,bj) = frame(i,j)/
./pkg/ecco/ecco_cost_weights.F 2010 ECCO_COST_WEIGHTS
                   wkapgm2(i,j,k,bi,bj) = frame(i,j)/
./pkg/ecco/ecco_cost_weights.F 2018 ECCO_COST_WEIGHTS
                   wkapredi2(i,j,k,bi,bj) = frame(i,j)/
./pkg/ecco/ecco_cost_weights.F 2026 ECCO_COST_WEIGHTS
                   wedtaux2(i,j,k,bi,bj) = frame(i,j)/
./pkg/ecco/ecco_cost_weights.F 2034 ECCO_COST_WEIGHTS
                   wedtauy2(i,j,k,bi,bj) = frame(i,j)/
./pkg/ecco/ecco_cost_weights.F 241 ECCO_COST_WEIGHTS
            frame(i,j) = 1. _d 0
./pkg/ecco/ecco_cost_weights.F 259 ECCO_COST_WEIGHTS
              cosphi(i,j,bi,bj) = frame(i,j)
./pkg/ecco/ecco_cost_weights.F 372 ECCO_COST_WEIGHTS
                 wsaltLev(i,j,k,bi,bj)=frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 387 ECCO_COST_WEIGHTS
     $             wsalt(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 415 ECCO_COST_WEIGHTS
                 wthetaLev(i,j,k,bi,bj)=frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 430 ECCO_COST_WEIGHTS
     $             wtheta(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 462 ECCO_COST_WEIGHTS
                 wsalt2(i,j,k,bi,bj)=frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 477 ECCO_COST_WEIGHTS
     $             wsalt(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 509 ECCO_COST_WEIGHTS
                 wtheta2(i,j,k,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 527 ECCO_COST_WEIGHTS
     $              wtheta(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 561 ECCO_COST_WEIGHTS
     &               wsst(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 571 ECCO_COST_WEIGHTS
     &               wtheta(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 581 ECCO_COST_WEIGHTS
     &               wsss(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 592 ECCO_COST_WEIGHTS
     &               wsalt(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 625 ECCO_COST_WEIGHTS
              wp(i,j,bi,bj) = wp(i,j,bi,bj)*frame(i,j)
./pkg/ecco/ecco_cost_weights.F 643 ECCO_COST_WEIGHTS
              wp(i,j,bi,bj) = frame(i,j)
./pkg/ecco/ecco_cost_weights.F 672 ECCO_COST_WEIGHTS
     &                 *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 674 ECCO_COST_WEIGHTS
     &                 *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 713 ECCO_COST_WEIGHTS
                 wtp (i,j,bi,bj) = wtp (i,j,bi,bj) * 0.01 * frame(i,j)
./pkg/ecco/ecco_cost_weights.F 719 ECCO_COST_WEIGHTS
                 wers(i,j,bi,bj) = wers(i,j,bi,bj) * 0.01 * frame(i,j)
./pkg/ecco/ecco_cost_weights.F 721 ECCO_COST_WEIGHTS
     &                wers(i,j,bi,bj) = 0.1 * frame(i,j)
./pkg/ecco/ecco_cost_weights.F 724 ECCO_COST_WEIGHTS
                 wgfo(i,j,bi,bj) = wgfo(i,j,bi,bj) * 0.01 * frame(i,j)
./pkg/ecco/ecco_cost_weights.F 726 ECCO_COST_WEIGHTS
     &                wgfo(i,j,bi,bj) = 0.1 * frame(i,j)
./pkg/ecco/ecco_cost_weights.F 792 ECCO_COST_WEIGHTS
        wsshv4tmp(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 820 ECCO_COST_WEIGHTS
     &               wbp(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 841 ECCO_COST_WEIGHTS
     &               wies(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 875 ECCO_COST_WEIGHTS
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 882 ECCO_COST_WEIGHTS
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 910 ECCO_COST_WEIGHTS
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 916 ECCO_COST_WEIGHTS
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 946 ECCO_COST_WEIGHTS
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 948 ECCO_COST_WEIGHTS
              wtauu2(i,j,bi,bj) = wtau0*maskW(i,j,k,bi,bj)*frame(i,j)
./pkg/ecco/ecco_cost_weights.F 952 ECCO_COST_WEIGHTS
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 953 ECCO_COST_WEIGHTS
              wtauu2(i,j,bi,bj) = wtau0*maskc(i,j,k,bi,bj)*frame(i,j)
./pkg/ecco/ecco_cost_weights.F 984 ECCO_COST_WEIGHTS
     &                            *frame(i,j)