Symbol Description Uses
tau2_temp 7



File Line number Procedure Code
./pkg/ecco/cost_tau_eddy.F 37 COST_TAU_EDDY
      _RL     tau2_max, tau2_temp
./pkg/ecco/cost_tau_eddy.F 66 COST_TAU_EDDY
           tau2_temp = (rhonil*Eddytaux(i,j,k,bi,bj))**2
./pkg/ecco/cost_tau_eddy.F 67 COST_TAU_EDDY
           if ( tau2_temp .gt. tau2_max) then
./pkg/ecco/cost_tau_eddy.F 69 COST_TAU_EDDY
     &               ( tau2_temp - tau2_max )
./pkg/ecco/cost_tau_eddy.F 71 COST_TAU_EDDY
           tau2_temp = (rhonil*Eddytauy(i,j,k,bi,bj))**2
./pkg/ecco/cost_tau_eddy.F 72 COST_TAU_EDDY
           if ( tau2_temp .gt. tau2_max) then
./pkg/ecco/cost_tau_eddy.F 74 COST_TAU_EDDY
     &               ( tau2_temp - tau2_max )