| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
1209 |
RAS |
_RL TX1(lng), TX2(lng), TX3(lng), TX4(lng), TX5(lng) |
|
./pkg/fizhi/fizhi_moist.F |
1302 |
RAS |
*, TX1, TX2, TX3, TX4, TX5, TX6, TX7, TX8, TX9 |
|
./pkg/fizhi/fizhi_moist.F |
1506 |
CLOUD |
*, TX1, TX2, TX3, TX4, TX5, TX6, TX7, TX8, ALM |
|
./pkg/fizhi/fizhi_moist.F |
1646 |
CLOUD |
_RL TX1(LENC), TX2(LENC), TX3(LENC), TX4(LENC) |
|
./pkg/fizhi/fizhi_moist.F |
1701 |
CLOUD |
CALL QSAT(TX3(I), TX1(I), TX2(I), TX4(I), .TRUE.) |
|
./pkg/fizhi/fizhi_moist.F |
1702 |
CLOUD |
ALF(I,L) = TX2(I) - TX4(I) * TX5(I) |
|
./pkg/fizhi/fizhi_moist.F |
1703 |
CLOUD |
BET(I,L) = TX4(I) * PRH(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
1704 |
CLOUD |
GAM(I,L) = 1.0 / ((1.0 + TX4(I)*ALBCP) * PRH(I,L)) |
|
./pkg/fizhi/fizhi_moist.F |
1830 |
CLOUD |
TX4(I) = PRS(II,K) |
|
./pkg/fizhi/fizhi_moist.F |
1845 |
CLOUD |
CALL ACRITN(LEN2, TX2, TX4, TX3) |
|
./pkg/fizhi/fizhi_moist.F |
1915 |
CLOUD |
TX4(LENB) = TX6(I) |
|
./pkg/fizhi/fizhi_moist.F |
1958 |
CLOUD |
TX6(I) = TX4(I) |
|
./pkg/fizhi/fizhi_moist.F |
2165 |
CLOUD |
TX4(I) = WFN(I) * (1.0/ALHL) |
|
./pkg/fizhi/fizhi_moist.F |
2195 |
CLOUD |
TEM = (GMH(I,L) - HOL(I,L)) * TX4(I) |