Symbol Description Uses
sphcost 7


File Line number Procedure Code
./pkg/ecco/cost_geoid.F 114 COST_GEOID 
         sphcost = sphcost + factor*shc(j)
./pkg/ecco/cost_geoid.F 119 COST_GEOID 
      call GLOBAL_SUM_R8( sphcost, mythid )
./pkg/ecco/cost_geoid.F 122 COST_GEOID 
      sphcost = 0.
./pkg/ecco/cost_geoid.F 51 COST_GEOID 
      _RL     sphcost
./pkg/ecco/cost_geoid.F 6 COST_GEOID 
     O                     sphcost,
./pkg/ecco/cost_geoid.F 80 COST_GEOID 
      sphcost = 0. _d 0