| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/ggl90_idemix.F |
117 |
GGL90_IDEMIX |
fxb = max( 1. _d -6, abs( fCori(i,j,bi,bj) )) |
|
./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 |
141 |
GGL90_IDEMIX |
fxb = max( 1. _d -6, abs( fCori(i,j,bi,bj) )) |
|
./pkg/ggl90/ggl90_idemix.F |
142 |
GGL90_IDEMIX |
fxa = SQRT(Nsquare(i,j,k))/fxb |
|
./pkg/ggl90/ggl90_idemix.F |
150 |
GGL90_IDEMIX |
IDEMIX_tau_d(i,j,k,bi,bj) = IDEMIX_mu0*fxb*fxc* |
|
./pkg/ggl90/ggl90_idemix.F |
164 |
GGL90_IDEMIX |
fxb = 0.5*min( _dxF(i,j,bi,bj), _dyF(i,j,bi,bj) )*fxa |
|
./pkg/ggl90/ggl90_idemix.F |
165 |
GGL90_IDEMIX |
IDEMIX_V0(i,j,k,bi,bj) = min( IDEMIX_V0(i,j,k,bi,bj), fxb ) |
|
./pkg/ggl90/ggl90_idemix.F |
64 |
GGL90_IDEMIX |
_RL fxa,fxb,fxc,cstar |