Symbol Description Uses
countT 6


File Line number Procedure Code
./pkg/cost/cost_atlantic_heat.F 147 COST_ATLANTIC_HEAT 
           countT(k) = 0.0
./pkg/cost/cost_atlantic_heat.F 162 COST_ATLANTIC_HEAT 
             countT(k) = countT(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)