| 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 |
400 |
COST_GENCOST_SSHV4 |
offset_sum = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
554 |
COST_GENCOST_SSHV4 |
offset_sum=offset_sum+RA(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
563 |
COST_GENCOST_SSHV4 |
offset_sum=offset_sum+RA(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
577 |
COST_GENCOST_SSHV4 |
_GLOBAL_SUM_RL( offset_sum , mythid ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
579 |
COST_GENCOST_SSHV4 |
if (offset_sum .eq. 0.0) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
589 |
COST_GENCOST_SSHV4 |
& offset,offset_sum |
|
./pkg/ecco/cost_gencost_sshv4.F |
596 |
COST_GENCOST_SSHV4 |
offset = offset / offset_sum |
|
./pkg/ecco/cost_gencost_sshv4.F |
93 |
COST_GENCOST_SSHV4 |
_RL offset_sum |
|
./pkg/ecco/cost_ssh.F |
164 |
COST_SSH |
offset_sum = 0. _d 0 |
|
./pkg/ecco/cost_ssh.F |
174 |
COST_SSH |
offset_sum = offset_sum + |
|
./pkg/ecco/cost_ssh.F |
183 |
COST_SSH |
_GLOBAL_SUM_RL( offset_sum , mythid ) |
|
./pkg/ecco/cost_ssh.F |
185 |
COST_SSH |
if (offset_sum .eq. 0.0) then |
|
./pkg/ecco/cost_ssh.F |
195 |
COST_SSH |
& ' cost_ssh: offset_sum = ',offset_sum |
|
./pkg/ecco/cost_ssh.F |
201 |
COST_SSH |
offset = offset / offset_sum |
|
./pkg/ecco/cost_ssh.F |
76 |
COST_SSH |
_RL offset_sum |
|
./pkg/ecco/cost_ssh_new.F |
249 |
COST_SSH_NEW |
offset_sum = 0. _d 0 |
|
./pkg/ecco/cost_ssh_new.F |
259 |
COST_SSH_NEW |
offset_sum = offset_sum + |
|
./pkg/ecco/cost_ssh_new.F |
268 |
COST_SSH_NEW |
_GLOBAL_SUM_RL( offset_sum , mythid ) |
|
./pkg/ecco/cost_ssh_new.F |
270 |
COST_SSH_NEW |
if (offset_sum .eq. 0.0) then |
|
./pkg/ecco/cost_ssh_new.F |
280 |
COST_SSH_NEW |
& ' cost_ssh: offset_sum = ',offset_sum |
|
./pkg/ecco/cost_ssh_new.F |
286 |
COST_SSH_NEW |
offset = offset / offset_sum |
|
./pkg/ecco/cost_ssh_new.F |
77 |
COST_SSH_NEW |
_RL offset_sum |
|
./pkg/ecco/cost_sshv4.F |
360 |
COST_SSHV4 |
offset_sum = 0. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
497 |
COST_SSHV4 |
offset_sum=offset_sum+mean_psMssh_all_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
510 |
COST_SSHV4 |
_GLOBAL_SUM_RL( offset_sum , mythid ) |
|
./pkg/ecco/cost_sshv4.F |
512 |
COST_SSHV4 |
if (offset_sum .eq. 0.0) then |
|
./pkg/ecco/cost_sshv4.F |
522 |
COST_SSHV4 |
& ' sshv4: offset_sum = ',offset_sum |
|
./pkg/ecco/cost_sshv4.F |
529 |
COST_SSHV4 |
offset = offset / offset_sum |
|
./pkg/ecco/cost_sshv4.F |
82 |
COST_SSHV4 |
_RL offset_sum |