| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/ggl90_calc.F |
557 |
GGL90_CALC |
tmpVisc= |
|
./pkg/ggl90/ggl90_calc.F |
580 |
GGL90_CALC |
tmpVisc = GGL90visctmp(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
582 |
GGL90_CALC |
tmpVisc = MIN(tmpVisc/TKEPrandtlNumber(i,j,k),GGL90diffMax) |
|
./pkg/ggl90/ggl90_calc.F |
583 |
GGL90_CALC |
GGL90diffKr(i,j,k,bi,bj)= MAX( tmpVisc , diffKrNrT(k) ) |
|
./pkg/ggl90/ggl90_calc.F |
592 |
GGL90_CALC |
tmpVisc = |
|
./pkg/ggl90/ggl90_calc.F |
610 |
GGL90_CALC |
tmpVisc = _maskW(i,j,k,bi,bj) * |
|
./pkg/ggl90/ggl90_calc.F |
615 |
GGL90_CALC |
tmpVisc = MIN( tmpVisc , GGL90viscMax ) |
|
./pkg/ggl90/ggl90_calc.F |
616 |
GGL90_CALC |
GGL90viscArU(i,j,k,bi,bj) = MAX( tmpVisc, viscArNr(k) ) |
|
./pkg/ggl90/ggl90_calc.F |
625 |
GGL90_CALC |
tmpVisc = |
|
./pkg/ggl90/ggl90_calc.F |
643 |
GGL90_CALC |
tmpVisc = _maskS(i,j,k,bi,bj) * |
|
./pkg/ggl90/ggl90_calc.F |
649 |
GGL90_CALC |
tmpVisc = MIN( tmpVisc , GGL90viscMax ) |
|
./pkg/ggl90/ggl90_calc.F |
650 |
GGL90_CALC |
GGL90viscArV(i,j,k,bi,bj) = MAX( tmpVisc, viscArNr(k) ) |
|
./pkg/ggl90/ggl90_calc.F |
90 |
GGL90_CALC |
_RL MaxLength, tmpmlx, tmpVisc |