| Symbol | Description | Uses |
| wwwers | 7 |
| File | Line number | Procedure | Code |
| ./pkg/ecco/cost_ssh.F | 112 | COST_SSH |
wwwers(i,j) = 0. _d 0 |
| ./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 | 341 | COST_SSH |
& + junk*junk*wwwers(i,j) |
| ./pkg/ecco/cost_ssh.F | 342 | COST_SSH |
if ( wwwers(i,j)*junk .ne. 0. ) |
| ./pkg/ecco/cost_ssh.F | 346 | COST_SSH |
& *wp(i,j,bi,bj)*wwwers(i,j) .ne.0.) then |
| ./pkg/ecco/cost_ssh.F | 350 | COST_SSH |
& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwers(i,j) ) |
| ./pkg/ecco/cost_ssh.F | 83 | COST_SSH |
_RL wwwers ( 1-olx:snx+olx, 1-oly:sny+oly ) |