Symbol Description Uses
countU 6


File Line number Procedure Code
./pkg/cost/cost_atlantic_heat.F 137 COST_ATLANTIC_HEAT 
           countU(k) = 0.0
./pkg/cost/cost_atlantic_heat.F 153 COST_ATLANTIC_HEAT 
             countU(k) = countU(k) + maskW(i,j,k,bi,bj)
./pkg/cost/cost_atlantic_heat.F 162 COST_ATLANTIC_HEAT 
     &          countT(k) .NE. 0 .AND. countU(k) .NE. 0) then
./pkg/cost/cost_atlantic_heat.F 165 COST_ATLANTIC_HEAT 
     &            / ( countT(k) * countU(k) )
./pkg/cost/cost_atlantic_heat.F 35 COST_ATLANTIC_HEAT 
      _RL     countU(Nr), countV(Nr), countT(Nr)