| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_toolbox.F |
569 |
ECCO_ADDCOST |
_RL junk |
|
./pkg/ecco/ecco_toolbox.F |
593 |
ECCO_ADDCOST |
junk = localdif(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
595 |
ECCO_ADDCOST |
localcost = localcost + junk*junk*localwww |
|
./pkg/ecco/ecco_toolbox.F |
597 |
ECCO_ADDCOST |
localcost = localcost + junk*localwww |
|
./pkg/seaice/seaice_cost_concentration.F |
107 |
SEAICE_COST_CONCENTRATION |
_RL junk |
|
./pkg/seaice/seaice_cost_concentration.F |
369 |
SEAICE_COST_CONCENTRATION |
junk = ( localbar(i,j,k,bi,bj) - |
|
./pkg/seaice/seaice_cost_concentration.F |
371 |
SEAICE_COST_CONCENTRATION |
localcost = localcost + junk*junk*localwww |
|
./pkg/seaice/seaice_cost_concentration.F |
384 |
SEAICE_COST_CONCENTRATION |
& junk, |
|
./pkg/seaice/seaice_cost_concentration.F |
386 |
SEAICE_COST_CONCENTRATION |
& junk*junk*localwww |
|
./pkg/seaice/seaice_cost_sss.F |
105 |
SEAICE_COST_SSS |
_RL junk |
|
./pkg/seaice/seaice_cost_sss.F |
329 |
SEAICE_COST_SSS |
junk = ( localbar(i,j,k,bi,bj) - SEAICE_clamp_salt ) |
|
./pkg/seaice/seaice_cost_sss.F |
334 |
SEAICE_COST_SSS |
junk = 0.0 |
|
./pkg/seaice/seaice_cost_sss.F |
337 |
SEAICE_COST_SSS |
localcost = localcost + junk*junk*localwww |
|
./pkg/seaice/seaice_cost_sss.F |
351 |
SEAICE_COST_SSS |
& junk, |
|
./pkg/seaice/seaice_cost_sst.F |
103 |
SEAICE_COST_SST |
_RL junk |
|
./pkg/seaice/seaice_cost_sst.F |
326 |
SEAICE_COST_SST |
junk = ( localbar(i,j,k,bi,bj) - |
|
./pkg/seaice/seaice_cost_sst.F |
330 |
SEAICE_COST_SST |
junk = 0.0 |
|
./pkg/seaice/seaice_cost_sst.F |
333 |
SEAICE_COST_SST |
localcost = localcost + junk*junk*localwww |
|
./pkg/seaice/seaice_cost_sst.F |
347 |
SEAICE_COST_SST |
& junk, |
|
./pkg/ecco/cost_gencost_bpv4.F |
318 |
COST_GENCOST_BPV4 |
junk = bpdifanom(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_bpv4.F |
320 |
COST_GENCOST_BPV4 |
& + junk*junk*locwbp(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_bpv4.F |
67 |
COST_GENCOST_BPV4 |
_RL junk |
|
./pkg/ecco/cost_gencost_glbmean.F |
263 |
COST_GENCOST_GLBMEAN |
junk=locbarglbmean/locbarglbmean_sum - dataglbmean(irec) |
|
./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 |
1171 |
COST_GENCOST_SSHV4 |
junk = anom_psMslaobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1175 |
COST_GENCOST_SSHV4 |
junk = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1180 |
COST_GENCOST_SSHV4 |
& + junk*junk*gencost_weight(i,j,bi,bj,igen_lsc) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1205 |
COST_GENCOST_SSHV4 |
junk=slaoffset |
|
./pkg/ecco/cost_gencost_sshv4.F |
1208 |
COST_GENCOST_SSHV4 |
& + junk*junk*junkweight |
|
./pkg/ecco/cost_gencost_sshv4.F |
1350 |
COST_GENCOST_SSHV4 |
junk = anom_psMtpobs(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 |
1360 |
COST_GENCOST_SSHV4 |
junk = anom_psMersobs(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 |
1370 |
COST_GENCOST_SSHV4 |
junk = anom_psMgfoobs(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 |
154 |
COST_GENCOST_SSHV4 |
_RL junk,junkweight |
|
./pkg/ecco/cost_gencost_sshv4.F |
861 |
COST_GENCOST_SSHV4 |
junk = mean_psMssh_all(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
865 |
COST_GENCOST_SSHV4 |
junk = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
869 |
COST_GENCOST_SSHV4 |
& + junk*junk*junkweight |
|
./pkg/ecco/cost_gencost_sshv4.F |
872 |
COST_GENCOST_SSHV4 |
diagnosfld(i,j,bi,bj) = junk*junk*junkweight |
|
./pkg/ecco/cost_gencost_sstv4.F |
328 |
COST_GENCOST_SSTV4 |
junk = anom_sst(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sstv4.F |
333 |
COST_GENCOST_SSTV4 |
& +junk*junk*junkweight/ndaysaveRL |
|
./pkg/ecco/cost_gencost_sstv4.F |
439 |
COST_GENCOST_SSTV4 |
junk = anom_sst(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sstv4.F |
443 |
COST_GENCOST_SSTV4 |
& objf_gencost(kgen,bi,bj)+junk*junk*junkweight |
|
./pkg/ecco/cost_gencost_sstv4.F |
72 |
COST_GENCOST_SSTV4 |
_RL junk,junkweight |
|
./pkg/ecco/cost_ssh.F |
255 |
COST_SSH |
junk = psmean(i,j,bi,bj) - mdt(i,j,bi,bj) + offset |
|
./pkg/ecco/cost_ssh.F |
256 |
COST_SSH |
objf_hmean = objf_hmean + junk*junk |
|
./pkg/ecco/cost_ssh.F |
310 |
COST_SSH |
junk = ((psbar(i,j,bi,bj) - psmean(i,j,bi,bj)) - |
|
./pkg/ecco/cost_ssh.F |
314 |
COST_SSH |
& + junk*junk*wwwtp(i,j) |
|
./pkg/ecco/cost_ssh.F |
315 |
COST_SSH |
if ( wwwtp(i,j)*junk .ne. 0. ) |
|
./pkg/ecco/cost_ssh.F |
320 |
COST_SSH |
junk = ( psbar(i,j,bi,bj) - |
|
./pkg/ecco/cost_ssh.F |
323 |
COST_SSH |
& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwtp(i,j) ) |
|
./pkg/ecco/cost_ssh.F |
337 |
COST_SSH |
junk = ((psbar(i,j,bi,bj) - psmean(i,j,bi,bj)) - |
|
./pkg/ecco/cost_ssh.F |
341 |
COST_SSH |
& + junk*junk*wwwers(i,j) |
|
./pkg/ecco/cost_ssh.F |
342 |
COST_SSH |
if ( wwwers(i,j)*junk .ne. 0. ) |
|
./pkg/ecco/cost_ssh.F |
347 |
COST_SSH |
junk = ( psbar(i,j,bi,bj) - |
|
./pkg/ecco/cost_ssh.F |
350 |
COST_SSH |
& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwers(i,j) ) |
|
./pkg/ecco/cost_ssh.F |
364 |
COST_SSH |
junk = ((psbar(i,j,bi,bj) - psmean(i,j,bi,bj)) - |
|
./pkg/ecco/cost_ssh.F |
368 |
COST_SSH |
& + junk*junk*wwwgfo(i,j) |
|
./pkg/ecco/cost_ssh.F |
369 |
COST_SSH |
if ( wwwgfo(i,j)*junk .ne. 0. ) |
|
./pkg/ecco/cost_ssh.F |
374 |
COST_SSH |
junk = ( psbar(i,j,bi,bj) - |
|
./pkg/ecco/cost_ssh.F |
377 |
COST_SSH |
& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwgfo(i,j) ) |
|
./pkg/ecco/cost_ssh.F |
85 |
COST_SSH |
_RL junk |