Symbol Description Uses
frame 74


File Line number Procedure Code
./pkg/ecco/ecco_cost_init_varia.F 248 ECCO_COST_INIT_VARIA 
              frame(i,j)        = 1. _d 0
./pkg/ecco/ecco_cost_weights.F 1008 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1039 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1041 ECCO_COST_WEIGHTS 
              wtauv2(i,j,bi,bj) = wtau0*maskS(i,j,k,bi,bj)*frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1045 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1046 ECCO_COST_WEIGHTS 
              wtauv2(i,j,bi,bj) = wtau0*maskc(i,j,k,bi,bj)*frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1077 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1109 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1111 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1113 ECCO_COST_WEIGHTS 
              whflux2(i,j,bi,bj) = whflux0*frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1144 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1177 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1179 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1181 ECCO_COST_WEIGHTS 
              wsflux2(i,j,bi,bj) = wsflux0*frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1212 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1244 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1276 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1308 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1340 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1372 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1405 ECCO_COST_WEIGHTS 
     &            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1437 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1470 ECCO_COST_WEIGHTS 
     &            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1502 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1640 ECCO_COST_WEIGHTS 
                 wetan(i,j,bi,bj)=frame(i,j)*maskC(i,j,1,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 1681 ECCO_COST_WEIGHTS 
                 wuvel3d(i,j,k,bi,bj)=frame(i,j)*maskW(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 1687 ECCO_COST_WEIGHTS 
                 wvvel3d(i,j,k,bi,bj)=frame(i,j)*maskS(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 1975 ECCO_COST_WEIGHTS 
                   wdiffkr2(i,j,k,bi,bj) = frame(i,j)/
./pkg/ecco/ecco_cost_weights.F 1983 ECCO_COST_WEIGHTS 
                   wkapgm2(i,j,k,bi,bj) = frame(i,j)/
./pkg/ecco/ecco_cost_weights.F 1991 ECCO_COST_WEIGHTS 
                   wkapredi2(i,j,k,bi,bj) = frame(i,j)/
./pkg/ecco/ecco_cost_weights.F 1999 ECCO_COST_WEIGHTS 
                   wedtaux2(i,j,k,bi,bj) = frame(i,j)/
./pkg/ecco/ecco_cost_weights.F 2007 ECCO_COST_WEIGHTS 
                   wedtauy2(i,j,k,bi,bj) = frame(i,j)/
./pkg/ecco/ecco_cost_weights.F 254 ECCO_COST_WEIGHTS 
            frame(i,j) = 1. _d 0
./pkg/ecco/ecco_cost_weights.F 272 ECCO_COST_WEIGHTS 
              cosphi(i,j,bi,bj) = frame(i,j)
./pkg/ecco/ecco_cost_weights.F 392 ECCO_COST_WEIGHTS 
                 wsaltLev(i,j,k,bi,bj)=frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 407 ECCO_COST_WEIGHTS 
     $             wsalt(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 435 ECCO_COST_WEIGHTS 
                 wthetaLev(i,j,k,bi,bj)=frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 450 ECCO_COST_WEIGHTS 
     $             wtheta(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 482 ECCO_COST_WEIGHTS 
                 wsalt2(i,j,k,bi,bj)=frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 497 ECCO_COST_WEIGHTS 
     $             wsalt(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 529 ECCO_COST_WEIGHTS 
                 wtheta2(i,j,k,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 547 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 
     &               wsst(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 591 ECCO_COST_WEIGHTS 
     &               wtheta(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 601 ECCO_COST_WEIGHTS 
     &               wsss(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 612 ECCO_COST_WEIGHTS 
     &               wsalt(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 646 ECCO_COST_WEIGHTS 
              wp(i,j,bi,bj) = wp(i,j,bi,bj)*frame(i,j)
./pkg/ecco/ecco_cost_weights.F 665 ECCO_COST_WEIGHTS 
              wp(i,j,bi,bj) = frame(i,j)
./pkg/ecco/ecco_cost_weights.F 694 ECCO_COST_WEIGHTS 
     &                 *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 696 ECCO_COST_WEIGHTS 
     &                 *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 735 ECCO_COST_WEIGHTS 
                 wtp (i,j,bi,bj) = wtp (i,j,bi,bj) * 0.01 * frame(i,j)
./pkg/ecco/ecco_cost_weights.F 741 ECCO_COST_WEIGHTS 
                 wers(i,j,bi,bj) = wers(i,j,bi,bj) * 0.01 * frame(i,j)
./pkg/ecco/ecco_cost_weights.F 743 ECCO_COST_WEIGHTS 
     &                wers(i,j,bi,bj) = 0.1 * frame(i,j)
./pkg/ecco/ecco_cost_weights.F 746 ECCO_COST_WEIGHTS 
                 wgfo(i,j,bi,bj) = wgfo(i,j,bi,bj) * 0.01 * frame(i,j)
./pkg/ecco/ecco_cost_weights.F 748 ECCO_COST_WEIGHTS 
     &                wgfo(i,j,bi,bj) = 0.1 * frame(i,j)
./pkg/ecco/ecco_cost_weights.F 814 ECCO_COST_WEIGHTS 
        wsshv4tmp(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 842 ECCO_COST_WEIGHTS 
     &               wbp(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 863 ECCO_COST_WEIGHTS 
     &               wies(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 899 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 906 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 934 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 940 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 970 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 972 ECCO_COST_WEIGHTS 
              wtauu2(i,j,bi,bj) = wtau0*maskW(i,j,k,bi,bj)*frame(i,j)
./pkg/ecco/ecco_cost_weights.F 976 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 977 ECCO_COST_WEIGHTS 
              wtauu2(i,j,bi,bj) = wtau0*maskc(i,j,k,bi,bj)*frame(i,j)
./pkg/seaice/seaice_cost_weights.F 116 SEAICE_COST_WEIGHTS 
     &                 *frame(i,j)*_hFacC(i,j,k,bi,bj)
./pkg/seaice/seaice_cost_weights.F 127 SEAICE_COST_WEIGHTS 
     &                 *frame(i,j)*_hFacC(i,j,k,bi,bj)
./pkg/seaice/seaice_cost_weights.F 82 SEAICE_COST_WEIGHTS 
            frame(i,j) = 0. _d 0
./pkg/seaice/seaice_cost_weights.F 84 SEAICE_COST_WEIGHTS 
            frame(i,j) = 1. _d 0
./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.h 143 NO PROCEDURE 
     &                    frame, cosphi, eccoVol_0
./pkg/ecco/ecco.h 145 NO PROCEDURE 
      _RL frame   (1-olx:snx+olx,1-oly:sny+oly           )