| File |
Line number |
Procedure |
Code |
|
./pkg/my82/MY82.h |
46 |
NO PROCEDURE |
_RL beta1, beta2, beta3, beta4 |
|
./pkg/my82/MY82.h |
52 |
NO PROCEDURE |
& alpha1, alpha2, beta1, beta2, beta3, beta4, |
|
./pkg/my82/my82_calc.F |
107 |
MY82_CALC |
RiFlux =( btmp - SQRT(btmp*btmp - 4. _d 0 *beta2*beta3*RiTmp) ) |
|
./pkg/my82/my82_calc.F |
108 |
MY82_CALC |
& /(2. _d 0*beta2) |
|
./pkg/my82/my82_calc.F |
112 |
MY82_CALC |
SM(I,J,K) = SHtmp*(beta1-beta2*RiFlux)/(beta3-beta4*RiFlux) |
|
./pkg/my82/my82_init_varia.F |
40 |
MY82_INIT_VARIA |
beta2 = A1*(B1*(gam1-C1) + 6. _d 0 *A1 + 3. _d 0 *A2) |