| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_cost_concentration.F |
355 |
SEAICE_COST_CONCENTRATION |
junk = ( localbar(i,j,k,bi,bj) - |
|
./pkg/seaice/seaice_cost_concentration.F |
357 |
SEAICE_COST_CONCENTRATION |
localcost = localcost + junk*junk*localwww |
|
./pkg/seaice/seaice_cost_concentration.F |
370 |
SEAICE_COST_CONCENTRATION |
& junk, |
|
./pkg/seaice/seaice_cost_concentration.F |
372 |
SEAICE_COST_CONCENTRATION |
& junk*junk*localwww |
|
./pkg/seaice/seaice_cost_concentration.F |
90 |
SEAICE_COST_CONCENTRATION |
_RL junk |
|
./pkg/seaice/seaice_cost_sss.F |
318 |
SEAICE_COST_SSS |
junk = ( localbar(i,j,k,bi,bj) - SEAICE_clamp_salt ) |
|
./pkg/seaice/seaice_cost_sss.F |
323 |
SEAICE_COST_SSS |
junk = 0.0 |
|
./pkg/seaice/seaice_cost_sss.F |
326 |
SEAICE_COST_SSS |
localcost = localcost + junk*junk*localwww |
|
./pkg/seaice/seaice_cost_sss.F |
340 |
SEAICE_COST_SSS |
& junk, |
|
./pkg/seaice/seaice_cost_sss.F |
91 |
SEAICE_COST_SSS |
_RL junk |
|
./pkg/seaice/seaice_cost_sst.F |
310 |
SEAICE_COST_SST |
junk = ( localbar(i,j,k,bi,bj) - |
|
./pkg/seaice/seaice_cost_sst.F |
314 |
SEAICE_COST_SST |
junk = 0.0 |
|
./pkg/seaice/seaice_cost_sst.F |
317 |
SEAICE_COST_SST |
localcost = localcost + junk*junk*localwww |
|
./pkg/seaice/seaice_cost_sst.F |
331 |
SEAICE_COST_SST |
& junk, |
|
./pkg/seaice/seaice_cost_sst.F |
89 |
SEAICE_COST_SST |
_RL junk |
|
./pkg/ecco/cost_bp.F |
266 |
COST_BP |
junk = bpdifanom(i,j,bi,bj) |
|
./pkg/ecco/cost_bp.F |
268 |
COST_BP |
& + junk*junk*wbp(i,j,bi,bj) |
|
./pkg/ecco/cost_bp.F |
70 |
COST_BP |
_RL junk,junkweight |
|
./pkg/ecco/cost_gencost_sshv4.F |
131 |
COST_GENCOST_SSHV4 |
_RL junk,junkweight |
|
./pkg/ecco/cost_gencost_sshv4.F |
607 |
COST_GENCOST_SSHV4 |
junk = mean_psMssh_all(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
611 |
COST_GENCOST_SSHV4 |
& + junk*junk*junkweight |
|
./pkg/ecco/cost_gencost_sshv4.F |
614 |
COST_GENCOST_SSHV4 |
diagnosfld(i,j,bi,bj) = junk*junk*junkweight |
|
./pkg/ecco/cost_gencost_sshv4.F |
828 |
COST_GENCOST_SSHV4 |
junk = anom_psMslaobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
830 |
COST_GENCOST_SSHV4 |
& + junk*junk*gencost_weight(i,j,bi,bj,igen_lsc) |
|
./pkg/ecco/cost_gencost_sshv4.F |
950 |
COST_GENCOST_SSHV4 |
junk = anom_psMtpobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
952 |
COST_GENCOST_SSHV4 |
& objf_gencost(igen_tp,bi,bj)+junk*junk*junkweight |
|
./pkg/ecco/cost_gencost_sshv4.F |
963 |
COST_GENCOST_SSHV4 |
junk = anom_psMersobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
965 |
COST_GENCOST_SSHV4 |
& objf_gencost(igen_ers,bi,bj)+junk*junk*junkweight |
|
./pkg/ecco/cost_gencost_sshv4.F |
976 |
COST_GENCOST_SSHV4 |
junk = anom_psMgfoobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
978 |
COST_GENCOST_SSHV4 |
& objf_gencost(igen_gfo,bi,bj)+junk*junk*junkweight |
|
./pkg/ecco/cost_gencost_sstv4.F |
279 |
COST_GENCOST_SSTV4 |
junk = anom_sst(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sstv4.F |
284 |
COST_GENCOST_SSTV4 |
& +junk*junk*junkweight/ndaysaveRL |
|
./pkg/ecco/cost_gencost_sstv4.F |
374 |
COST_GENCOST_SSTV4 |
junk = anom_sst(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sstv4.F |
378 |
COST_GENCOST_SSTV4 |
& objf_gencost(igen_amsre,bi,bj)+junk*junk*junkweight |
|
./pkg/ecco/cost_gencost_sstv4.F |
76 |
COST_GENCOST_SSTV4 |
_RL junk,junkweight |
|
./pkg/ecco/cost_generic.F |
280 |
COST_GENERIC |
junk = ( localbar(i,j,k,bi,bj) - |
|
./pkg/ecco/cost_generic.F |
282 |
COST_GENERIC |
localcost = localcost + junk*junk*localwww |
|
./pkg/ecco/cost_generic.F |
92 |
COST_GENERIC |
_RL junk |
|
./pkg/ecco/cost_ssh.F |
264 |
COST_SSH |
junk = ((psbar(i,j,bi,bj) - psmean(i,j,bi,bj)) - |
|
./pkg/ecco/cost_ssh.F |
268 |
COST_SSH |
& + junk*junk*wwwtp(i,j) |
|
./pkg/ecco/cost_ssh.F |
269 |
COST_SSH |
if ( wwwtp(i,j)*junk .ne. 0. ) |
|
./pkg/ecco/cost_ssh.F |
274 |
COST_SSH |
junk = ( psbar(i,j,bi,bj) - |
|
./pkg/ecco/cost_ssh.F |
277 |
COST_SSH |
& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwtp(i,j) ) |
|
./pkg/ecco/cost_ssh.F |
291 |
COST_SSH |
junk = ((psbar(i,j,bi,bj) - psmean(i,j,bi,bj)) - |
|
./pkg/ecco/cost_ssh.F |
295 |
COST_SSH |
& + junk*junk*wwwers(i,j) |
|
./pkg/ecco/cost_ssh.F |
296 |
COST_SSH |
if ( wwwers(i,j)*junk .ne. 0. ) |
|
./pkg/ecco/cost_ssh.F |
301 |
COST_SSH |
junk = ( psbar(i,j,bi,bj) - |
|
./pkg/ecco/cost_ssh.F |
304 |
COST_SSH |
& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwers(i,j) ) |
|
./pkg/ecco/cost_ssh.F |
318 |
COST_SSH |
junk = ((psbar(i,j,bi,bj) - psmean(i,j,bi,bj)) - |
|
./pkg/ecco/cost_ssh.F |
322 |
COST_SSH |
& + junk*junk*wwwgfo(i,j) |
|
./pkg/ecco/cost_ssh.F |
323 |
COST_SSH |
if ( wwwgfo(i,j)*junk .ne. 0. ) |
|
./pkg/ecco/cost_ssh.F |
328 |
COST_SSH |
junk = ( psbar(i,j,bi,bj) - |
|
./pkg/ecco/cost_ssh.F |
331 |
COST_SSH |
& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwgfo(i,j) ) |
|
./pkg/ecco/cost_ssh.F |
80 |
COST_SSH |
_RL junk |
|
./pkg/ecco/cost_ssh_new.F |
350 |
COST_SSH_NEW |
junk = ( psbar(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
353 |
COST_SSH_NEW |
& + junk*junk*wwwtp2(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
359 |
COST_SSH_NEW |
junk = ( psbar(i,j,bi,bj) - |
|
./pkg/ecco/cost_ssh_new.F |
362 |
COST_SSH_NEW |
& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwtp2(i,j,bi,bj) ) |
|
./pkg/ecco/cost_ssh_new.F |
379 |
COST_SSH_NEW |
junk = ( psbar(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
382 |
COST_SSH_NEW |
& + junk*junk*wwwers2(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
388 |
COST_SSH_NEW |
junk = ( psbar(i,j,bi,bj) - |
|
./pkg/ecco/cost_ssh_new.F |
391 |
COST_SSH_NEW |
& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwers2(i,j,bi,bj) ) |
|
./pkg/ecco/cost_ssh_new.F |
408 |
COST_SSH_NEW |
junk = ( psbar(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
411 |
COST_SSH_NEW |
& + junk*junk*wwwgfo2(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
417 |
COST_SSH_NEW |
junk = ( psbar(i,j,bi,bj) - |
|
./pkg/ecco/cost_ssh_new.F |
420 |
COST_SSH_NEW |
& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwgfo2(i,j,bi,bj) ) |
|
./pkg/ecco/cost_ssh_new.F |
91 |
COST_SSH_NEW |
_RL junk |
|
./pkg/ecco/cost_sshv4.F |
125 |
COST_SSHV4 |
_RL junk,junkweight |
|
./pkg/ecco/cost_sshv4.F |
587 |
COST_SSHV4 |
junk = mean_psMssh_all(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
588 |
COST_SSHV4 |
objf_sshv4cost(1,bi,bj) = objf_sshv4cost(1,bi,bj) + junk*junk |
|
./pkg/ecco/cost_sshv4.F |
592 |
COST_SSHV4 |
diagnosfld(i,j,bi,bj) = junk*junk |
|
./pkg/ecco/cost_sshv4.F |
807 |
COST_SSHV4 |
junk = anom_psMslaobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
809 |
COST_SSHV4 |
& + junk*junk*wsshv4(i,j,5,bi,bj)*maskc(i,j,1,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
929 |
COST_SSHV4 |
junk = anom_psMtpobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
932 |
COST_SSHV4 |
& + junk*junk*junkweight |
|
./pkg/ecco/cost_sshv4.F |
943 |
COST_SSHV4 |
junk = anom_psMersobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
946 |
COST_SSHV4 |
& + junk*junk*junkweight |
|
./pkg/ecco/cost_sshv4.F |
957 |
COST_SSHV4 |
junk = anom_psMgfoobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
960 |
COST_SSHV4 |
& + junk*junk*junkweight |