Symbol Description Uses
countU 6


File Line number Procedure Code
./pkg/cost/cost_atlantic_heat.F 148 COST_ATLANTIC_HEAT 
           countU(k) = 0.0
./pkg/cost/cost_atlantic_heat.F 164 COST_ATLANTIC_HEAT 
             countU(k) = countU(k) + maskW(i,j,k,bi,bj)
./pkg/cost/cost_atlantic_heat.F 173 COST_ATLANTIC_HEAT 
     &          countT(k) .NE. 0 .AND. countU(k) .NE. 0) then
./pkg/cost/cost_atlantic_heat.F 176 COST_ATLANTIC_HEAT 
     &            / ( countT(k) * countU(k) )
./pkg/cost/cost_atlantic_heat.F 38 COST_ATLANTIC_HEAT 
      _RL     countU(Nr), countV(Nr), countT(Nr)