Symbol Description Uses
locfc 19


File Line number Procedure Code
./pkg/ecco/cost_tau_eddy.F 37 COST_TAU_EDDY 
      _RL     locfc
./pkg/ecco/cost_tau_eddy.F 46 COST_TAU_EDDY 
      locfc = 0.0
./pkg/ecco/cost_tau_eddy.F 66 COST_TAU_EDDY 
               locfc = locfc + maskW(i,j,k,bi,bj)*
./pkg/ecco/cost_tau_eddy.F 71 COST_TAU_EDDY 
               locfc = locfc + maskS(i,j,k,bi,bj)*
./pkg/ecco/cost_tau_eddy.F 78 COST_TAU_EDDY 
      objf_eddytau(bi,bj) = locfc
./pkg/ecco/cost_tau_eddy.F 79 COST_TAU_EDDY 
      print*,'objf_eddytau =',locfc
./pkg/cost/cost_tracer.F 41 COST_TRACER 
      _RL locfc
./pkg/cost/cost_tracer.F 48 COST_TRACER 
      locfc = 0. _d 0
./pkg/cost/cost_tracer.F 54 COST_TRACER 
            locfc = locfc + maskC(i,j,k,bi,bj)*
./pkg/cost/cost_tracer.F 61 COST_TRACER 
      objf_tracer(bi,bj) = objf_tracer(bi,bj) + locfc
./pkg/cost/cost_vector.F 33 COST_VECTOR 
      _RL     locfc
./pkg/cost/cost_vector.F 57 COST_VECTOR 
        locfc = 0.0
./pkg/cost/cost_atlantic_heat.F 33 COST_ATLANTIC_HEAT 
      _RL     locfc
./pkg/cost/cost_atlantic_heat.F 60 COST_ATLANTIC_HEAT 
        locfc = 0.0
./pkg/cost/cost_atlantic_heat.F 79 COST_ATLANTIC_HEAT 
          locfc = locfc + sum*dxG(i,j,bi,bj)