Symbol Description Uses
wmean_gen 4


File Line number Procedure Code
./pkg/ecco/cost_forcing_gen.F 15 COST_FORCING_GEN 
     I                       wmean_gen,
./pkg/ecco/cost_forcing_gen.F 173 COST_FORCING_GEN 
      if ( wmean_gen .NE. 0. ) then
./pkg/ecco/cost_forcing_gen.F 183 COST_FORCING_GEN 
            tmpx = xx_mean(i,j,bi,bj)/wmean_gen
./pkg/ecco/cost_forcing_gen.F 61 COST_FORCING_GEN 
      _RL wmean_gen