| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_xbt.F |
147 |
COST_XBT |
call MDSREADFIELD( fnametmp, cost_iprec, 'RL', nr, xbtobs, |
|
./pkg/ecco/cost_xbt.F |
164 |
COST_XBT |
if ( xbtobs(i,j,k,bi,bj) .lt. spval .or. |
|
./pkg/ecco/cost_xbt.F |
165 |
COST_XBT |
& xbtobs(i,j,k,bi,bj) .gt. spmax .or. |
|
./pkg/ecco/cost_xbt.F |
166 |
COST_XBT |
& xbtobs(i,j,k,bi,bj) .eq. 0. ) then |
|
./pkg/ecco/cost_xbt.F |
185 |
COST_XBT |
$ xbtobs(i,j,k,bi,bj),ztop*rc(k),rl_0) |
|
./pkg/ecco/ecco_cost.h |
1242 |
NO PROCEDURE |
& xbtobs, |
|
./pkg/ecco/ecco_cost.h |
1273 |
NO PROCEDURE |
_RL xbtobs (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |