| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/ggl90_readparms.F |
109 |
GGL90_READPARMS |
IF ( GGL90TKEbottom .EQ. UNSET_RL ) THEN |
|
./pkg/ggl90/ggl90_readparms.F |
110 |
GGL90_READPARMS |
GGL90TKEbottom = GGL90TKEmin |
|
./pkg/ggl90/ggl90_readparms.F |
118 |
GGL90_READPARMS |
IF ( GGL90TKEbottom .LT. 0. ) THEN |
|
./pkg/ggl90/ggl90_readparms.F |
175 |
GGL90_READPARMS |
CALL WRITE_0D_R8( GGL90TKEbottom, INDEX_NONE, |
|
./pkg/ggl90/ggl90_readparms.F |
42 |
GGL90_READPARMS |
& GGL90TKEmin, GGL90TKEsurfMin, GGL90TKEbottom, |
|
./pkg/ggl90/ggl90_readparms.F |
70 |
GGL90_READPARMS |
GGL90TKEbottom = UNSET_RL |
|
./pkg/ggl90/ggl90_calc.F |
336 |
GGL90_CALC |
& - GGL90TKEbottom*c(I,J,kBottom) |
|
./pkg/ggl90/GGL90.h |
64 |
NO PROCEDURE |
_RL GGL90TKEmin, GGL90TKEsurfMin, GGL90TKEbottom |
|
./pkg/ggl90/GGL90.h |
72 |
NO PROCEDURE |
& GGL90TKEmin, GGL90TKEsurfMin, GGL90TKEbottom, |