| 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 |