Symbol Description Uses
tau2_temp 7


File Line number Procedure Code
./pkg/ecco/cost_tau_eddy.F 233 COST_TAU_EDDY 
           tau2_temp = ( rhonil*eddyPsiX(i,j,k,bi,bj)
./pkg/ecco/cost_tau_eddy.F 235 COST_TAU_EDDY 
           if ( tau2_temp .gt. tau2_max) then
./pkg/ecco/cost_tau_eddy.F 237 COST_TAU_EDDY 
     &               ( tau2_temp - tau2_max )
./pkg/ecco/cost_tau_eddy.F 239 COST_TAU_EDDY 
           tau2_temp = ( rhonil*eddyPsiY(i,j,k,bi,bj)
./pkg/ecco/cost_tau_eddy.F 241 COST_TAU_EDDY 
           if ( tau2_temp .gt. tau2_max) then
./pkg/ecco/cost_tau_eddy.F 243 COST_TAU_EDDY 
     &               ( tau2_temp - tau2_max )
./pkg/ecco/cost_tau_eddy.F 53 COST_TAU_EDDY 
      _RL     tau2_max, tau2_temp