Symbol Description Uses
objf_ageos 7



File Line number Procedure Code
./pkg/ecco/ecco_cost_init_varia.F 238 ECCO_COST_INIT_VARIA
          objf_ageos(bi,bj)    = 0. _d 0
./pkg/ctrl/CTRL_OBCS.h 16 NO PROCEDURE
      _RL  objf_obcsvol, objf_ageos(nsx,nsy)
./pkg/ctrl/CTRL_OBCS.h 25 NO PROCEDURE
     &     objf_obcsvol, objf_ageos,
./pkg/ecco/cost_obcs_ageos.F 499 COST_OBCS_AGEOS
            objf_ageos(bi,bj) = objf_ageos(bi,bj) + fctile
./pkg/ecco/ecco_cost_final.F 504 ECCO_COST_FINAL
     &         + mult_ageos   * objf_ageos(bi,bj)
./pkg/ecco/ecco_cost_final.F 640 ECCO_COST_FINAL
          f_ageos  = f_ageos + objf_ageos(bi,bj)