Symbol Description Uses
wwwtp 7



File Line number Procedure Code
./pkg/ecco/cost_ssh.F 111 COST_SSH
          wwwtp(i,j)  = 0. _d 0
./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 314 COST_SSH
     &              + junk*junk*wwwtp(i,j)
./pkg/ecco/cost_ssh.F 315 COST_SSH
                if ( wwwtp(i,j)*junk .ne. 0. )
./pkg/ecco/cost_ssh.F 319 COST_SSH
     &                  *wp(i,j,bi,bj)*wwwtp(i,j) .ne.0.) then
./pkg/ecco/cost_ssh.F 323 COST_SSH
     &              +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwtp(i,j) )
./pkg/ecco/cost_ssh.F 82 COST_SSH
      _RL wwwtp  ( 1-olx:snx+olx, 1-oly:sny+oly           )