Symbol Description Uses
ztop 6


File Line number Procedure Code
./pkg/ecco/cost_argo_theta.F 103 COST_ARGO_THETA 
      ztop  = -.981*1.027
./pkg/ecco/cost_argo_theta.F 174 COST_ARGO_THETA 
     $             argotobs(i,j,k,bi,bj),ztop*rc(k),rl_0)
./pkg/ecco/cost_argo_theta.F 65 COST_ARGO_THETA 
      _RL ztop,rl_35,rl_0
./pkg/ecco/cost_xbt.F 104 COST_XBT 
      ztop  = -.981*1.027
./pkg/ecco/cost_xbt.F 186 COST_XBT 
     $                   xbtobs(i,j,k,bi,bj),ztop*rc(k),rl_0)
./pkg/ecco/cost_xbt.F 67 COST_XBT 
      _RL ztop,rl_35,rl_0