| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/GGL90.h |
73 |
NO PROCEDURE |
_RL GGL90TKEmin, GGL90TKEsurfMin, GGL90TKEbottom |
|
./pkg/ggl90/GGL90.h |
82 |
NO PROCEDURE |
& GGL90TKEmin, GGL90TKEsurfMin, GGL90TKEbottom, |
|
./pkg/ggl90/ggl90_calc.F |
673 |
GGL90_CALC |
& *MAX( GGL90TKE(i,j,k,bi,bj), GGL90TKEmin ) |
|
./pkg/ggl90/ggl90_init_varia.F |
151 |
GGL90_INIT_VARIA |
& GGL90TKEmin)*maskC(I,J,K,bi,bj) |
|
./pkg/ggl90/ggl90_init_varia.F |
57 |
GGL90_INIT_VARIA |
GGL90TKE(I,J,K,bi,bj)=GGL90TKEmin*maskC(I,J,K,bi,bj) |
|
./pkg/ggl90/ggl90_readparms.F |
103 |
GGL90_READPARMS |
GGL90TKEmin = 1.0 _d -11 |
|
./pkg/ggl90/ggl90_readparms.F |
225 |
GGL90_READPARMS |
GGL90TKEbottom = GGL90TKEmin |
|
./pkg/ggl90/ggl90_readparms.F |
228 |
GGL90_READPARMS |
IF ( GGL90TKEmin .LT. 0. ) THEN ! CE: changed le to lt !!! |
|
./pkg/ggl90/ggl90_readparms.F |
230 |
GGL90_READPARMS |
IF ( GGL90TKEmin .LE. 0. ) THEN |
|
./pkg/ggl90/ggl90_readparms.F |
289 |
GGL90_READPARMS |
CALL WRITE_0D_RL( GGL90TKEmin, INDEX_NONE,'GGL90TKEmin =', |
|
./pkg/ggl90/ggl90_readparms.F |
53 |
GGL90_READPARMS |
& GGL90TKEmin, GGL90TKEsurfMin, GGL90TKEbottom, |