| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_bp.F |
201 |
COST_BP |
offset_sum = 0. _d 0 |
|
./pkg/ecco/cost_bp.F |
210 |
COST_BP |
offset_sum = offset_sum + RA(i,j,bi,bj) |
|
./pkg/ecco/cost_bp.F |
218 |
COST_BP |
_GLOBAL_SUM_RL( offset_sum , mythid ) |
|
./pkg/ecco/cost_bp.F |
224 |
COST_BP |
if ((offset_sum.GT. 0. _d 0).AND. |
|
./pkg/ecco/cost_bp.F |
228 |
COST_BP |
& - offset/offset_sum |
|
./pkg/ecco/cost_bp.F |
78 |
COST_BP |
_RL offset_sum |
|
./pkg/ecco/cost_gencost_sshv4.F |
353 |
COST_GENCOST_SSHV4 |
offset_sum = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
490 |
COST_GENCOST_SSHV4 |
offset_sum=offset_sum+mean_psMssh_all_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
503 |
COST_GENCOST_SSHV4 |
_GLOBAL_SUM_RL( offset_sum , mythid ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
505 |
COST_GENCOST_SSHV4 |
if (offset_sum .eq. 0.0) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
515 |
COST_GENCOST_SSHV4 |
& ' cost_ssh: offset_sum = ',offset_sum |
|
./pkg/ecco/cost_gencost_sshv4.F |
522 |
COST_GENCOST_SSHV4 |
offset = offset / offset_sum |
|
./pkg/ecco/cost_gencost_sshv4.F |
85 |
COST_GENCOST_SSHV4 |
_RL offset_sum |
|
./pkg/ecco/cost_ssh.F |
163 |
COST_SSH |
offset_sum = 0. _d 0 |
|
./pkg/ecco/cost_ssh.F |
173 |
COST_SSH |
offset_sum = offset_sum + |
|
./pkg/ecco/cost_ssh.F |
182 |
COST_SSH |
_GLOBAL_SUM_RL( offset_sum , mythid ) |
|
./pkg/ecco/cost_ssh.F |
184 |
COST_SSH |
if (offset_sum .eq. 0.0) then |
|
./pkg/ecco/cost_ssh.F |
194 |
COST_SSH |
& ' cost_ssh: offset_sum = ',offset_sum |
|
./pkg/ecco/cost_ssh.F |
200 |
COST_SSH |
offset = offset / offset_sum |
|
./pkg/ecco/cost_ssh.F |
75 |
COST_SSH |
_RL offset_sum |
|
./pkg/ecco/cost_ssh_new.F |
248 |
COST_SSH_NEW |
offset_sum = 0. _d 0 |
|
./pkg/ecco/cost_ssh_new.F |
258 |
COST_SSH_NEW |
offset_sum = offset_sum + |
|
./pkg/ecco/cost_ssh_new.F |
267 |
COST_SSH_NEW |
_GLOBAL_SUM_RL( offset_sum , mythid ) |
|
./pkg/ecco/cost_ssh_new.F |
269 |
COST_SSH_NEW |
if (offset_sum .eq. 0.0) then |
|
./pkg/ecco/cost_ssh_new.F |
279 |
COST_SSH_NEW |
& ' cost_ssh: offset_sum = ',offset_sum |
|
./pkg/ecco/cost_ssh_new.F |
285 |
COST_SSH_NEW |
offset = offset / offset_sum |
|
./pkg/ecco/cost_ssh_new.F |
76 |
COST_SSH_NEW |
_RL offset_sum |
|
./pkg/ecco/cost_sshv4.F |
333 |
COST_SSHV4 |
offset_sum = 0. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
470 |
COST_SSHV4 |
offset_sum=offset_sum+mean_psMssh_all_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
483 |
COST_SSHV4 |
_GLOBAL_SUM_RL( offset_sum , mythid ) |
|
./pkg/ecco/cost_sshv4.F |
485 |
COST_SSHV4 |
if (offset_sum .eq. 0.0) then |
|
./pkg/ecco/cost_sshv4.F |
495 |
COST_SSHV4 |
& ' cost_ssh: offset_sum = ',offset_sum |
|
./pkg/ecco/cost_sshv4.F |
502 |
COST_SSHV4 |
offset = offset / offset_sum |
|
./pkg/ecco/cost_sshv4.F |
79 |
COST_SSHV4 |
_RL offset_sum |