| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
1151 |
RAS |
_RL TX1(lng), TX2(lng), TX3(lng), TX4(lng), TX5(lng) |
|
./pkg/fizhi/fizhi_moist.F |
1242 |
RAS |
*, TX1, TX2, TX3, TX4, TX5, TX6, TX7, TX8, TX9 |
|
./pkg/fizhi/fizhi_moist.F |
1446 |
CLOUD |
*, TX1, TX2, TX3, TX4, TX5, TX6, TX7, TX8, ALM |
|
./pkg/fizhi/fizhi_moist.F |
1586 |
CLOUD |
_RL TX1(LENC), TX2(LENC), TX3(LENC), TX4(LENC) |
|
./pkg/fizhi/fizhi_moist.F |
1641 |
CLOUD |
CALL QSAT(TX3(I), TX1(I), TX2(I), TX4(I), .TRUE.) |
|
./pkg/fizhi/fizhi_moist.F |
1642 |
CLOUD |
ALF(I,L) = TX2(I) - TX4(I) * TX5(I) |
|
./pkg/fizhi/fizhi_moist.F |
1674 |
CLOUD |
TX2(I) = (PRJ(I,K+1) - PRJ(I,K)) * POI(I,K) * CP |
|
./pkg/fizhi/fizhi_moist.F |
1683 |
CLOUD |
TEM1 = TX2(I) + PRJ(I,L+1) * POI(I,L) * CP |
|
./pkg/fizhi/fizhi_moist.F |
1689 |
CLOUD |
TX2(I) = TX2(I) + TX1(I)*CP |
|
./pkg/fizhi/fizhi_moist.F |
1697 |
CLOUD |
HOL(I,IC) = TX2(I) |
|
./pkg/fizhi/fizhi_moist.F |
1701 |
CLOUD |
TEM1 = TX2(I) + PRJ(I,IC1) * POI(I,IC) * CP |
|
./pkg/fizhi/fizhi_moist.F |
1710 |
CLOUD |
TX2(I) = HOL(I,K) - HST(I,IC) |
|
./pkg/fizhi/fizhi_moist.F |
1726 |
CLOUD |
IF (TX1(I) .GT. ZERO .AND. TX2(I) .GT. ZERO |
|
./pkg/fizhi/fizhi_moist.F |
1730 |
CLOUD |
ALM(LEN1) = TX2(I) / TX1(I) |
|
./pkg/fizhi/fizhi_moist.F |
1737 |
CLOUD |
IF (TX2(I) .LE. 0.0 .AND. (HOL(I,K) .GT. HST(I,IC1)) |
|
./pkg/fizhi/fizhi_moist.F |
1763 |
CLOUD |
TX2(I) = 0.5 * (PRS(II,IC) + PRS(II,IC1)) |
|
./pkg/fizhi/fizhi_moist.F |
1775 |
CLOUD |
TX2(I) = 0.5 * (PRS(II,IC1)+PRS(II,IC1+1)) * (1.0-TX6(I)) |
|
./pkg/fizhi/fizhi_moist.F |
1776 |
CLOUD |
* + TX2(I) * TX6(I) |
|
./pkg/fizhi/fizhi_moist.F |
1779 |
CLOUD |
CALL ACRITN(LEN2, TX2, TX4, TX3) |
|
./pkg/fizhi/fizhi_moist.F |
1835 |
CLOUD |
TX2(LENA) = QS1(IA(I)) |
|
./pkg/fizhi/fizhi_moist.F |
1848 |
CLOUD |
TX2(LENB) = QS1(IA(I)) |
|
./pkg/fizhi/fizhi_moist.F |
1867 |
CLOUD |
QS1(I) = TX2(I) |
|
./pkg/fizhi/fizhi_moist.F |
1935 |
CLOUD |
TX2(I) = 0.5 * (PRS(II,IC) + PRS(II,IC1)) |
|
./pkg/fizhi/fizhi_moist.F |
1957 |
CLOUD |
CALL RNCL(LENB, TX2, TX1, CLF) |
|
./pkg/fizhi/fizhi_moist.F |
1960 |
CLOUD |
TX2(I) = (ONE - TX1(I)) * WLQ(I) |
|
./pkg/fizhi/fizhi_moist.F |
1971 |
CLOUD |
HOL(I,IC) = TX1(I) - TX2(I) * ALBCP * PRI(I1(I),IC) |
|
./pkg/fizhi/fizhi_moist.F |
1998 |
CLOUD |
TX2(I) = TX3(I) |
|
./pkg/fizhi/fizhi_moist.F |
2000 |
CLOUD |
TX2(I) = TX2(I) + TX3(I) |
|
./pkg/fizhi/fizhi_moist.F |
2002 |
CLOUD |
GMH(I,L) = HOL(I,L) + TX2(I) * PRI(II,L) * (ALBCP*HALF) |
|
./pkg/fizhi/fizhi_moist.F |
2026 |
CLOUD |
TX2(I) = GAM(II,L-1) * (PRJ(II,L) - PRH(II,L-1)) |
|
./pkg/fizhi/fizhi_moist.F |
2031 |
CLOUD |
TX2(I) = ZERO |
|
./pkg/fizhi/fizhi_moist.F |
2037 |
CLOUD |
* (TX2(I) + GAM(II,L)*(PRH(II,L)-PRJ(II,L))) |
|
./pkg/fizhi/fizhi_moist.F |
2044 |
CLOUD |
TX2(I) = 0.5 * (PRS(II,IC) + PRS(II,IC1)) |
|
./pkg/fizhi/fizhi_moist.F |
2050 |
CLOUD |
IF ((TX2(I) .GE. TX1(I)) .AND. (TX2(I) .LT. TX5(I))) THEN |
|
./pkg/fizhi/fizhi_moist.F |
2051 |
CLOUD |
TX6(I) = ONE - (TX2(I) - TX1(I)) / (TX5(I) - TX1(I)) |
|
./pkg/fizhi/fizhi_moist.F |
2059 |
CLOUD |
ELSEIF (TX2(I) .LT. TX1(I)) THEN |