| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_gencost_sshv4.F |
1054 |
COST_GENCOST_SSHV4 |
slaoffset_sum = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1066 |
COST_GENCOST_SSHV4 |
slaoffset_sum=slaoffset_sum+RA(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1079 |
COST_GENCOST_SSHV4 |
_GLOBAL_SUM_RL( slaoffset_sum , mythid ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1081 |
COST_GENCOST_SSHV4 |
if (slaoffset_sum .eq. 0.0) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
1094 |
COST_GENCOST_SSHV4 |
& slaoffset,slaoffset_sum,slaoffset_weight |
|
./pkg/ecco/cost_gencost_sshv4.F |
1102 |
COST_GENCOST_SSHV4 |
slaoffset = slaoffset / slaoffset_sum |
|
./pkg/ecco/cost_gencost_sshv4.F |
1204 |
COST_GENCOST_SSHV4 |
& ( slaoffset_sum.GT.0.25 _d 0 * globalArea ) ) THEN |
|
./pkg/ecco/cost_gencost_sshv4.F |
86 |
COST_GENCOST_SSHV4 |
_RL slaoffset_sum |