| File |
Line number |
Procedure |
Code |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
152 |
ECCO_COST_WEIGHTS |
wsaltLev (i,j,k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
317 |
ECCO_COST_WEIGHTS |
& wsaltLev, 1, mythid) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
324 |
ECCO_COST_WEIGHTS |
if ( wsaltLev(i,j,k,bi,bj).eq.0 ) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
325 |
ECCO_COST_WEIGHTS |
wsaltLev(i,j,k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
327 |
ECCO_COST_WEIGHTS |
wsaltLev(i,j,k,bi,bj)=frame(i,j)/ |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
328 |
ECCO_COST_WEIGHTS |
$ ( wsaltLev(i,j,k,bi,bj)*wsaltLev(i,j,k,bi,bj) ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
341 |
ECCO_COST_WEIGHTS |
wsaltLev(i,j,k,bi,bj)=ratio/(wsalt(k,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
349 |
ECCO_COST_WEIGHTS |
call ACTIVE_WRITE_XYZ( 'wsaltLev', wsaltLev, |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
150 |
ECCO_COST_WEIGHTS |
wsaltLev (i,j,k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
315 |
ECCO_COST_WEIGHTS |
& wsaltLev, 1, mythid) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
322 |
ECCO_COST_WEIGHTS |
if ( wsaltLev(i,j,k,bi,bj).eq.0 ) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
323 |
ECCO_COST_WEIGHTS |
wsaltLev(i,j,k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
325 |
ECCO_COST_WEIGHTS |
wsaltLev(i,j,k,bi,bj)=frame(i,j)/ |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
326 |
ECCO_COST_WEIGHTS |
$ ( wsaltLev(i,j,k,bi,bj)*wsaltLev(i,j,k,bi,bj) ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
339 |
ECCO_COST_WEIGHTS |
wsaltLev(i,j,k,bi,bj)=ratio/(wsalt(k,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
347 |
ECCO_COST_WEIGHTS |
call ACTIVE_WRITE_XYZ( 'wsaltLev', wsaltLev, |
|
./pkg/ecco/cost_drift.F |
218 |
COST_DRIFT |
& (wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)/ |
|
./pkg/ecco/cost_drift.F |
224 |
COST_DRIFT |
& (wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)/ |
|
./pkg/ecco/cost_drift.F |
229 |
COST_DRIFT |
if ( wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./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_salt0.F |
124 |
COST_SALT0 |
& + wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_salt0.F |
129 |
COST_SALT0 |
if ( wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj).ne.0. ) |
|
./pkg/ecco/cost_salt0.F |
171 |
COST_SALT0 |
& + wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost.h |
1019 |
NO PROCEDURE |
& wsalt,wsalt2,wsaltLev, |
|
./pkg/ecco/ecco_cost.h |
1067 |
NO PROCEDURE |
_RL wsaltLev (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
|
./pkg/ecco/ecco_cost_weights.F |
182 |
ECCO_COST_WEIGHTS |
wsaltLev (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
343 |
ECCO_COST_WEIGHTS |
& wsaltLev, 1, mythid) |
|
./pkg/ecco/ecco_cost_weights.F |
350 |
ECCO_COST_WEIGHTS |
if ( wsaltLev(i,j,k,bi,bj).eq.0 ) then |
|
./pkg/ecco/ecco_cost_weights.F |
351 |
ECCO_COST_WEIGHTS |
wsaltLev(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
353 |
ECCO_COST_WEIGHTS |
wsaltLev(i,j,k,bi,bj)=frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
354 |
ECCO_COST_WEIGHTS |
$ ( wsaltLev(i,j,k,bi,bj)*wsaltLev(i,j,k,bi,bj) ) |
|
./pkg/ecco/ecco_cost_weights.F |
367 |
ECCO_COST_WEIGHTS |
wsaltLev(i,j,k,bi,bj)= |
|
./pkg/ecco/ecco_cost_weights.F |
375 |
ECCO_COST_WEIGHTS |
call ACTIVE_WRITE_XYZ( 'wsaltLev', wsaltLev, |
|
./pkg/ecco/ecco_cost_weights.F |
377 |
ECCO_COST_WEIGHTS |
_EXCH_XYZ_RL( wsaltLev, myThid ) |
|
./pkg/ecco/ecco_cost_weights.F |
567 |
ECCO_COST_WEIGHTS |
wsss(i,j,bi,bj) = wsaltLev(i,j,k,bi,bj) |