Symbol Description Uses
fctile_argot 8


File Line number Procedure Code
./pkg/ecco/cost_argo_theta.F 155 COST_ARGO_THETA 
            fctile_argot = 0. _d 0
./pkg/ecco/cost_argo_theta.F 175 COST_ARGO_THETA 
                 fctile_argot = fctile_argot +
./pkg/ecco/cost_argo_theta.F 187 COST_ARGO_THETA 
            fcthread_argot    = fcthread_argot    + fctile_argot
./pkg/ecco/cost_argo_theta.F 188 COST_ARGO_THETA 
            objf_argot(bi,bj) = objf_argot(bi,bj) + fctile_argot
./pkg/ecco/cost_argo_theta.F 199 COST_ARGO_THETA 
     &        ' COST_ARGO_THETA: cost function         = ', fctile_argot
./pkg/ecco/cost_argo_theta.F 237 COST_ARGO_THETA 
      fctile_argot   = 0. _d 0
./pkg/ecco/cost_argo_theta.F 60 COST_ARGO_THETA 
      _RL fctile_argot