| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_cost_concentration.F |
356 |
SEAICE_COST_CONCENTRATION |
junk = ( localbar(i,j,k,bi,bj) - |
|
./pkg/seaice/seaice_cost_concentration.F |
358 |
SEAICE_COST_CONCENTRATION |
localcost = localcost + junk*junk*localwww |
|
./pkg/seaice/seaice_cost_concentration.F |
371 |
SEAICE_COST_CONCENTRATION |
& junk, |
|
./pkg/seaice/seaice_cost_concentration.F |
373 |
SEAICE_COST_CONCENTRATION |
& junk*junk*localwww |
|
./pkg/seaice/seaice_cost_concentration.F |
91 |
SEAICE_COST_CONCENTRATION |
_RL junk |
|
./pkg/seaice/seaice_cost_sss.F |
319 |
SEAICE_COST_SSS |
junk = ( localbar(i,j,k,bi,bj) - SEAICE_clamp_salt ) |
|
./pkg/seaice/seaice_cost_sss.F |
324 |
SEAICE_COST_SSS |
junk = 0.0 |
|
./pkg/seaice/seaice_cost_sss.F |
327 |
SEAICE_COST_SSS |
localcost = localcost + junk*junk*localwww |
|
./pkg/seaice/seaice_cost_sss.F |
341 |
SEAICE_COST_SSS |
& junk, |
|
./pkg/seaice/seaice_cost_sss.F |
92 |
SEAICE_COST_SSS |
_RL junk |
|
./pkg/seaice/seaice_cost_sst.F |
316 |
SEAICE_COST_SST |
junk = ( localbar(i,j,k,bi,bj) - |
|
./pkg/seaice/seaice_cost_sst.F |
320 |
SEAICE_COST_SST |
junk = 0.0 |
|
./pkg/seaice/seaice_cost_sst.F |
323 |
SEAICE_COST_SST |
localcost = localcost + junk*junk*localwww |
|
./pkg/seaice/seaice_cost_sst.F |
337 |
SEAICE_COST_SST |
& junk, |
|
./pkg/seaice/seaice_cost_sst.F |
90 |
SEAICE_COST_SST |
_RL junk |
|
./pkg/ecco/cost_bp.F |
272 |
COST_BP |
junk = bpdifanom(i,j,bi,bj) |
|
./pkg/ecco/cost_bp.F |
274 |
COST_BP |
& + junk*junk*wbp(i,j,bi,bj) |
|
./pkg/ecco/cost_bp.F |
70 |
COST_BP |
_RL junk,junkweight |
|
./pkg/ecco/cost_gencost_seaicev4.F |
410 |
COST_GENCOST_SEAICEV4 |
junk = ( areabbbar(i,j,k,bi,bj) - |
|
./pkg/ecco/cost_gencost_seaicev4.F |
413 |
COST_GENCOST_SEAICEV4 |
& objf_gencost(bi,bj,igen_conc) + junk*junk*localwww |
|
./pkg/ecco/cost_gencost_seaicev4.F |
430 |
COST_GENCOST_SEAICEV4 |
junk=1. _d 0 *cmask(i,j,k)* |
|
./pkg/ecco/cost_gencost_seaicev4.F |
439 |
COST_GENCOST_SEAICEV4 |
junk = 0. _d 0 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
446 |
COST_GENCOST_SEAICEV4 |
& junk*junk*localnorm*localnorm |
|
./pkg/ecco/cost_gencost_seaicev4.F |
457 |
COST_GENCOST_SEAICEV4 |
junk=1. _d 0 *cmask(i,j,k)* |
|
./pkg/ecco/cost_gencost_seaicev4.F |
465 |
COST_GENCOST_SEAICEV4 |
junk = 0. _d 0 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
472 |
COST_GENCOST_SEAICEV4 |
& junk*junk*localnorm*localnorm |
|
./pkg/ecco/cost_gencost_seaicev4.F |
94 |
COST_GENCOST_SEAICEV4 |
_RL junk |
|
./pkg/ecco/cost_gencost_sshv4.F |
1014 |
COST_GENCOST_SSHV4 |
junk=slaoffset |
|
./pkg/ecco/cost_gencost_sshv4.F |
1017 |
COST_GENCOST_SSHV4 |
& + junk*junk*junkweight |
|
./pkg/ecco/cost_gencost_sshv4.F |
1138 |
COST_GENCOST_SSHV4 |
junk = anom_psMtpobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1140 |
COST_GENCOST_SSHV4 |
& objf_gencost(bi,bj,igen_tp)+junk*junk*junkweight |
|
./pkg/ecco/cost_gencost_sshv4.F |
1151 |
COST_GENCOST_SSHV4 |
junk = anom_psMersobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1153 |
COST_GENCOST_SSHV4 |
& objf_gencost(bi,bj,igen_ers)+junk*junk*junkweight |
|
./pkg/ecco/cost_gencost_sshv4.F |
1164 |
COST_GENCOST_SSHV4 |
junk = anom_psMgfoobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1166 |
COST_GENCOST_SSHV4 |
& objf_gencost(bi,bj,igen_gfo)+junk*junk*junkweight |
|
./pkg/ecco/cost_gencost_sshv4.F |
143 |
COST_GENCOST_SSHV4 |
_RL junk,junkweight |
|
./pkg/ecco/cost_gencost_sshv4.F |
700 |
COST_GENCOST_SSHV4 |
junk = mean_psMssh_all(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
704 |
COST_GENCOST_SSHV4 |
junk = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
708 |
COST_GENCOST_SSHV4 |
& + junk*junk*junkweight |
|
./pkg/ecco/cost_gencost_sshv4.F |
711 |
COST_GENCOST_SSHV4 |
diagnosfld(i,j,bi,bj) = junk*junk*junkweight |
|
./pkg/ecco/cost_gencost_sshv4.F |
979 |
COST_GENCOST_SSHV4 |
junk = anom_psMslaobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
983 |
COST_GENCOST_SSHV4 |
junk = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
988 |
COST_GENCOST_SSHV4 |
& + junk*junk*gencost_weight(i,j,bi,bj,igen_lsc) |
|
./pkg/ecco/cost_gencost_sstv4.F |
309 |
COST_GENCOST_SSTV4 |
junk = anom_sst(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sstv4.F |
314 |
COST_GENCOST_SSTV4 |
& +junk*junk*junkweight/ndaysaveRL |
|
./pkg/ecco/cost_gencost_sstv4.F |
416 |
COST_GENCOST_SSTV4 |
junk = anom_sst(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sstv4.F |
420 |
COST_GENCOST_SSTV4 |
& objf_gencost(igen_amsre,bi,bj)+junk*junk*junkweight |
|
./pkg/ecco/cost_gencost_sstv4.F |
79 |
COST_GENCOST_SSTV4 |
_RL junk,junkweight |
|
./pkg/ecco/cost_generic.F |
287 |
COST_GENERIC |
junk = ( localbar(i,j,k,bi,bj) - |
|
./pkg/ecco/cost_generic.F |
289 |
COST_GENERIC |
localcost = localcost + junk*junk*localwww |
|
./pkg/ecco/cost_generic.F |
91 |
COST_GENERIC |
_RL junk |
|
./pkg/ecco/cost_ies.F |
194 |
COST_IES |
junk = (iestaubar(i,j,bi,bj) - iesmean(i,j,bi,bj)) |
|
./pkg/ecco/cost_ies.F |
197 |
COST_IES |
& + junk*junk*junkweight |
|
./pkg/ecco/cost_ies.F |
70 |
COST_IES |
_RL junk,junkweight |
|
./pkg/ecco/cost_ssh.F |
267 |
COST_SSH |
junk = ((psbar(i,j,bi,bj) - psmean(i,j,bi,bj)) - |
|
./pkg/ecco/cost_ssh.F |
271 |
COST_SSH |
& + junk*junk*wwwtp(i,j) |
|
./pkg/ecco/cost_ssh.F |
272 |
COST_SSH |
if ( wwwtp(i,j)*junk .ne. 0. ) |
|
./pkg/ecco/cost_ssh.F |
277 |
COST_SSH |
junk = ( psbar(i,j,bi,bj) - |
|
./pkg/ecco/cost_ssh.F |
280 |
COST_SSH |
& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwtp(i,j) ) |
|
./pkg/ecco/cost_ssh.F |
294 |
COST_SSH |
junk = ((psbar(i,j,bi,bj) - psmean(i,j,bi,bj)) - |
|
./pkg/ecco/cost_ssh.F |
298 |
COST_SSH |
& + junk*junk*wwwers(i,j) |
|
./pkg/ecco/cost_ssh.F |
299 |
COST_SSH |
if ( wwwers(i,j)*junk .ne. 0. ) |
|
./pkg/ecco/cost_ssh.F |
304 |
COST_SSH |
junk = ( psbar(i,j,bi,bj) - |
|
./pkg/ecco/cost_ssh.F |
307 |
COST_SSH |
& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwers(i,j) ) |
|
./pkg/ecco/cost_ssh.F |
321 |
COST_SSH |
junk = ((psbar(i,j,bi,bj) - psmean(i,j,bi,bj)) - |
|
./pkg/ecco/cost_ssh.F |
325 |
COST_SSH |
& + junk*junk*wwwgfo(i,j) |
|
./pkg/ecco/cost_ssh.F |
326 |
COST_SSH |
if ( wwwgfo(i,j)*junk .ne. 0. ) |
|
./pkg/ecco/cost_ssh.F |
331 |
COST_SSH |
junk = ( psbar(i,j,bi,bj) - |
|
./pkg/ecco/cost_ssh.F |
334 |
COST_SSH |
& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwgfo(i,j) ) |
|
./pkg/ecco/cost_ssh.F |
81 |
COST_SSH |
_RL junk |
|
./pkg/ecco/cost_ssh_new.F |
353 |
COST_SSH_NEW |
junk = ( psbar(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
356 |
COST_SSH_NEW |
& + junk*junk*wwwtp2(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
362 |
COST_SSH_NEW |
junk = ( psbar(i,j,bi,bj) - |
|
./pkg/ecco/cost_ssh_new.F |
365 |
COST_SSH_NEW |
& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwtp2(i,j,bi,bj) ) |
|
./pkg/ecco/cost_ssh_new.F |
382 |
COST_SSH_NEW |
junk = ( psbar(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
385 |
COST_SSH_NEW |
& + junk*junk*wwwers2(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
391 |
COST_SSH_NEW |
junk = ( psbar(i,j,bi,bj) - |
|
./pkg/ecco/cost_ssh_new.F |
394 |
COST_SSH_NEW |
& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwers2(i,j,bi,bj) ) |
|
./pkg/ecco/cost_ssh_new.F |
411 |
COST_SSH_NEW |
junk = ( psbar(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
414 |
COST_SSH_NEW |
& + junk*junk*wwwgfo2(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
420 |
COST_SSH_NEW |
junk = ( psbar(i,j,bi,bj) - |
|
./pkg/ecco/cost_ssh_new.F |
423 |
COST_SSH_NEW |
& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwgfo2(i,j,bi,bj) ) |
|
./pkg/ecco/cost_ssh_new.F |
92 |
COST_SSH_NEW |
_RL junk |
|
./pkg/ecco/cost_sshv4.F |
1001 |
COST_SSHV4 |
& + junk*junk*junkweight |
|
./pkg/ecco/cost_sshv4.F |
141 |
COST_SSHV4 |
_RL junk,junkweight |
|
./pkg/ecco/cost_sshv4.F |
622 |
COST_SSHV4 |
junk = mean_psMssh_all(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
623 |
COST_SSHV4 |
objf_sshv4cost(1,bi,bj) = objf_sshv4cost(1,bi,bj) + junk*junk |
|
./pkg/ecco/cost_sshv4.F |
627 |
COST_SSHV4 |
diagnosfld(i,j,bi,bj) = junk*junk |
|
./pkg/ecco/cost_sshv4.F |
848 |
COST_SSHV4 |
junk = anom_psMslaobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
850 |
COST_SSHV4 |
& + junk*junk*wsshv4(i,j,5,bi,bj)*maskc(i,j,1,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
970 |
COST_SSHV4 |
junk = anom_psMtpobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
973 |
COST_SSHV4 |
& + junk*junk*junkweight |
|
./pkg/ecco/cost_sshv4.F |
984 |
COST_SSHV4 |
junk = anom_psMersobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
987 |
COST_SSHV4 |
& + junk*junk*junkweight |
|
./pkg/ecco/cost_sshv4.F |
998 |
COST_SSHV4 |
junk = anom_psMgfoobs(i,j,bi,bj) |