Symbol Description Uses
objf_atl 10


File Line number Procedure Code
./pkg/ecco/ecco_cost_init_varia.F 145 ECCO_COST_INIT_VARIA 
          objf_atl(bi,bj)      = 0. _d 0
./pkg/cost/cost.h 47 NO PROCEDURE 
     &                objf_atl,
./pkg/cost/cost.h 64 NO PROCEDURE 
      _RL  objf_atl  (nsx,nsy)
./pkg/cost/cost_atlantic_heat.F 188 COST_ATLANTIC_HEAT 
        objf_atl(bi,bj) =
./pkg/cost/cost_atlantic_heat.F 191 COST_ATLANTIC_HEAT 
        objf_atl(bi,bj) =
./pkg/cost/cost_final.F 127 COST_FINAL 
     &         ' --> objf_atl(bi,bj)    = ', objf_atl(bi,bj)
./pkg/cost/cost_final.F 152 COST_FINAL 
     &            + mult_atl    * objf_atl(bi,bj)
./pkg/cost/cost_init_varia.F 58 COST_INIT_VARIA 
          objf_atl(bi,bj)  = 0. _d 0
./pkg/ecco/ecco_cost_final.F 451 ECCO_COST_FINAL 
     &         + mult_atl     * objf_atl(bi,bj)
./pkg/ecco/ecco_cost_final.F 607 ECCO_COST_FINAL 
          f_atl  = f_atl + objf_atl(bi,bj)