| File |
Line number |
Procedure |
Code |
|
./pkg/smooth/smooth_correl2dw.F |
79 |
SMOOTH_CORREL2DW |
tmpW=wuwind(i,j,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1066 |
ECCO_COST_WEIGHTS |
if (wuwind(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1067 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1068 |
ECCO_COST_WEIGHTS |
& 1./wuwind(i,j,bi,bj)/wuwind(i,j,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1070 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1200 |
ECCO_COST_WEIGHTS |
call ACTIVE_WRITE_XY_LOC( 'wuwind', wuwind, 1, 0, mythid, dummy) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
120 |
ECCO_COST_WEIGHTS |
wuwind (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
747 |
ECCO_COST_WEIGHTS |
& wuwind, irec, mythid ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
756 |
ECCO_COST_WEIGHTS |
if (wuwind(i,j,bi,bj) .lt. -9900.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
757 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
759 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = wuwind(i,j,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
760 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = max(wuwind(i,j,bi,bj),wwind0) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
761 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = wuwind(i,j,bi,bj)*maskC(i,j,k,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1059 |
ECCO_COST_WEIGHTS |
if (wuwind(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1060 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1061 |
ECCO_COST_WEIGHTS |
& 1./wuwind(i,j,bi,bj)/wuwind(i,j,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1063 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1193 |
ECCO_COST_WEIGHTS |
call ACTIVE_WRITE_XY_LOC( 'wuwind', wuwind, 1, 0, mythid, dummy) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
119 |
ECCO_COST_WEIGHTS |
wuwind (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
743 |
ECCO_COST_WEIGHTS |
& wuwind, irec, mythid ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
752 |
ECCO_COST_WEIGHTS |
if (wuwind(i,j,bi,bj) .lt. -9900.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
753 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
755 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = wuwind(i,j,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
756 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = max(wuwind(i,j,bi,bj),wwind0) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
757 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = wuwind(i,j,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl.h |
229 |
NO PROCEDURE |
& wuwind, |
|
./pkg/ctrl/ctrl.h |
249 |
NO PROCEDURE |
_RL wuwind (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
|
./pkg/ctrl/ctrl_init.F |
1085 |
CTRL_INIT |
wuwind (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ecco/cost_forcing.F |
134 |
COST_FORCING |
& wmean_wind, wuwind, |
|
./pkg/ecco/ecco_cost.h |
1016 |
NO PROCEDURE |
& wuwind,wvwind, |
|
./pkg/ecco/ecco_cost.h |
1060 |
NO PROCEDURE |
_RL wuwind (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
|
./pkg/ecco/ecco_cost_weights.F |
136 |
ECCO_COST_WEIGHTS |
wuwind (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1653 |
ECCO_COST_WEIGHTS |
if (wuwind(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1654 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1655 |
ECCO_COST_WEIGHTS |
& 1./wuwind(i,j,bi,bj)/wuwind(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1657 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1965 |
ECCO_COST_WEIGHTS |
call ACTIVE_WRITE_XY_LOC( 'wuwind', wuwind, 1, 0, mythid, dummy) |
|
./pkg/ecco/ecco_cost_weights.F |
916 |
ECCO_COST_WEIGHTS |
& nnz, wuwind, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
925 |
ECCO_COST_WEIGHTS |
if (wuwind(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
926 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
928 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = wuwind(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
929 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = max(wuwind(i,j,bi,bj),wwind0) |
|
./pkg/ecco/ecco_cost_weights.F |
930 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = wuwind(i,j,bi,bj)*maskc(i,j,k,bi,bj) |