| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
3739 |
TRBL20 |
_RL b1,b2,d3,rf1,rf2,d3b2,d2,e5,d4,d1,d1half,d2half |
|
./pkg/fizhi/fizhi_utils.F |
222 |
QSAT |
_RL d0, d1, d2, d3, d4, d5, d6 |
|
./pkg/fizhi/fizhi_utils.F |
280 |
QSAT |
parameter ( d3 = 0.230325039e-03 * esfac ) |
|
./pkg/fizhi/fizhi_utils.F |
347 |
QSAT |
qx = d0+T*(d1+T*(d2+T*(d3+T*(d4+T*(d5+T*d6))))) |
|
./pkg/openad/ad_s_different_multiple.F |
40 |
OAD_S_DIFFERENT_MULTIPLE |
_RL v1, v2, v3, v4, d1, d2, d3 |
|
./pkg/openad/ad_s_different_multiple.F |
60 |
OAD_S_DIFFERENT_MULTIPLE |
d3 = v3-v4 |
|
./pkg/openad/ad_s_different_multiple.F |
61 |
OAD_S_DIFFERENT_MULTIPLE |
IF ( ABS(d1) .LT. 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 |
64 |
NO PROCEDURE |
d3 = v3-v4 |
|
./eesupp/src/diff_phase_multiple.F |
65 |
NO PROCEDURE |
IF ( ABS(d1) .LT. ABS(d2) .AND. ABS(d1) .LE. ABS(d3) ) |
|
./eesupp/src/different_multiple.F |
40 |
NO PROCEDURE |
_RL v1, v2, v3, v4, d1, d2, d3 |
|
./eesupp/src/different_multiple.F |
60 |
NO PROCEDURE |
d3 = v3-v4 |
|
./eesupp/src/different_multiple.F |
61 |
NO PROCEDURE |
IF ( ABS(d1) .LT. ABS(d2) .AND. ABS(d1) .LE. ABS(d3) ) |