| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/ggl90_calc.F |
184 |
GGL90_CALC |
Nsquare(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
218 |
GGL90_CALC |
Nsquare(i,j,k) = gravity*gravitySign*recip_rhoConst |
|
./pkg/ggl90/ggl90_calc.F |
224 |
GGL90_CALC |
& SQRTTKE(i,j,k)/SQRT( MAX(Nsquare(i,j,k),GGL90eps) ) |
|
./pkg/ggl90/ggl90_calc.F |
471 |
GGL90_CALC |
RiNumber = MAX(Nsquare(i,j,k),0. _d 0) |
|
./pkg/ggl90/ggl90_calc.F |
474 |
GGL90_CALC |
IDEMIX_RiNumber = MAX( KappaM(i,j)*Nsquare(i,j,k), 0. _d 0)/ |
|
./pkg/ggl90/ggl90_calc.F |
487 |
GGL90_CALC |
RiNumber = MAX(Nsquare(i,j,k),0. _d 0) |
|
./pkg/ggl90/ggl90_calc.F |
510 |
GGL90_CALC |
& - KappaH*Nsquare(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
85 |
GGL90_CALC |
_RL Nsquare(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ggl90/ggl90_idemix.F |
115 |
GGL90_IDEMIX |
Nsquare(i,j,k) = gravity*gravitySign*recip_rhoConst |
|
./pkg/ggl90/ggl90_idemix.F |
118 |
GGL90_IDEMIX |
Nsquare(i,j,k)= max( 100.*fxb*fxb, Nsquare(i,j,k) ) |
|
./pkg/ggl90/ggl90_idemix.F |
130 |
GGL90_IDEMIX |
& +SQRT(Nsquare(i,j,k))*drC(k)*hFacI(i,j,k) |
|
./pkg/ggl90/ggl90_idemix.F |
142 |
GGL90_IDEMIX |
fxa = SQRT(Nsquare(i,j,k))/fxb |
|
./pkg/ggl90/ggl90_idemix.F |
191 |
GGL90_IDEMIX |
& +max( 0. _d 0,Kwz(i,j,k,bi,bj)*Nsquare(i,j,k) ) |
|
./pkg/ggl90/ggl90_idemix.F |
216 |
GGL90_IDEMIX |
& +max( 0. _d 0,Kwz(i,j,k,bi,bj)*Nsquare(i,j,k) ) |
|
./pkg/ggl90/ggl90_idemix.F |
445 |
GGL90_IDEMIX |
& /max(1. _d -12,Nsquare(i,j,k))*maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
62 |
GGL90_IDEMIX |
_RL Nsquare(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ggl90/ggl90_idemix.F |
90 |
GGL90_IDEMIX |
Nsquare(i,j,k) = 0. _d 0 |