| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/GGL90.h |
64 |
NO PROCEDURE |
_RL GGL90TKEmin, GGL90TKEsurfMin, GGL90TKEbottom |
|
./pkg/ggl90/GGL90.h |
73 |
NO PROCEDURE |
& GGL90TKEmin, GGL90TKEsurfMin, GGL90TKEbottom, |
|
./pkg/ggl90/ggl90_calc.F |
545 |
GGL90_CALC |
& *MAX( GGL90TKE(i,j,k,bi,bj), GGL90TKEmin ) |
|
./pkg/ggl90/ggl90_init_varia.F |
44 |
GGL90_INIT_VARIA |
GGL90TKE(I,J,K,bi,bj)=GGL90TKEmin*maskC(I,J,K,bi,bj) |
|
./pkg/ggl90/ggl90_init_varia.F |
74 |
GGL90_INIT_VARIA |
& GGL90TKEmin)*maskC(I,J,K,bi,bj) |
|
./pkg/ggl90/ggl90_readparms.F |
112 |
GGL90_READPARMS |
GGL90TKEbottom = GGL90TKEmin |
|
./pkg/ggl90/ggl90_readparms.F |
114 |
GGL90_READPARMS |
IF ( GGL90TKEmin .LE. 0. ) THEN |
|
./pkg/ggl90/ggl90_readparms.F |
172 |
GGL90_READPARMS |
CALL WRITE_0D_RL( GGL90TKEmin, INDEX_NONE,'GGL90TKEmin =', |
|
./pkg/ggl90/ggl90_readparms.F |
43 |
GGL90_READPARMS |
& GGL90TKEmin, GGL90TKEsurfMin, GGL90TKEbottom, |
|
./pkg/ggl90/ggl90_readparms.F |
68 |
GGL90_READPARMS |
GGL90TKEmin = 1.0 _d -11 |