Symbol Description Uses
csmm 6


File Line number Procedure Code
./pkg/ecco/cost_averagesfields.F 138 COST_AVERAGESFIELDS 
      _RL csmm(1-Olx:sNx+Olx,1-Oly:sNy+Oly,nr,nsx,nsy)
./pkg/ecco/cost_averagesfields.F 612 COST_AVERAGESFIELDS 
                 csmm(i,j,k,bi,bj) = 0.0
./pkg/ecco/cost_averagesfields.F 649 COST_AVERAGESFIELDS 
                  csmm(i,j,k,bi,bj) = c0mm+vtmm+vsmm+vpmm+vstpmm
./pkg/ecco/cost_averagesfields.F 662 COST_AVERAGESFIELDS 
                  if (csmm(i,j,k,bi,bj).ne.0.0) then
./pkg/ecco/cost_averagesfields.F 665 COST_AVERAGESFIELDS 
     &                              /csmm(i,j,k,bi,bj)
./pkg/ecco/cost_averagesfields.F 669 COST_AVERAGESFIELDS 
     &                              /csmm(i,j,k,bi,bj)