Symbol Description Uses
wwwtp 5



File Line number Procedure Code
./pkg/ecco/cost_ssh.F 102 COST_SSH
          wwwtp(i,j)  = 0. _d 0
./pkg/ecco/cost_ssh.F 246 COST_SSH
                wwwtp(i,j) = wtp(i,j,bi,bj) *cosphi(i,j,bi,bj)
./pkg/ecco/cost_ssh.F 250 COST_SSH
                tpcost   = tpcost + junk*junk*wwwtp(i,j)
./pkg/ecco/cost_ssh.F 251 COST_SSH
                if ( wwwtp(i,j)*junk .ne. 0. )
./pkg/ecco/cost_ssh.F 74 COST_SSH
      _RL wwwtp  ( 1-olx:snx+olx, 1-oly:sny+oly           )