Symbol Description Uses
countTV 6


File Line number Procedure Code
./pkg/cost/cost_atlantic_heat.F 109 COST_ATLANTIC_HEAT 
             countTV(k) = countTV(k) +
./pkg/cost/cost_atlantic_heat.F 125 COST_ATLANTIC_HEAT 
           if ( k .LE. kmaxdepth .AND. countTV(k) .NE. 0) then
./pkg/cost/cost_atlantic_heat.F 127 COST_ATLANTIC_HEAT 
     &            + thetaVVel_bar(k)*drF(k)/countTV(k)
./pkg/cost/cost_atlantic_heat.F 39 COST_ATLANTIC_HEAT 
      _RL     countTU(Nr), countTV(Nr)
./pkg/cost/cost_atlantic_heat.F 96 COST_ATLANTIC_HEAT 
           countTV(k) = 0.0