| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/ggl90_readparms.F |
110 |
GGL90_READPARMS |
GGL90TKEbottom = GGL90TKEmin |
|
./pkg/ggl90/ggl90_readparms.F |
112 |
GGL90_READPARMS |
IF ( GGL90TKEmin .LE. 0. ) THEN |
|
./pkg/ggl90/ggl90_readparms.F |
170 |
GGL90_READPARMS |
CALL WRITE_0D_R8( GGL90TKEmin, INDEX_NONE,'GGL90TKEmin =', |
|
./pkg/ggl90/ggl90_readparms.F |
42 |
GGL90_READPARMS |
& GGL90TKEmin, GGL90TKEsurfMin, GGL90TKEbottom, |
|
./pkg/ggl90/ggl90_readparms.F |
67 |
GGL90_READPARMS |
GGL90TKEmin = 1.0 _d -11 |
|
./pkg/ggl90/ggl90_init.F |
43 |
GGL90_INIT |
GGL90TKE(I,J,K,bi,bj)=GGL90TKEmin*maskC(I,J,K,bi,bj) |
|
./pkg/ggl90/ggl90_init.F |
75 |
GGL90_INIT |
& GGL90TKEmin)*maskC(I,J,K,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
353 |
GGL90_CALC |
GGL90TKE(I,J,K,bi,bj) = MAX( gTKE(I,J,K), GGL90TKEmin ) |
|
./pkg/ggl90/GGL90.h |
64 |
NO PROCEDURE |
_RL GGL90TKEmin, GGL90TKEsurfMin, GGL90TKEbottom |
|
./pkg/ggl90/GGL90.h |
72 |
NO PROCEDURE |
& GGL90TKEmin, GGL90TKEsurfMin, GGL90TKEbottom, |