Symbol Description Uses
endlon 7



File Line number Procedure Code
./pkg/ecco/cost_atlantic.F 156 COST_ATLANTIC
     $                  xc(i,j,bi,bj).le.endlon.or.
./pkg/ecco/cost_atlantic.F 203 COST_ATLANTIC
     $                  xc(i,j,bi,bj).le.endlon.or.
./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 203 COST_TRANS_MERID
     $                   xc(i,j,bi,bj) .le. endlon(isect) ) then
./pkg/ecco/cost_trans_merid.F 80 COST_TRANS_MERID
      _RL ylat(nsect),beglon(nsect),endlon(nsect)
./pkg/ecco/cost_trans_merid.F 98 COST_TRANS_MERID
      DATA endlon / 347.5, 357.5, 340.0, 285.5, 116.0,  45.0, 115.0,