File |
Line number |
Procedure |
Code |
./pkg/ecco/ecco_cost_weights.F |
1669 |
ECCO_COST_WEIGHTS |
& wuvel3d, 1, mythid) |
./pkg/ecco/ecco_cost_weights.F |
1678 |
ECCO_COST_WEIGHTS |
if ( wuvel3d(i,j,k,bi,bj).eq.0 ) then |
./pkg/ecco/ecco_cost_weights.F |
1679 |
ECCO_COST_WEIGHTS |
wuvel3d(i,j,k,bi,bj) = 0. _d 0 |
./pkg/ecco/ecco_cost_weights.F |
1681 |
ECCO_COST_WEIGHTS |
wuvel3d(i,j,k,bi,bj)=frame(i,j)*maskW(i,j,k,bi,bj)/ |
./pkg/ecco/ecco_cost_weights.F |
1682 |
ECCO_COST_WEIGHTS |
$ ( wuvel3d(i,j,k,bi,bj)*wuvel3d(i,j,k,bi,bj) ) |
./pkg/ecco/ecco_cost_weights.F |
1696 |
ECCO_COST_WEIGHTS |
call ACTIVE_WRITE_XYZ( 'wuvel', wuvel3d, |
./pkg/ecco/ecco_cost_weights.F |
1700 |
ECCO_COST_WEIGHTS |
_EXCH_XYZ_RL( wuvel3d, myThid ) |
./pkg/ecco/ecco_cost_weights.F |
205 |
ECCO_COST_WEIGHTS |
wuvel3d(i,j,k,bi,bj) = 0. _d 0 |
./pkg/ecco/cost_hyd.F |
379 |
COST_HYD |
& xx_uvel_file,xx_uvel_dummy, wuvel3d, dodimensionalcost3D, |
./pkg/ecco/ecco_cost.h |
1083 |
NO PROCEDURE |
& wuvel3d, wvvel3d |
./pkg/ecco/ecco_cost.h |
1085 |
NO PROCEDURE |
_RL wuvel3d(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |