| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/ggl90_calc.F |
685 |
GGL90_CALC |
tmpVisc = ( |
|
./pkg/ggl90/ggl90_calc.F |
707 |
GGL90_CALC |
tmpVisc = GGL90visctmp(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
709 |
GGL90_CALC |
tmpVisc = MIN(tmpVisc/TKEPrandtlNumber(i,j,k),GGL90diffMax) |
|
./pkg/ggl90/ggl90_calc.F |
710 |
GGL90_CALC |
GGL90diffKr(i,j,k,bi,bj)= MAX( tmpVisc , diffKrNrS(k) ) |
|
./pkg/ggl90/ggl90_calc.F |
719 |
GGL90_CALC |
tmpVisc = ( |
|
./pkg/ggl90/ggl90_calc.F |
735 |
GGL90_CALC |
tmpVisc = _maskW(i,j,k,bi,bj) * halfRL |
|
./pkg/ggl90/ggl90_calc.F |
739 |
GGL90_CALC |
tmpVisc = MIN( tmpVisc , GGL90viscMax ) |
|
./pkg/ggl90/ggl90_calc.F |
740 |
GGL90_CALC |
GGL90viscArU(i,j,k,bi,bj) = MAX( tmpVisc, viscArNr(k) ) |
|
./pkg/ggl90/ggl90_calc.F |
749 |
GGL90_CALC |
tmpVisc = ( |
|
./pkg/ggl90/ggl90_calc.F |
765 |
GGL90_CALC |
tmpVisc = _maskS(i,j,k,bi,bj) * halfRL |
|
./pkg/ggl90/ggl90_calc.F |
769 |
GGL90_CALC |
tmpVisc = MIN( tmpVisc , GGL90viscMax ) |
|
./pkg/ggl90/ggl90_calc.F |
770 |
GGL90_CALC |
GGL90viscArV(i,j,k,bi,bj) = MAX( tmpVisc, viscArNr(k) ) |
|
./pkg/ggl90/ggl90_calc.F |
95 |
GGL90_CALC |
_RL MaxLength, tmpmlx, tmpVisc |