| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/ggl90_readparms.F |
108 |
GGL90_READPARMS |
IF ( GGL90TKEbottom .EQ. UNSET_RL ) THEN |
|
./pkg/ggl90/ggl90_readparms.F |
109 |
GGL90_READPARMS |
GGL90TKEbottom = GGL90TKEmin |
|
./pkg/ggl90/ggl90_readparms.F |
117 |
GGL90_READPARMS |
IF ( GGL90TKEbottom .LT. 0. ) THEN |
|
./pkg/ggl90/ggl90_readparms.F |
39 |
GGL90_READPARMS |
& GGL90TKEmin, GGL90TKEbottom, |
|
./pkg/ggl90/ggl90_readparms.F |
64 |
GGL90_READPARMS |
GGL90TKEbottom = UNSET_RL |
|
./pkg/ggl90/GGL90.h |
62 |
NO PROCEDURE |
_RL GGL90TKEmin, GGL90TKEbottom |
|
./pkg/ggl90/GGL90.h |
70 |
NO PROCEDURE |
& GGL90TKEmin, GGL90TKEbottom, |
|
./pkg/ggl90/ggl90_calc.F |
332 |
GGL90_CALC |
& - GGL90TKEbottom*c(I,J,kBottom) |