| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_ctds.F |
141 |
COST_CTDS |
call MDSREADFIELD( fnametmp, cost_iprec, 'RL', nr, ctdsobs, |
|
./pkg/ecco/cost_ctds.F |
158 |
COST_CTDS |
if (ctdsobs(i,j,k,bi,bj) .lt. spval .or. |
|
./pkg/ecco/cost_ctds.F |
159 |
COST_CTDS |
& ctdsobs(i,j,k,bi,bj) .gt. spmax .or. |
|
./pkg/ecco/cost_ctds.F |
160 |
COST_CTDS |
& ctdsobs(i,j,k,bi,bj) .eq. 0. ) then |
|
./pkg/ecco/cost_ctds.F |
167 |
COST_CTDS |
tmpobs(i,j) = ctdsobs(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost.h |
1241 |
NO PROCEDURE |
& ctdsobs, |
|
./pkg/ecco/ecco_cost.h |
1272 |
NO PROCEDURE |
_RL ctdsobs (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |