| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_cost_concentration.F |
336 |
SEAICE_COST_CONCENTRATION |
cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_concentration.F |
340 |
SEAICE_COST_CONCENTRATION |
cmask(i,j,k) = 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 |
92 |
SEAICE_COST_CONCENTRATION |
_RL cmask (1-olx:snx+olx,1-oly:sny+oly,nnzobs) |
|
./pkg/seaice/seaice_cost_sss.F |
296 |
SEAICE_COST_SSS |
cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_sss.F |
300 |
SEAICE_COST_SSS |
cmask(i,j,k) = 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 |
93 |
SEAICE_COST_SSS |
_RL cmask (1-olx:snx+olx,1-oly:sny+oly,nnzobs) |
|
./pkg/seaice/seaice_cost_sst.F |
291 |
SEAICE_COST_SST |
cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_sst.F |
295 |
SEAICE_COST_SST |
cmask(i,j,k) = 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 |
91 |
SEAICE_COST_SST |
_RL cmask (1-olx:snx+olx,1-oly:sny+oly,nnzobs) |
|
./pkg/ecco/cost_ctds.F |
157 |
COST_CTDS |
cmask(i,j) = 1. _d 0 |
|
./pkg/ecco/cost_ctds.F |
161 |
COST_CTDS |
cmask(i,j) = 0. _d 0 |
|
./pkg/ecco/cost_ctds.F |
166 |
COST_CTDS |
www(i,j) = cosphi(i,j,bi,bj)*cmask(i,j) |
|
./pkg/ecco/cost_ctds.F |
64 |
COST_CTDS |
_RL cmask (1-olx:snx+olx,1-oly:sny+oly) |
|
./pkg/ecco/cost_ctdsclim.F |
179 |
COST_CTDSCLIM |
cmask(i,j) = 1. _d 0 |
|
./pkg/ecco/cost_ctdsclim.F |
181 |
COST_CTDSCLIM |
cmask(i,j) = 0. _d 0 |
|
./pkg/ecco/cost_ctdsclim.F |
184 |
COST_CTDSCLIM |
cmask(i,j) = 0. _d 0 |
|
./pkg/ecco/cost_ctdsclim.F |
196 |
COST_CTDSCLIM |
& cmask(i,j)* |
|
./pkg/ecco/cost_ctdsclim.F |
74 |
COST_CTDSCLIM |
_RL cmask (1-olx:snx+olx,1-oly:sny+oly) |
|
./pkg/ecco/cost_ctdt.F |
158 |
COST_CTDT |
cmask(i,j) = 1. _d 0 |
|
./pkg/ecco/cost_ctdt.F |
162 |
COST_CTDT |
cmask(i,j) = 0. _d 0 |
|
./pkg/ecco/cost_ctdt.F |
169 |
COST_CTDT |
www(i,j) = cosphi(i,j,bi,bj)*cmask(i,j) |
|
./pkg/ecco/cost_ctdt.F |
65 |
COST_CTDT |
_RL cmask (1-olx:snx+olx,1-oly:sny+oly) |
|
./pkg/ecco/cost_ctdtclim.F |
178 |
COST_CTDTCLIM |
cmask(i,j) = 1. _d 0 |
|
./pkg/ecco/cost_ctdtclim.F |
180 |
COST_CTDTCLIM |
cmask(i,j) = 0. _d 0 |
|
./pkg/ecco/cost_ctdtclim.F |
184 |
COST_CTDTCLIM |
cmask(i,j) = 0. _d 0 |
|
./pkg/ecco/cost_ctdtclim.F |
196 |
COST_CTDTCLIM |
& cmask(i,j)* |
|
./pkg/ecco/cost_ctdtclim.F |
74 |
COST_CTDTCLIM |
_RL cmask (1-olx:snx+olx,1-oly:sny+oly) |
|
./pkg/ecco/cost_generic.F |
266 |
COST_GENERIC |
cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj) |
|
./pkg/ecco/cost_generic.F |
270 |
COST_GENERIC |
cmask(i,j,k) = 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 |
96 |
COST_GENERIC |
_RL cmask (1-olx:snx+olx,1-oly:sny+oly,nnzobs) |
|
./pkg/ecco/cost_salt.F |
179 |
COST_SALT |
cmask(i,j) = cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_salt.F |
181 |
COST_SALT |
cmask(i,j) = 0. _d 0 |
|
./pkg/ecco/cost_salt.F |
183 |
COST_SALT |
cmask(i,j) = 0. _d 0 |
|
./pkg/ecco/cost_salt.F |
185 |
COST_SALT |
cmask(i,j) = 0. _d 0 |
|
./pkg/ecco/cost_salt.F |
196 |
COST_SALT |
& (wsaltLev(i,j,k,bi,bj)*cmask(i,j)* |
|
./pkg/ecco/cost_salt.F |
199 |
COST_SALT |
if ( wsaltLev(i,j,k,bi,bj)*cmask(i,j) .ne. 0. ) |
|
./pkg/ecco/cost_salt.F |
202 |
COST_SALT |
& (wsaltLev(i,j,k,bi,bj)*cmask(i,j)* |
|
./pkg/ecco/cost_salt.F |
68 |
COST_SALT |
_RL cmask (1-olx:snx+olx,1-oly:sny+oly) |
|
./pkg/ecco/cost_theta.F |
178 |
COST_THETA |
cmask(i,j) = cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_theta.F |
180 |
COST_THETA |
cmask(i,j) = 0. _d 0 |
|
./pkg/ecco/cost_theta.F |
182 |
COST_THETA |
cmask(i,j) = 0. _d 0 |
|
./pkg/ecco/cost_theta.F |
184 |
COST_THETA |
cmask(i,j) = 0. _d 0 |
|
./pkg/ecco/cost_theta.F |
195 |
COST_THETA |
& (wthetaLev(i,j,k,bi,bj)*cmask(i,j)* |
|
./pkg/ecco/cost_theta.F |
198 |
COST_THETA |
if ( wthetaLev(i,j,k,bi,bj)*cmask(i,j) .ne. 0. ) |
|
./pkg/ecco/cost_theta.F |
201 |
COST_THETA |
& (wthetaLev(i,j,k,bi,bj)*cmask(i,j)* |
|
./pkg/ecco/cost_theta.F |
68 |
COST_THETA |
_RL cmask (1-olx:snx+olx,1-oly:sny+oly) |
|
./pkg/ecco/cost_xbt.F |
163 |
COST_XBT |
cmask(i,j) = cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_xbt.F |
167 |
COST_XBT |
cmask(i,j) = 0. _d 0 |
|
./pkg/ecco/cost_xbt.F |
189 |
COST_XBT |
& (wtheta2(i,j,k,bi,bj)*cmask(i,j))* |
|
./pkg/ecco/cost_xbt.F |
192 |
COST_XBT |
if ( wtheta2(i,j,k,bi,bj)*cmask(i,j) .ne. 0. ) |
|
./pkg/ecco/cost_xbt.F |
63 |
COST_XBT |
_RL cmask (1-olx:snx+olx,1-oly:sny+oly) |