| 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 |
225 |
COST_BP |
junk = bpdifanom(i,j,bi,bj) |
|
./pkg/ecco/cost_bp.F |
227 |
COST_BP |
& + junk*junk*junkweight |
|
./pkg/ecco/cost_bp.F |
72 |
COST_BP |
_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 |
121 |
COST_SSHV4 |
_RL junk,junkweight |
|
./pkg/ecco/cost_sshv4.F |
535 |
COST_SSHV4 |
junk = mean_psMssh_all(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
536 |
COST_SSHV4 |
objf_sshv4cost(1,bi,bj) = objf_sshv4cost(1,bi,bj) + junk*junk |
|
./pkg/ecco/cost_sshv4.F |
541 |
COST_SSHV4 |
diagnosfld(i,j,bi,bj) = junk*junk |
|
./pkg/ecco/cost_sshv4.F |
749 |
COST_SSHV4 |
junk = anom_psMslaobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
751 |
COST_SSHV4 |
& + junk*junk*wsshv4(i,j,5,bi,bj)*maskc(i,j,1,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
848 |
COST_SSHV4 |
junk = anom_psMtpobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
851 |
COST_SSHV4 |
& + junk*junk*junkweight |
|
./pkg/ecco/cost_sshv4.F |
862 |
COST_SSHV4 |
junk = anom_psMersobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
865 |
COST_SSHV4 |
& + junk*junk*junkweight |
|
./pkg/ecco/cost_sshv4.F |
876 |
COST_SSHV4 |
junk = anom_psMgfoobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
879 |
COST_SSHV4 |
& + junk*junk*junkweight |