| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_ssh_new.F |
143 |
COST_SSH_NEW |
wwwtp2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_ssh_new.F |
348 |
COST_SSH_NEW |
wwwtp2(i,j,bi,bj) = wwwtp1(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
356 |
COST_SSH_NEW |
& + junk*junk*wwwtp2(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
357 |
COST_SSH_NEW |
if ( wwwtp2(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_ssh_new.F |
361 |
COST_SSH_NEW |
& *wp(i,j,bi,bj)*wwwtp2(i,j,bi,bj) .ne.0.) then |
|
./pkg/ecco/cost_ssh_new.F |
365 |
COST_SSH_NEW |
& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwtp2(i,j,bi,bj) ) |
|
./pkg/ecco/cost_ssh_new.F |
89 |
COST_SSH_NEW |
_RL wwwtp2 ( 1-olx:snx+olx, 1-oly:sny+oly, nsx, nsy ) |