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 ) |