File |
Line number |
Procedure |
Code |
./eesupp/src/different_multiple.F |
40 |
NO PROCEDURE |
_RL v1, v2, v3, v4, d1, d2, d3 |
./eesupp/src/different_multiple.F |
59 |
NO PROCEDURE |
d2 = v2-v4 |
./eesupp/src/different_multiple.F |
61 |
NO PROCEDURE |
IF ( ABS(d1) .LE. ABS(d2) .AND. ABS(d1) .LE. ABS(d3) ) |
./eesupp/src/diff_phase_multiple.F |
41 |
NO PROCEDURE |
_RL v1, v2, v3, v4, d1, d2, d3 |
./eesupp/src/diff_phase_multiple.F |
60 |
NO PROCEDURE |
d2 = v2-v4 |
./eesupp/src/diff_phase_multiple.F |
62 |
NO PROCEDURE |
IF ( ABS(d1) .LE. ABS(d2) .AND. ABS(d1) .LE. ABS(d3) ) |
./pkg/fizhi/fizhi_utils.F |
222 |
QSAT |
_RL d0, d1, d2, d3, d4, d5, d6 |
./pkg/fizhi/fizhi_utils.F |
279 |
QSAT |
parameter ( d2 = 0.129690326e-01 * esfac ) |
./pkg/fizhi/fizhi_utils.F |
347 |
QSAT |
qx = d0+T*(d1+T*(d2+T*(d3+T*(d4+T*(d5+T*d6))))) |
./pkg/fizhi/fizhi_turb.F |
3737 |
TRBL20 |
_RL b1,b2,d3,rf1,rf2,d3b2,d2,e5,d4,d1,d1half,d2half |