File |
Line number |
Procedure |
Code |
./pkg/ecco/ecco_cost_weights.F |
1163 |
ECCO_COST_WEIGHTS |
& nnz, wsflux, irec, mythid ) |
./pkg/ecco/ecco_cost_weights.F |
1171 |
ECCO_COST_WEIGHTS |
if (wsflux(i,j,bi,bj) .lt. -9900.) then |
./pkg/ecco/ecco_cost_weights.F |
1172 |
ECCO_COST_WEIGHTS |
wsflux(i,j,bi,bj) = 0. _d 0 |
./pkg/ecco/ecco_cost_weights.F |
1175 |
ECCO_COST_WEIGHTS |
wsflux(i,j,bi,bj) = wsflux(i,j,bi,bj) / 3. |
./pkg/ecco/ecco_cost_weights.F |
1176 |
ECCO_COST_WEIGHTS |
wsflux(i,j,bi,bj) = max(wsflux(i,j,bi,bj),wsflux0) |
./pkg/ecco/ecco_cost_weights.F |
131 |
ECCO_COST_WEIGHTS |
wsflux (i,j,bi,bj) = 0. _d 0 |
./pkg/ecco/ecco_cost_weights.F |
1768 |
ECCO_COST_WEIGHTS |
if (wsflux(i,j,bi,bj) .ne. 0.) then |
./pkg/ecco/ecco_cost_weights.F |
1769 |
ECCO_COST_WEIGHTS |
wsflux(i,j,bi,bj) = |
./pkg/ecco/ecco_cost_weights.F |
1770 |
ECCO_COST_WEIGHTS |
& 1./wsflux(i,j,bi,bj)/wsflux(i,j,bi,bj) |
./pkg/ecco/ecco_cost_weights.F |
1772 |
ECCO_COST_WEIGHTS |
wsflux(i,j,bi,bj) = 0.0 _d 0 |
./pkg/ecco/ecco_cost_weights.F |
2047 |
ECCO_COST_WEIGHTS |
call ACTIVE_WRITE_XY_LOC( 'wsflux', wsflux, 1, 0, mythid, dummy) |
./pkg/exf/exf_getsurfacefluxes.F |
150 |
EXF_GETSURFACEFLUXES |
& wsflux, mytime, myiter, mythid ) |
./pkg/smooth/smooth_correl2dw.F |
71 |
SMOOTH_CORREL2DW |
tmpW=wsflux(i,j,bi,bj) |
./pkg/ctrl/ctrl.h |
252 |
NO PROCEDURE |
& wsflux, |
./pkg/ctrl/ctrl.h |
271 |
NO PROCEDURE |
_RL wsflux (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
./pkg/ctrl/ctrl_init.F |
954 |
CTRL_INIT |
wsflux (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
./pkg/ecco/cost_forcing.F |
124 |
COST_FORCING |
& wsflux, dodimensionalcost2D, |
./pkg/ecco/ecco_cost.h |
1007 |
NO PROCEDURE |
_RL wsflux (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
./pkg/ecco/ecco_cost.h |
977 |
NO PROCEDURE |
& whflux,wsflux,wtauu,wtauv, |