Symbol Description Uses
ztop 6


File Line number Procedure Code
./pkg/ecco/cost_argo_theta.F 102 COST_ARGO_THETA 
      ztop  = -.981*1.027
./pkg/ecco/cost_argo_theta.F 173 COST_ARGO_THETA 
     $             argotobs(i,j,k,bi,bj),ztop*rc(k),rl_0)
./pkg/ecco/cost_argo_theta.F 64 COST_ARGO_THETA 
      _RL ztop,rl_35,rl_0
./pkg/ecco/cost_xbt.F 103 COST_XBT 
      ztop  = -.981*1.027
./pkg/ecco/cost_xbt.F 185 COST_XBT 
     $                   xbtobs(i,j,k,bi,bj),ztop*rc(k),rl_0)
./pkg/ecco/cost_xbt.F 66 COST_XBT 
      _RL ztop,rl_35,rl_0