Symbol Description Uses
objf_atl 13


File Line number Procedure Code
./pkg/ecco/ecco_cost_final.F 215 ECCO_COST_FINAL 
     &            + mult_atl     * objf_atl(bi,bj)
./pkg/ecco/ecco_cost_final.F 270 ECCO_COST_FINAL 
          f_atl  = f_atl + objf_atl(bi,bj)
./pkg/ecco/cost_atlantic.F 163 COST_ATLANTIC 
            objf_atl(bi,bj) = tv
./pkg/ecco/cost_atlantic.F 172 COST_ATLANTIC 
                    objf_atl(bi,bj) = (objf_atl(bi,bj)
./pkg/ecco/cost_atlantic.F 207 COST_ATLANTIC 
            objf_atl(bi,bj)  =  objf_atl(bi,bj) +tv
./pkg/cost/cost.h 40 NO PROCEDURE 
     &                objf_atl,
./pkg/cost/cost.h 47 NO PROCEDURE 
      _RL  objf_atl  (nsx,nsy)
./pkg/cost/cost_final.F 81 COST_FINAL 
     &         ' --> objf_atl(bi,bj)    = ', objf_atl(bi,bj)
./pkg/cost/cost_final.F 86 COST_FINAL 
     &            + mult_atl    * objf_atl(bi,bj)
./pkg/cost/cost_atlantic_heat.F 174 COST_ATLANTIC_HEAT 
        objf_atl(bi,bj) =
./pkg/cost/cost_initvaria.F 56 COST_INITVARIA 
          objf_atl(bi,bj)  = 0. _d 0