| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_gencost_bpv4.F |
246 |
COST_GENCOST_BPV4 |
offset_sum = 0. _d 0 |
|
./pkg/ecco/cost_gencost_bpv4.F |
255 |
COST_GENCOST_BPV4 |
offset_sum = offset_sum + RA(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_bpv4.F |
263 |
COST_GENCOST_BPV4 |
_GLOBAL_SUM_RL( offset_sum , mythid ) |
|
./pkg/ecco/cost_gencost_bpv4.F |
269 |
COST_GENCOST_BPV4 |
if ((offset_sum.GT. 0. _d 0).AND. |
|
./pkg/ecco/cost_gencost_bpv4.F |
273 |
COST_GENCOST_BPV4 |
& - offset/offset_sum |
|
./pkg/ecco/cost_gencost_bpv4.F |
74 |
COST_GENCOST_BPV4 |
_RL offset_sum |
|
./pkg/ecco/cost_gencost_sshv4.F |
532 |
COST_GENCOST_SSHV4 |
offset_sum = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
692 |
COST_GENCOST_SSHV4 |
offset_sum=offset_sum+RA(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
701 |
COST_GENCOST_SSHV4 |
offset_sum=offset_sum+RA(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
717 |
COST_GENCOST_SSHV4 |
_GLOBAL_SUM_RL( offset_sum , mythid ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
747 |
COST_GENCOST_SSHV4 |
if (offset_sum .eq. 0.0) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
760 |
COST_GENCOST_SSHV4 |
& offset,offset_sum |
|
./pkg/ecco/cost_gencost_sshv4.F |
768 |
COST_GENCOST_SSHV4 |
offset = offset / offset_sum |
|
./pkg/ecco/cost_gencost_sshv4.F |
84 |
COST_GENCOST_SSHV4 |
_RL offset_sum |
|
./pkg/ecco/cost_ssh.F |
190 |
COST_SSH |
offset_sum = 0. _d 0 |
|
./pkg/ecco/cost_ssh.F |
200 |
COST_SSH |
offset_sum = offset_sum + |
|
./pkg/ecco/cost_ssh.F |
209 |
COST_SSH |
_GLOBAL_SUM_RL( offset_sum , mythid ) |
|
./pkg/ecco/cost_ssh.F |
211 |
COST_SSH |
if (offset_sum .eq. 0.0) then |
|
./pkg/ecco/cost_ssh.F |
221 |
COST_SSH |
& ' cost_ssh: offset_sum = ',offset_sum |
|
./pkg/ecco/cost_ssh.F |
227 |
COST_SSH |
offset = offset / offset_sum |
|
./pkg/ecco/cost_ssh.F |
80 |
COST_SSH |
_RL offset_sum |