| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_readscatyfields.F |
115 |
COST_READSCATYFIELDS |
& scatydat, imonth, mythid ) |
|
./pkg/ecco/cost_readscatyfields.F |
131 |
COST_READSCATYFIELDS |
if (scatydat(i,j,bi,bj) .lt. spval) then |
|
./pkg/ecco/cost_readscatyfields.F |
134 |
COST_READSCATYFIELDS |
if (scatydat(i,j,bi,bj) .eq. 0. _d 0 ) then |
|
./pkg/ecco/cost_readscatyfields.F |
138 |
COST_READSCATYFIELDS |
scatydat(i,j,bi,bj) = scatydat(i,j,bi,bj)* |
|
./pkg/ecco/cost_readscatyfields.F |
153 |
COST_READSCATYFIELDS |
vartile=vartile+scatydat(i,j,bi,bj)*scatydat(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost.h |
825 |
NO PROCEDURE |
& scatydat, |
|
./pkg/ecco/ecco_cost.h |
855 |
NO PROCEDURE |
_RL scatydat (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
|
./pkg/ecco/cost_scat.F |
156 |
COST_SCAT |
& ( (tauybar(i,j,bi,bj)+scatydat(i,j,bi,bj))* |
|
./pkg/ecco/cost_scat.F |
157 |
COST_SCAT |
& (tauybar(i,j,bi,bj)+scatydat(i,j,bi,bj))* |