Symbol Description Uses
objf_atl 14


File Line number Procedure Code
./pkg/cost/cost.h 42 NO PROCEDURE 
     &                objf_atl,
./pkg/cost/cost.h 59 NO PROCEDURE 
      _RL  objf_atl  (nsx,nsy)
./pkg/cost/cost_atlantic_heat.F 186 COST_ATLANTIC_HEAT 
        objf_atl(bi,bj) =
./pkg/cost/cost_atlantic_heat.F 189 COST_ATLANTIC_HEAT 
        objf_atl(bi,bj) =
./pkg/cost/cost_final.F 102 COST_FINAL 
     &         ' --> objf_atl(bi,bj)    = ', objf_atl(bi,bj)
./pkg/cost/cost_final.F 123 COST_FINAL 
     &            + mult_atl    * objf_atl(bi,bj)
./pkg/cost/cost_init_varia.F 57 COST_INIT_VARIA 
          objf_atl(bi,bj)  = 0. _d 0
./pkg/ecco/cost_atlantic.F 169 COST_ATLANTIC 
            objf_atl(bi,bj) = tv
./pkg/ecco/cost_atlantic.F 178 COST_ATLANTIC 
                    objf_atl(bi,bj) = (objf_atl(bi,bj)
./pkg/ecco/cost_atlantic.F 213 COST_ATLANTIC 
            objf_atl(bi,bj)  =  objf_atl(bi,bj) +tv
./pkg/ecco/ecco_cost_final.F 348 ECCO_COST_FINAL 
     &         + mult_atl     * objf_atl(bi,bj)
./pkg/ecco/ecco_cost_final.F 466 ECCO_COST_FINAL 
          f_atl  = f_atl + objf_atl(bi,bj)