Symbol Description Uses
countV 6


File Line number Procedure Code
./pkg/cost/cost_atlantic_heat.F 111 COST_ATLANTIC_HEAT 
             countV(k) = countV(k) +
./pkg/cost/cost_atlantic_heat.F 120 COST_ATLANTIC_HEAT 
           if ( k .LE. kmaxdepth .AND. countV(k) .NE. 0) then
./pkg/cost/cost_atlantic_heat.F 122 COST_ATLANTIC_HEAT 
     &            + vVel_bar(k)*drF(k)/countV(k)
./pkg/cost/cost_atlantic_heat.F 38 COST_ATLANTIC_HEAT 
      _RL     countU(Nr), countV(Nr), countT(Nr)
./pkg/cost/cost_atlantic_heat.F 95 COST_ATLANTIC_HEAT 
           countV(k) = 0.0