Symbol Description Uses
offset_sum 8


File Line number Procedure Code
./pkg/ecco/cost_ssh.F 158 COST_SSH 
      offset_sum = 0. _d 0
./pkg/ecco/cost_ssh.F 168 COST_SSH 
              offset_sum = offset_sum +
./pkg/ecco/cost_ssh.F 177 COST_SSH 
      _GLOBAL_SUM_R8( offset_sum , mythid )
./pkg/ecco/cost_ssh.F 179 COST_SSH 
      if (offset_sum .eq. 0.0) then
./pkg/ecco/cost_ssh.F 189 COST_SSH 
     &  	' cost_ssh: offset_sum = ',offset_sum
./pkg/ecco/cost_ssh.F 195 COST_SSH 
      offset = offset / offset_sum
./pkg/ecco/cost_ssh.F 72 COST_SSH 
      _RL offset_sum