Symbol Description Uses
gencost_wei1d 9


File Line number Procedure Code
./pkg/ecco/ecco_readparms.F 194 ECCO_READPARMS 
     &         gencost_wei1d,
./pkg/ecco/ecco_readparms.F 606 ECCO_READPARMS 
         gencost_wei1d(k)      = 0. _d 0
./pkg/ecco/cost_gencost_glbmean.F 105 COST_GENCOST_GLBMEAN 
      locw   = gencost_wei1d(kgen)
./pkg/ecco/ecco.h 238 NO PROCEDURE 
     &       gencost_wei1d, gencost_1ddata
./pkg/ecco/ecco.h 278 NO PROCEDURE 
      _RL gencost_wei1d(NGENCOST)
./pkg/ecco/ecco_cost_init_fixed.F 245 ECCO_COST_INIT_FIXED 
      if(gencost_wei1d(k).NE.0. _d 0)then
./pkg/ecco/ecco_cost_init_fixed.F 246 ECCO_COST_INIT_FIXED 
        gencost_wei1d(k) = 1. _d 0 / gencost_wei1d(k)
./pkg/ecco/ecco_cost_init_fixed.F 247 ECCO_COST_INIT_FIXED 
     &      /gencost_wei1d(k)