| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_atlantic.F |
141 |
COST_ATLANTIC |
del_y=yc(i,j,bi,bj)-yc(i,j-1,bi,bj) |
|
./pkg/ecco/cost_atlantic.F |
143 |
COST_ATLANTIC |
$ yc(i,j,bi,bj).lt.ylat+del_y.and. |
|
./pkg/ecco/cost_atlantic.F |
147 |
COST_ATLANTIC |
$ yc(i,j,bi,bj).lt.ylat2+del_y.and. |
|
./pkg/ecco/cost_atlantic.F |
151 |
COST_ATLANTIC |
$ yc(i,j,bi,bj).lt.ylat3+del_y.and. |
|
./pkg/ecco/cost_atlantic.F |
184 |
COST_ATLANTIC |
del_y=yc(i,j,bi,bj)-yc(i,j-1,bi,bj) |
|
./pkg/ecco/cost_atlantic.F |
186 |
COST_ATLANTIC |
$ yc(i,j,bi,bj).lt.ylat+del_y.and. |
|
./pkg/ecco/cost_atlantic.F |
190 |
COST_ATLANTIC |
$ yc(i,j,bi,bj).lt.ylat2+del_y.and. |
|
./pkg/ecco/cost_atlantic.F |
194 |
COST_ATLANTIC |
$ yc(i,j,bi,bj).lt.ylat3+del_y.and. |
|
./pkg/ecco/cost_atlantic.F |
75 |
COST_ATLANTIC |
_RL del_y |
|
./pkg/ecco/cost_trans_merid.F |
195 |
COST_TRANS_MERID |
del_y = yc(i,j,bi,bj)-yc(i,j-1,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
197 |
COST_TRANS_MERID |
$ yc(i,j,bi,bj) .lt. ylat(isect)+del_y .and. |
|
./pkg/ecco/cost_trans_merid.F |
68 |
COST_TRANS_MERID |
_RL del_y |