File |
Line number |
Procedure |
Code |
./pkg/ecco/cost_readargos.F |
84 |
COST_READARGOS |
& argosobs,argosrec, mythid ) |
./pkg/ecco/cost_readargos.F |
91 |
COST_READARGOS |
argosobs(i,j,k,bi,bj)=spval |
./pkg/ecco/cost_argo_salt.F |
141 |
COST_ARGO_SALT |
call MDSREADFIELD( fnametmp, cost_iprec, 'RL', nr, argosobs, |
./pkg/ecco/cost_argo_salt.F |
163 |
COST_ARGO_SALT |
if ( (argosobs(i,j,k,bi,bj) .ge. spval) .and. |
./pkg/ecco/cost_argo_salt.F |
164 |
COST_ARGO_SALT |
$ (argosobs(i,j,k,bi,bj) .lt. spmax) .and. |
./pkg/ecco/cost_argo_salt.F |
169 |
COST_ARGO_SALT |
& (sbar(i,j,k,bi,bj)-argosobs(i,j,k,bi,bj))* |
./pkg/ecco/cost_argo_salt.F |
170 |
COST_ARGO_SALT |
& (sbar(i,j,k,bi,bj)-argosobs(i,j,k,bi,bj)) |
./pkg/ecco/ecco_cost.h |
847 |
NO PROCEDURE |
& argosobs, |
./pkg/ecco/ecco_cost.h |
877 |
NO PROCEDURE |
_RL argosobs (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |