Symbol Description Uses
tau2_max 6


File Line number Procedure Code
./pkg/ecco/cost_tau_eddy.F 38 COST_TAU_EDDY 
      _RL     tau2_max, tau2_temp
./pkg/ecco/cost_tau_eddy.F 45 COST_TAU_EDDY 
      tau2_max = 0.4**2
./pkg/ecco/cost_tau_eddy.F 65 COST_TAU_EDDY 
            if ( tau2_temp .gt. tau2_max) then
./pkg/ecco/cost_tau_eddy.F 67 COST_TAU_EDDY 
     &                 ( tau2_temp - tau2_max )
./pkg/ecco/cost_tau_eddy.F 70 COST_TAU_EDDY 
            if ( tau2_temp .gt. tau2_max) then
./pkg/ecco/cost_tau_eddy.F 72 COST_TAU_EDDY 
     &                 ( tau2_temp - tau2_max )