Symbol Description Uses
wwwers 5


File Line number Procedure Code
./pkg/ecco/cost_ssh.F 103 COST_SSH 
          wwwers(i,j) = 0. _d 0
./pkg/ecco/cost_ssh.F 261 COST_SSH 
                wwwers(i,j) = wers(i,j,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_ssh.F 265 COST_SSH 
                erscost   = erscost + junk*junk*wwwers(i,j)
./pkg/ecco/cost_ssh.F 266 COST_SSH 
                if ( wwwers(i,j)*junk .ne. 0. )
./pkg/ecco/cost_ssh.F 75 COST_SSH 
      _RL wwwers ( 1-olx:snx+olx, 1-oly:sny+oly           )