| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_atlantic.F |
146 |
COST_ATLANTIC |
$ (yc(i,j,bi,bj) .ge.ylat2 .and. |
|
./pkg/ecco/cost_atlantic.F |
147 |
COST_ATLANTIC |
$ yc(i,j,bi,bj).lt.ylat2+del_y.and. |
|
./pkg/ecco/cost_atlantic.F |
189 |
COST_ATLANTIC |
$ (yc(i,j,bi,bj) .ge.ylat2 .and. |
|
./pkg/ecco/cost_atlantic.F |
190 |
COST_ATLANTIC |
$ yc(i,j,bi,bj).lt.ylat2+del_y.and. |
|
./pkg/ecco/cost_atlantic.F |
78 |
COST_ATLANTIC |
_RL ylat2,beglon2,endlon2 |
|
./pkg/ecco/cost_atlantic.F |
84 |
COST_ATLANTIC |
parameter(ylat2= 63.8,beglon2=-20,endlon2 =-5.) |