Symbol Description Uses
sphcost 7


File Line number Procedure Code
./pkg/ecco/cost_geoid.F 115 COST_GEOID 
         sphcost = sphcost + factor*shc(j)
./pkg/ecco/cost_geoid.F 120 COST_GEOID 
      _GLOBAL_SUM_RL( sphcost, mythid )
./pkg/ecco/cost_geoid.F 123 COST_GEOID 
      sphcost = 0.
./pkg/ecco/cost_geoid.F 52 COST_GEOID 
      _RL     sphcost
./pkg/ecco/cost_geoid.F 7 COST_GEOID 
     O                     sphcost,
./pkg/ecco/cost_geoid.F 81 COST_GEOID 
      sphcost = 0. _d 0