| Symbol | Description | Uses |
| wwwgfo | 7 |
| File | Line number | Procedure | Code |
| ./pkg/ecco/cost_ssh.F | 113 | COST_SSH |
wwwgfo(i,j) = 0. _d 0 |
| ./pkg/ecco/cost_ssh.F | 362 | COST_SSH |
wwwgfo(i,j) = wgfo(i,j,bi,bj)*cosphi(i,j,bi,bj) |
| ./pkg/ecco/cost_ssh.F | 368 | COST_SSH |
& + junk*junk*wwwgfo(i,j) |
| ./pkg/ecco/cost_ssh.F | 369 | COST_SSH |
if ( wwwgfo(i,j)*junk .ne. 0. ) |
| ./pkg/ecco/cost_ssh.F | 373 | COST_SSH |
& *wp(i,j,bi,bj)*wwwgfo(i,j) .ne.0.) then |
| ./pkg/ecco/cost_ssh.F | 377 | COST_SSH |
& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwgfo(i,j) ) |
| ./pkg/ecco/cost_ssh.F | 84 | COST_SSH |
_RL wwwgfo ( 1-olx:snx+olx, 1-oly:sny+oly ) |