| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_sigmar.F |
161 |
COST_SIGMAR |
& nr, sigmaRdat, levmon, mythid) |
|
./pkg/ecco/cost_sigmar.F |
174 |
COST_SIGMAR |
if (sigmaRdat(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/cost_sigmar.F |
176 |
COST_SIGMAR |
else if (sigmaRdat(i,j,k,bi,bj) .lt. spval) then |
|
./pkg/ecco/cost_sigmar.F |
178 |
COST_SIGMAR |
else if (sigmaRdat(i,j,k,bi,bj) .gt. spmax) then |
|
./pkg/ecco/cost_sigmar.F |
191 |
COST_SIGMAR |
& (sigmaRbar(i,j,k,bi,bj) - sigmaRdat(i,j,k,bi,bj))* |
|
./pkg/ecco/cost_sigmar.F |
192 |
COST_SIGMAR |
& (sigmaRbar(i,j,k,bi,bj) - sigmaRdat(i,j,k,bi,bj))) |
|
./pkg/ecco/ecco_cost.h |
1369 |
NO PROCEDURE |
& sigmaRdat, |
|
./pkg/ecco/ecco_cost.h |
1405 |
NO PROCEDURE |
_RL sigmaRdat (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |