| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/GGL90.h |
63 |
NO PROCEDURE |
_RL GGL90eps |
|
./pkg/ggl90/GGL90.h |
64 |
NO PROCEDURE |
PARAMETER ( GGL90eps = 2.23D-16 ) |
|
./pkg/ggl90/ggl90_calc.F |
224 |
GGL90_CALC |
& SQRTTKE(i,j,k)/SQRT( MAX(Nsquare(i,j,k),GGL90eps) ) |
|
./pkg/ggl90/ggl90_calc.F |
472 |
GGL90_CALC |
& /(verticalShear(i,j)+GGL90eps) |
|
./pkg/ggl90/ggl90_calc.F |
475 |
GGL90_CALC |
& (GGL90eps+IDEMIX_tau_d(i,j,k,bi,bj)*IDEMIX_E(i,j,k,bi,bj)**2) |
|
./pkg/ggl90/ggl90_calc.F |
488 |
GGL90_CALC |
& /(verticalShear(i,j)+GGL90eps) |
|
./pkg/ggl90/ggl90_idemix.F |
151 |
GGL90_IDEMIX |
& (IDEMIX_jstar*pi/(GGL90eps+bN0(i,j)) )**2 |
|
./pkg/ggl90/ggl90_init_varia.F |
54 |
GGL90_INIT_VARIA |
GGL90TKE(I,J,K,bi,bj)=GGL90eps*maskC(I,J,K,bi,bj) |