Symbol Description Uses
endlon 7



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