Symbol Description Uses
locdayrec 9



File Line number Procedure Code
./pkg/ecco/cost_averagesfields.F 513 COST_AVERAGESFIELDS
       locdayrec = 0
./pkg/ecco/cost_averagesfields.F 515 COST_AVERAGESFIELDS
        locdayrec = dayrec
./pkg/ecco/cost_averagesfields.F 517 COST_AVERAGESFIELDS
        locdayrec = dayrec+1
./pkg/ecco/cost_averagesfields.F 522 COST_AVERAGESFIELDS
     &          transpbar(locdayrec,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesfields.F 529 COST_AVERAGESFIELDS
               transpbar(locdayrec,bi,bj) = transpbar(locdayrec,bi,bj)
./pkg/ecco/cost_averagesfields.F 537 COST_AVERAGESFIELDS
            transpbar(locdayrec,bi,bj) =
./pkg/ecco/cost_averagesfields.F 538 COST_AVERAGESFIELDS
     &        transpbar(locdayrec,bi,bj)/float(sum1day)
./pkg/ecco/cost_averagesfields.F 95 COST_AVERAGESFIELDS
      integer locdayrec