| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_cost_concentration.F |
129 |
SEAICE_COST_CONCENTRATION |
localwww = 0. _d 0 |
|
./pkg/seaice/seaice_cost_concentration.F |
349 |
SEAICE_COST_CONCENTRATION |
localwww = localweight(i,j,bi,bj)*cmask(i,j,k) |
|
./pkg/seaice/seaice_cost_concentration.F |
352 |
SEAICE_COST_CONCENTRATION |
localwww = localModWeight(i,j,bi,bj)*cmask(i,j,k) |
|
./pkg/seaice/seaice_cost_concentration.F |
357 |
SEAICE_COST_CONCENTRATION |
localcost = localcost + junk*junk*localwww |
|
./pkg/seaice/seaice_cost_concentration.F |
371 |
SEAICE_COST_CONCENTRATION |
& localwww, |
|
./pkg/seaice/seaice_cost_concentration.F |
372 |
SEAICE_COST_CONCENTRATION |
& junk*junk*localwww |
|
./pkg/seaice/seaice_cost_concentration.F |
376 |
SEAICE_COST_CONCENTRATION |
if ( localwww .ne. 0. ) |
|
./pkg/seaice/seaice_cost_concentration.F |
88 |
SEAICE_COST_CONCENTRATION |
_RL localwww |
|
./pkg/seaice/seaice_cost_sss.F |
130 |
SEAICE_COST_SSS |
localwww = 0. _d 0 |
|
./pkg/seaice/seaice_cost_sss.F |
309 |
SEAICE_COST_SSS |
localwww = localweight(i,j,bi,bj)*cmask(i,j,k) |
|
./pkg/seaice/seaice_cost_sss.F |
326 |
SEAICE_COST_SSS |
localcost = localcost + junk*junk*localwww |
|
./pkg/seaice/seaice_cost_sss.F |
341 |
SEAICE_COST_SSS |
& localwww, |
|
./pkg/seaice/seaice_cost_sss.F |
346 |
SEAICE_COST_SSS |
if ( localwww .ne. 0. ) |
|
./pkg/seaice/seaice_cost_sss.F |
89 |
SEAICE_COST_SSS |
_RL localwww |
|
./pkg/seaice/seaice_cost_sst.F |
128 |
SEAICE_COST_SST |
localwww = 0. _d 0 |
|
./pkg/seaice/seaice_cost_sst.F |
304 |
SEAICE_COST_SST |
localwww = localweight(i,j,bi,bj)*cmask(i,j,k) |
|
./pkg/seaice/seaice_cost_sst.F |
317 |
SEAICE_COST_SST |
localcost = localcost + junk*junk*localwww |
|
./pkg/seaice/seaice_cost_sst.F |
332 |
SEAICE_COST_SST |
& localwww, |
|
./pkg/seaice/seaice_cost_sst.F |
337 |
SEAICE_COST_SST |
if ( localwww .ne. 0. ) |
|
./pkg/seaice/seaice_cost_sst.F |
87 |
SEAICE_COST_SST |
_RL localwww |
|
./pkg/ecco/cost_generic.F |
133 |
COST_GENERIC |
localwww = 0. _d 0 |
|
./pkg/ecco/cost_generic.F |
279 |
COST_GENERIC |
localwww = localweight(i,j,k,bi,bj)*cmask(i,j,k) |
|
./pkg/ecco/cost_generic.F |
282 |
COST_GENERIC |
localcost = localcost + junk*junk*localwww |
|
./pkg/ecco/cost_generic.F |
283 |
COST_GENERIC |
if ( localwww .ne. 0. ) |
|
./pkg/ecco/cost_generic.F |
90 |
COST_GENERIC |
_RL localwww |