Symbol Description Uses
cosphi 21



File Line number Procedure Code
./pkg/ecco/ecco_cost_init_varia.F 249 ECCO_COST_INIT_VARIA
              cosphi(i,j,bi,bj) = 1. _d 0
./pkg/ecco/ecco_cost_weights.F 272 ECCO_COST_WEIGHTS
              cosphi(i,j,bi,bj) = frame(i,j)
./pkg/ecco/ecco_toolbox.F 159 ECCO_DIFFMSK
               difmask(i,j,k,bi,bj) = cosphi(i,j,bi,bj)*
./pkg/ecco/ecco_toolbox.F 255 ECCO_DIFFANOMMSK
               difmask(i,j,k,bi,bj) = cosphi(i,j,bi,bj)*
./pkg/ecco/ecco_toolbox.F 348 ECCO_OBSMSK
               obsmask(i,j,k,bi,bj) = cosphi(i,j,bi,bj)*
./pkg/seaice/seaice_cost_concentration.F 350 SEAICE_COST_CONCENTRATION
               cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj)
./pkg/seaice/seaice_cost_sss.F 307 SEAICE_COST_SSS
               cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj)
./pkg/seaice/seaice_cost_sst.F 307 SEAICE_COST_SST
               cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj)
./pkg/ctrl/ctrl_cost_gen.F 253 CTRL_COST_GEN2D
              fctilem = fctilem + cosphi(i,j,bi,bj)*tmpx*tmpx
./pkg/ctrl/ctrl_cost_gen.F 254 CTRL_COST_GEN2D
              if ( cosphi(i,j,bi,bj) .ne. 0. _d 0)
./pkg/ctrl/ctrl_cost_gen.F 300 CTRL_COST_GEN2D
     &                   * cosphi(i,j,bi,bj)
./pkg/ctrl/ctrl_cost_gen.F 310 CTRL_COST_GEN2D
     &                *cosphi(i,j,bi,bj) .ne. 0. _d 0 )
./pkg/ctrl/ctrl_cost_gen.F 369 CTRL_COST_GEN2D
     &               + xx_gen_weight(i,j,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ctrl/ctrl_cost_gen.F 377 CTRL_COST_GEN2D
                  if ( xx_gen_weight(i,j,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_ssh.F 198 COST_SSH
     &                     mdtmask(i,j,bi,bj)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_ssh.F 201 COST_SSH
     &                     mdtmask(i,j,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_ssh.F 308 COST_SSH
                wwwtp(i,j) = wtp(i,j,bi,bj) *cosphi(i,j,bi,bj)
./pkg/ecco/cost_ssh.F 335 COST_SSH
                wwwers(i,j) = wers(i,j,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_ssh.F 362 COST_SSH
                wwwgfo(i,j) = wgfo(i,j,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/ecco.h 143 NO PROCEDURE
     &                    frame, cosphi, eccoVol_0
./pkg/ecco/ecco.h 146 NO PROCEDURE
      _RL cosphi  (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)