| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_atlantic.F |
142 |
COST_ATLANTIC |
if(yc(i,j,bi,bj) .ge.ylat .and. |
|
./pkg/ecco/cost_atlantic.F |
143 |
COST_ATLANTIC |
$ yc(i,j,bi,bj).lt.ylat+del_y.and. |
|
./pkg/ecco/cost_atlantic.F |
185 |
COST_ATLANTIC |
if(yc(i,j,bi,bj) .ge.ylat .and. |
|
./pkg/ecco/cost_atlantic.F |
186 |
COST_ATLANTIC |
$ yc(i,j,bi,bj).lt.ylat+del_y.and. |
|
./pkg/ecco/cost_atlantic.F |
77 |
COST_ATLANTIC |
_RL ylat,beglon,endlon |
|
./pkg/ecco/cost_atlantic.F |
83 |
COST_ATLANTIC |
parameter(ylat= 66.75,beglon=-34.5,endlon =-22.5) |
|
./pkg/ecco/cost_trans_merid.F |
152 |
COST_TRANS_MERID |
& 'ECCO_TRANS_MER_YLAT: section at lat: ', ylat(isect) |
|
./pkg/ecco/cost_trans_merid.F |
196 |
COST_TRANS_MERID |
if ( yc(i,j,bi,bj) .ge. ylat(isect) .and. |
|
./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 |
76 |
COST_TRANS_MERID |
_RL ylat(nsect),beglon(nsect),endlon(nsect) |
|
./pkg/ecco/cost_trans_merid.F |
90 |
COST_TRANS_MERID |
DATA ylat / 26.5, 48.0, 65.0, 26.5, -30.0, -24.5, -7.5, |