| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/ggl90_idemix.F |
142 |
GGL90_IDEMIX |
fxa = SQRT(Nsquare(i,j,k))/fxb |
|
./pkg/ggl90/ggl90_idemix.F |
145 |
GGL90_IDEMIX |
& cstar*IDEMIX_gamma*IDEMIX_gofx2(fxa)) |
|
./pkg/ggl90/ggl90_idemix.F |
147 |
GGL90_IDEMIX |
& cstar*IDEMIX_gamma*IDEMIX_hofx1(fxa)) |
|
./pkg/ggl90/ggl90_idemix.F |
148 |
GGL90_IDEMIX |
fxc = max( 1. _d 0 , fxa ) |
|
./pkg/ggl90/ggl90_idemix.F |
160 |
GGL90_IDEMIX |
fxa = sqrt( 1. _d 0/( deltaTggl90 * IDEMIX_tau_h ) ) |
|
./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 |
243 |
GGL90_IDEMIX |
fxa = IDEMIX_tau_h*0.5 _d 0*( |
|
./pkg/ggl90/ggl90_idemix.F |
246 |
GGL90_IDEMIX |
dfx(i,j) = -fxa*_dyG(i,j,bi,bj)*drC(k) |
|
./pkg/ggl90/ggl90_idemix.F |
260 |
GGL90_IDEMIX |
fxa = IDEMIX_tau_h*0.5 _d 0*( |
|
./pkg/ggl90/ggl90_idemix.F |
263 |
GGL90_IDEMIX |
dfy(i,j) = -fxa*_dxG(i,j,bi,bj)*drC(k) |
|
./pkg/ggl90/ggl90_idemix.F |
64 |
GGL90_IDEMIX |
_RL fxa,fxb,fxc,cstar |