Symbol Description Uses
wwwers1 4


File Line number Procedure Code
./pkg/ecco/cost_ssh_new.F 140 COST_SSH_NEW 
              wwwers1(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh_new.F 230 COST_SSH_NEW 
                  wwwers1(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_ssh_new.F 374 COST_SSH_NEW 
                wwwers2(i,j,bi,bj) = wwwers1(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 86 COST_SSH_NEW 
      _RL wwwers1 ( 1-olx:snx+olx, 1-oly:sny+oly, nsx, nsy )