| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/ggl90_readparms.F |
109 |
GGL90_READPARMS |
GGL90TKEbottom = GGL90TKEmin |
|
./pkg/ggl90/ggl90_readparms.F |
111 |
GGL90_READPARMS |
IF ( GGL90TKEmin .LE. 0. ) THEN |
|
./pkg/ggl90/ggl90_readparms.F |
39 |
GGL90_READPARMS |
& GGL90TKEmin, GGL90TKEbottom, |
|
./pkg/ggl90/ggl90_readparms.F |
63 |
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.h |
62 |
NO PROCEDURE |
_RL GGL90TKEmin, GGL90TKEbottom |
|
./pkg/ggl90/GGL90.h |
70 |
NO PROCEDURE |
& GGL90TKEmin, GGL90TKEbottom, |
|
./pkg/ggl90/ggl90_calc.F |
327 |
GGL90_CALC |
gTKE(I,J,kSurf) = MAX(GGL90TKEmin,GGL90m2*uStarSquare) |
|
./pkg/ggl90/ggl90_calc.F |
349 |
GGL90_CALC |
GGL90TKE(I,J,K,bi,bj) = MAX( gTKE(I,J,K), GGL90TKEmin ) |