| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/ggl90_calc.F |
558 |
GGL90_CALC |
tmpVisc= |
|
./pkg/ggl90/ggl90_calc.F |
581 |
GGL90_CALC |
tmpVisc = GGL90visctmp(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
583 |
GGL90_CALC |
tmpVisc = MIN(tmpVisc/TKEPrandtlNumber(i,j,k),GGL90diffMax) |
|
./pkg/ggl90/ggl90_calc.F |
584 |
GGL90_CALC |
GGL90diffKr(i,j,k,bi,bj)= MAX( tmpVisc , diffKrNrT(k) ) |
|
./pkg/ggl90/ggl90_calc.F |
593 |
GGL90_CALC |
tmpVisc = |
|
./pkg/ggl90/ggl90_calc.F |
611 |
GGL90_CALC |
tmpVisc = _maskW(i,j,k,bi,bj) * |
|
./pkg/ggl90/ggl90_calc.F |
616 |
GGL90_CALC |
tmpVisc = MIN( tmpVisc , GGL90viscMax ) |
|
./pkg/ggl90/ggl90_calc.F |
617 |
GGL90_CALC |
GGL90viscArU(i,j,k,bi,bj) = MAX( tmpVisc, viscArNr(k) ) |
|
./pkg/ggl90/ggl90_calc.F |
626 |
GGL90_CALC |
tmpVisc = |
|
./pkg/ggl90/ggl90_calc.F |
644 |
GGL90_CALC |
tmpVisc = _maskS(i,j,k,bi,bj) * |
|
./pkg/ggl90/ggl90_calc.F |
650 |
GGL90_CALC |
tmpVisc = MIN( tmpVisc , GGL90viscMax ) |
|
./pkg/ggl90/ggl90_calc.F |
651 |
GGL90_CALC |
GGL90viscArV(i,j,k,bi,bj) = MAX( tmpVisc, viscArNr(k) ) |
|
./pkg/ggl90/ggl90_calc.F |
91 |
GGL90_CALC |
_RL MaxLength, tmpmlx, tmpVisc |