| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/ggl90_readparms.F |
130 |
GGL90_READPARMS |
IF ( GGL90viscMax .LE. 0. ) THEN |
|
./pkg/ggl90/ggl90_readparms.F |
178 |
GGL90_READPARMS |
CALL WRITE_0D_R8( GGL90viscMax, INDEX_NONE,'GGL90viscMax =', |
|
./pkg/ggl90/ggl90_readparms.F |
43 |
GGL90_READPARMS |
& GGL90mixingLengthMin, GGL90viscMax, GGL90diffMax, |
|
./pkg/ggl90/ggl90_readparms.F |
71 |
GGL90_READPARMS |
GGL90viscMax = 1.0 _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
374 |
GGL90_CALC |
GGL90viscAr(I,J,K,bi,bj) = MIN(KappaM,GGL90viscMax) |
|
./pkg/ggl90/GGL90.h |
65 |
NO PROCEDURE |
_RL GGL90viscMax, GGL90diffMax |
|
./pkg/ggl90/GGL90.h |
73 |
NO PROCEDURE |
& GGL90viscMax, GGL90diffMax, |