| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_ssh_new.F |
145 |
COST_SSH_NEW |
wwwgfo2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_ssh_new.F |
406 |
COST_SSH_NEW |
wwwgfo2(i,j,bi,bj) = wwwgfo1(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
414 |
COST_SSH_NEW |
& + junk*junk*wwwgfo2(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
415 |
COST_SSH_NEW |
if ( wwwgfo2(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_ssh_new.F |
419 |
COST_SSH_NEW |
& *wp(i,j,bi,bj)*wwwgfo2(i,j,bi,bj) .ne.0.) then |
|
./pkg/ecco/cost_ssh_new.F |
423 |
COST_SSH_NEW |
& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwgfo2(i,j,bi,bj) ) |
|
./pkg/ecco/cost_ssh_new.F |
91 |
COST_SSH_NEW |
_RL wwwgfo2 ( 1-olx:snx+olx, 1-oly:sny+oly, nsx, nsy ) |