| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_ssh_new.F |
142 |
COST_SSH_NEW |
wwwtp2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_ssh_new.F |
345 |
COST_SSH_NEW |
wwwtp2(i,j,bi,bj) = wwwtp1(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
353 |
COST_SSH_NEW |
& + junk*junk*wwwtp2(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
354 |
COST_SSH_NEW |
if ( wwwtp2(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_ssh_new.F |
358 |
COST_SSH_NEW |
& *wp(i,j,bi,bj)*wwwtp2(i,j,bi,bj) .ne.0.) then |
|
./pkg/ecco/cost_ssh_new.F |
362 |
COST_SSH_NEW |
& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwtp2(i,j,bi,bj) ) |
|
./pkg/ecco/cost_ssh_new.F |
88 |
COST_SSH_NEW |
_RL wwwtp2 ( 1-olx:snx+olx, 1-oly:sny+oly, nsx, nsy ) |