| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_atlantic.F |
147 |
COST_ATLANTIC |
del_y=yc(i,j,bi,bj)-yc(i,j-1,bi,bj) |
|
./pkg/ecco/cost_atlantic.F |
149 |
COST_ATLANTIC |
$ yc(i,j,bi,bj).lt.ylat+del_y.and. |
|
./pkg/ecco/cost_atlantic.F |
153 |
COST_ATLANTIC |
$ yc(i,j,bi,bj).lt.ylat2+del_y.and. |
|
./pkg/ecco/cost_atlantic.F |
157 |
COST_ATLANTIC |
$ yc(i,j,bi,bj).lt.ylat3+del_y.and. |
|
./pkg/ecco/cost_atlantic.F |
190 |
COST_ATLANTIC |
del_y=yc(i,j,bi,bj)-yc(i,j-1,bi,bj) |
|
./pkg/ecco/cost_atlantic.F |
192 |
COST_ATLANTIC |
$ yc(i,j,bi,bj).lt.ylat+del_y.and. |
|
./pkg/ecco/cost_atlantic.F |
196 |
COST_ATLANTIC |
$ yc(i,j,bi,bj).lt.ylat2+del_y.and. |
|
./pkg/ecco/cost_atlantic.F |
200 |
COST_ATLANTIC |
$ yc(i,j,bi,bj).lt.ylat3+del_y.and. |
|
./pkg/ecco/cost_atlantic.F |
79 |
COST_ATLANTIC |
_RL del_y |
|
./pkg/ecco/cost_trans_merid.F |
196 |
COST_TRANS_MERID |
del_y = yc(i,j,bi,bj)-yc(i,j-1,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
198 |
COST_TRANS_MERID |
$ yc(i,j,bi,bj) .lt. ylat(isect)+del_y .and. |
|
./pkg/ecco/cost_trans_merid.F |
69 |
COST_TRANS_MERID |
_RL del_y |