| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_gencost_glbmean.F |
264 |
COST_GENCOST_GLBMEAN |
junkweight=locw |
|
./pkg/ecco/cost_gencost_glbmean.F |
266 |
COST_GENCOST_GLBMEAN |
& + junk*junk*junkweight |
|
./pkg/ecco/cost_gencost_glbmean.F |
64 |
COST_GENCOST_GLBMEAN |
_RL junk, junkweight |
|
./pkg/ecco/cost_gencost_sshv4.F |
1206 |
COST_GENCOST_SSHV4 |
junkweight=1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1208 |
COST_GENCOST_SSHV4 |
& + junk*junk*junkweight |
|
./pkg/ecco/cost_gencost_sshv4.F |
1347 |
COST_GENCOST_SSHV4 |
junkweight = mean_psMslaobs_MSK(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1352 |
COST_GENCOST_SSHV4 |
& objf_gencost(bi,bj,igen_tp)+junk*junk*junkweight |
|
./pkg/ecco/cost_gencost_sshv4.F |
1353 |
COST_GENCOST_SSHV4 |
if ( junkweight .ne. 0. ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1357 |
COST_GENCOST_SSHV4 |
junkweight = mean_psMslaobs_MSK(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1362 |
COST_GENCOST_SSHV4 |
& objf_gencost(bi,bj,igen_ers)+junk*junk*junkweight |
|
./pkg/ecco/cost_gencost_sshv4.F |
1363 |
COST_GENCOST_SSHV4 |
if ( junkweight .ne. 0. ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1367 |
COST_GENCOST_SSHV4 |
junkweight = mean_psMslaobs_MSK(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1372 |
COST_GENCOST_SSHV4 |
& objf_gencost(bi,bj,igen_gfo)+junk*junk*junkweight |
|
./pkg/ecco/cost_gencost_sshv4.F |
1373 |
COST_GENCOST_SSHV4 |
if ( junkweight .ne. 0. ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
154 |
COST_GENCOST_SSHV4 |
_RL junk,junkweight |
|
./pkg/ecco/cost_gencost_sshv4.F |
862 |
COST_GENCOST_SSHV4 |
junkweight = gencost_weight(i,j,bi,bj,igen_mdt) |
|
./pkg/ecco/cost_gencost_sshv4.F |
866 |
COST_GENCOST_SSHV4 |
junkweight = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
869 |
COST_GENCOST_SSHV4 |
& + junk*junk*junkweight |
|
./pkg/ecco/cost_gencost_sshv4.F |
870 |
COST_GENCOST_SSHV4 |
if ( junkweight .ne. 0. ) num_gencost(bi,bj,igen_mdt) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
872 |
COST_GENCOST_SSHV4 |
diagnosfld(i,j,bi,bj) = junk*junk*junkweight |
|
./pkg/ecco/cost_gencost_sstv4.F |
329 |
COST_GENCOST_SSTV4 |
junkweight = gencost_weight(i,j,bi,bj,kgen_lsc)* |
|
./pkg/ecco/cost_gencost_sstv4.F |
333 |
COST_GENCOST_SSTV4 |
& +junk*junk*junkweight/ndaysaveRL |
|
./pkg/ecco/cost_gencost_sstv4.F |
334 |
COST_GENCOST_SSTV4 |
if ( (junkweight.GT.0.).AND.(nb_sst(i,j,bi,bj).GT.0.) ) |
|
./pkg/ecco/cost_gencost_sstv4.F |
440 |
COST_GENCOST_SSTV4 |
junkweight = gencost_weight(i,j,bi,bj,kgen)* |
|
./pkg/ecco/cost_gencost_sstv4.F |
443 |
COST_GENCOST_SSTV4 |
& objf_gencost(kgen,bi,bj)+junk*junk*junkweight |
|
./pkg/ecco/cost_gencost_sstv4.F |
444 |
COST_GENCOST_SSTV4 |
if (junkweight.GT.0.) |
|
./pkg/ecco/cost_gencost_sstv4.F |
72 |
COST_GENCOST_SSTV4 |
_RL junk,junkweight |