| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_ssh_new.F |
143 |
COST_SSH_NEW |
wwwers2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_ssh_new.F |
374 |
COST_SSH_NEW |
wwwers2(i,j,bi,bj) = wwwers1(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
382 |
COST_SSH_NEW |
& + junk*junk*wwwers2(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
383 |
COST_SSH_NEW |
if ( wwwers2(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_ssh_new.F |
387 |
COST_SSH_NEW |
& *wp(i,j,bi,bj)*wwwers2(i,j,bi,bj) .ne.0.) then |
|
./pkg/ecco/cost_ssh_new.F |
391 |
COST_SSH_NEW |
& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwers2(i,j,bi,bj) ) |
|
./pkg/ecco/cost_ssh_new.F |
89 |
COST_SSH_NEW |
_RL wwwers2 ( 1-olx:snx+olx, 1-oly:sny+oly, nsx, nsy ) |