| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_xbt.F |
162 |
COST_XBT |
cmask(i,j) = cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_xbt.F |
166 |
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 |
62 |
COST_XBT |
_RL cmask (1-olx:snx+olx,1-oly:sny+oly) |
|
./pkg/ecco/cost_salt.F |
177 |
COST_SALT |
cmask(i,j) = cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_salt.F |
179 |
COST_SALT |
cmask(i,j) = 0. _d 0 |
|
./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 |
206 |
COST_SALT |
& (wsalt(k,bi,bj)*cmask(i,j)* |
|
./pkg/ecco/cost_salt.F |
209 |
COST_SALT |
if ( wsalt(k,bi,bj)*cmask(i,j) .ne. 0. ) |
|
./pkg/ecco/cost_salt.F |
70 |
COST_SALT |
_RL cmask (1-olx:snx+olx,1-oly:sny+oly) |
|
./pkg/ecco/cost_ctdtclim.F |
177 |
COST_CTDTCLIM |
cmask(i,j) = 1. _d 0 |
|
./pkg/ecco/cost_ctdtclim.F |
179 |
COST_CTDTCLIM |
cmask(i,j) = 0. _d 0 |
|
./pkg/ecco/cost_ctdtclim.F |
183 |
COST_CTDTCLIM |
cmask(i,j) = 0. _d 0 |
|
./pkg/ecco/cost_ctdtclim.F |
195 |
COST_CTDTCLIM |
cmask(i,j) = 0. _d 0 |
|
./pkg/ecco/cost_ctdtclim.F |
207 |
COST_CTDTCLIM |
& cmask(i,j)* |
|
./pkg/ecco/cost_ctdtclim.F |
73 |
COST_CTDTCLIM |
_RL cmask (1-olx:snx+olx,1-oly:sny+oly) |
|
./pkg/ecco/cost_tmi.F |
127 |
COST_TMI |
cmask(i,j) = cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_tmi.F |
129 |
COST_TMI |
cmask(i,j) = 0. _d 0 |
|
./pkg/ecco/cost_tmi.F |
131 |
COST_TMI |
cmask(i,j) = 0. _d 0 |
|
./pkg/ecco/cost_tmi.F |
133 |
COST_TMI |
cmask(i,j) = 0. _d 0 |
|
./pkg/ecco/cost_tmi.F |
147 |
COST_TMI |
& wsst(i,j,bi,bj)*cmask(i,j)* |
|
./pkg/ecco/cost_tmi.F |
150 |
COST_TMI |
if ( wsst(i,j,bi,bj)*cmask(i,j) .ne. 0. ) |
|
./pkg/ecco/cost_tmi.F |
61 |
COST_TMI |
_RL cmask (1-olx:snx+olx,1-oly:sny+oly) |
|
./pkg/ecco/cost_ctdsclim.F |
178 |
COST_CTDSCLIM |
cmask(i,j) = 1. _d 0 |
|
./pkg/ecco/cost_ctdsclim.F |
180 |
COST_CTDSCLIM |
cmask(i,j) = 0. _d 0 |
|
./pkg/ecco/cost_ctdsclim.F |
183 |
COST_CTDSCLIM |
cmask(i,j) = 0. _d 0 |
|
./pkg/ecco/cost_ctdsclim.F |
195 |
COST_CTDSCLIM |
cmask(i,j) = 0. _d 0 |
|
./pkg/ecco/cost_ctdsclim.F |
208 |
COST_CTDSCLIM |
& cmask(i,j)* |
|
./pkg/ecco/cost_ctdsclim.F |
73 |
COST_CTDSCLIM |
_RL cmask (1-olx:snx+olx,1-oly:sny+oly) |
|
./pkg/ecco/cost_sss.F |
126 |
COST_SSS |
cmask(i,j) = cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_sss.F |
130 |
COST_SSS |
cmask(i,j) = 0. _d 0 |
|
./pkg/ecco/cost_sss.F |
148 |
COST_SSS |
& wsss(i,j,bi,bj)*cmask(i,j)* |
|
./pkg/ecco/cost_sss.F |
151 |
COST_SSS |
if ( wsss(i,j,bi,bj)*cmask(i,j) .ne. 0. ) |
|
./pkg/ecco/cost_sss.F |
61 |
COST_SSS |
_RL cmask (1-olx:snx+olx,1-oly:sny+oly) |
|
./pkg/ecco/cost_ctdt.F |
157 |
COST_CTDT |
cmask(i,j) = 1. _d 0 |
|
./pkg/ecco/cost_ctdt.F |
161 |
COST_CTDT |
cmask(i,j) = 0. _d 0 |
|
./pkg/ecco/cost_ctdt.F |
177 |
COST_CTDT |
www(i,j) = cosphi(i,j,bi,bj)*cmask(i,j) |
|
./pkg/ecco/cost_ctdt.F |
64 |
COST_CTDT |
_RL cmask (1-olx:snx+olx,1-oly:sny+oly) |
|
./pkg/ecco/cost_theta.F |
176 |
COST_THETA |
cmask(i,j) = cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_theta.F |
178 |
COST_THETA |
cmask(i,j) = 0. _d 0 |
|
./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 |
204 |
COST_THETA |
& (wtheta(k,bi,bj)*cmask(i,j)* |
|
./pkg/ecco/cost_theta.F |
207 |
COST_THETA |
if ( wtheta(k,bi,bj)*cmask(i,j) .ne. 0. ) |
|
./pkg/ecco/cost_theta.F |
70 |
COST_THETA |
_RL cmask (1-olx:snx+olx,1-oly:sny+oly) |
|
./pkg/ecco/cost_sst.F |
126 |
COST_SST |
cmask(i,j) = cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_sst.F |
130 |
COST_SST |
cmask(i,j) = 0. _d 0 |
|
./pkg/ecco/cost_sst.F |
148 |
COST_SST |
& wsst(i,j,bi,bj)*cmask(i,j)* |
|
./pkg/ecco/cost_sst.F |
151 |
COST_SST |
if ( wsst(i,j,bi,bj)*cmask(i,j) .ne. 0. ) |
|
./pkg/ecco/cost_sst.F |
61 |
COST_SST |
_RL cmask (1-olx:snx+olx,1-oly:sny+oly) |
|
./pkg/ecco/cost_ctds.F |
156 |
COST_CTDS |
cmask(i,j) = 1. _d 0 |
|
./pkg/ecco/cost_ctds.F |
160 |
COST_CTDS |
cmask(i,j) = 0. _d 0 |
|
./pkg/ecco/cost_ctds.F |
174 |
COST_CTDS |
www(i,j) = cosphi(i,j,bi,bj)*cmask(i,j) |
|
./pkg/ecco/cost_ctds.F |
63 |
COST_CTDS |
_RL cmask (1-olx:snx+olx,1-oly:sny+oly) |