| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_atlantic.F |
153 |
COST_ATLANTIC |
if(yc(i,j,bi,bj) .ge.ylat .and. |
|
./pkg/ecco/cost_atlantic.F |
154 |
COST_ATLANTIC |
$ yc(i,j,bi,bj).lt.ylat+del_y.and. |
|
./pkg/ecco/cost_atlantic.F |
200 |
COST_ATLANTIC |
if(yc(i,j,bi,bj) .ge.ylat .and. |
|
./pkg/ecco/cost_atlantic.F |
201 |
COST_ATLANTIC |
$ yc(i,j,bi,bj).lt.ylat+del_y.and. |
|
./pkg/ecco/cost_atlantic.F |
84 |
COST_ATLANTIC |
_RL ylat,beglon,endlon |
|
./pkg/ecco/cost_atlantic.F |
88 |
COST_ATLANTIC |
parameter(ylat= 29., beglon=282., endlon =352.) |
|
./pkg/ecco/cost_trans_merid.F |
156 |
COST_TRANS_MERID |
& 'ECCO_TRANS_MER_YLAT: section at lat: ', ylat(isect) |
|
./pkg/ecco/cost_trans_merid.F |
200 |
COST_TRANS_MERID |
if ( yc(i,j,bi,bj) .ge. ylat(isect) .and. |
|
./pkg/ecco/cost_trans_merid.F |
201 |
COST_TRANS_MERID |
$ yc(i,j,bi,bj) .lt. ylat(isect)+del_y .and. |
|
./pkg/ecco/cost_trans_merid.F |
80 |
COST_TRANS_MERID |
_RL ylat(nsect),beglon(nsect),endlon(nsect) |
|
./pkg/ecco/cost_trans_merid.F |
94 |
COST_TRANS_MERID |
DATA ylat / 26.5, 48.0, 65.0, 26.5, -30.0, -24.5, -7.5, |