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 |
1699 |
CLOUD |
TX1(I) = (PRS(I,L) + PRS(I,L+1)) * 0.5 |
./pkg/fizhi/fizhi_moist.F |
1701 |
CLOUD |
CALL QSAT(TX3(I), TX1(I), TX2(I), TX4(I), .TRUE.) |
./pkg/fizhi/fizhi_moist.F |
1728 |
CLOUD |
TX1(I) = PRJ(I,K+1) * POI(I,K) |
./pkg/fizhi/fizhi_moist.F |
1732 |
CLOUD |
HOL(I,K) = TX1(I)*CP + QOL(I,K)*ALHL |
./pkg/fizhi/fizhi_moist.F |
1747 |
CLOUD |
TX1(I) = (PRJ(I,L+1) - PRJ(I,L)) * POI(I,L) |
./pkg/fizhi/fizhi_moist.F |
1748 |
CLOUD |
ETA(I,L) = ETA(I,L+1) + TX1(I)*CPBG |
./pkg/fizhi/fizhi_moist.F |
1749 |
CLOUD |
TX2(I) = TX2(I) + TX1(I)*CP |
./pkg/fizhi/fizhi_moist.F |
1771 |
CLOUD |
TX1(I) = ZERO |
./pkg/fizhi/fizhi_moist.F |
1779 |
CLOUD |
TX1(I) = TX1(I) + (HST(I,IC) - HOL(I,L)) * (ETA(I,L) - ETA(I,L+1)) |
./pkg/fizhi/fizhi_moist.F |
1786 |
CLOUD |
IF (TX1(I) .GT. ZERO .AND. TX2(I) .GT. ZERO |
./pkg/fizhi/fizhi_moist.F |
1790 |
CLOUD |
ALM(LEN1) = TX2(I) / TX1(I) |
./pkg/fizhi/fizhi_moist.F |
1849 |
CLOUD |
TX1(I) = ETA(IA(I),L) |
./pkg/fizhi/fizhi_moist.F |
1852 |
CLOUD |
ETA(I,L) = 1.0 + ALM(I) * TX1(I) |
./pkg/fizhi/fizhi_moist.F |
1867 |
CLOUD |
TX1(I) = HOL(II,K) |
./pkg/fizhi/fizhi_moist.F |
1875 |
CLOUD |
TEM = TX1(I) + (ETA(I,L) - ETA(I,L+1)) * HOL(II,L) |
./pkg/fizhi/fizhi_moist.F |
1879 |
CLOUD |
TX1(I) = TX1(I)*PCU(I) |
./pkg/fizhi/fizhi_moist.F |
1883 |
CLOUD |
TX1(I) = TX1(I) + TEM*PCU(I) |
./pkg/fizhi/fizhi_moist.F |
1885 |
CLOUD |
WFN(I) = WFN(I) + (TX1(I) - TEM1) * GAM(II,L) |
./pkg/fizhi/fizhi_moist.F |
1886 |
CLOUD |
TX1(I) = TEM |
./pkg/fizhi/fizhi_moist.F |
1894 |
CLOUD |
WFN(I) = WFN(I) + TX1(I) * GAM(II,IC)*(PRJ(II,IC1)-PRH(II,IC)) |
./pkg/fizhi/fizhi_moist.F |
1900 |
CLOUD |
TX1(LENA) = WFN(I) |
./pkg/fizhi/fizhi_moist.F |
1913 |
CLOUD |
TX1(LENB) = WFN(I) |
./pkg/fizhi/fizhi_moist.F |
1938 |
CLOUD |
WFN(I) = TX1(I) |
./pkg/fizhi/fizhi_moist.F |
1944 |
CLOUD |
TX1(I) = ETA(I2(I),L) |
./pkg/fizhi/fizhi_moist.F |
1947 |
CLOUD |
ETA(I,L) = TX1(I) |
./pkg/fizhi/fizhi_moist.F |
2029 |
CLOUD |
CALL RNCL(LENB, TX2, TX1, CLF) |
./pkg/fizhi/fizhi_moist.F |
2032 |
CLOUD |
TX2(I) = (ONE - TX1(I)) * WLQ(I) |
./pkg/fizhi/fizhi_moist.F |
2033 |
CLOUD |
WLQ(I) = TX1(I) * WLQ(I) |
./pkg/fizhi/fizhi_moist.F |
2035 |
CLOUD |
TX1(I) = HOL(I,IC) |
./pkg/fizhi/fizhi_moist.F |
2039 |
CLOUD |
TX1(I) = TX1(I) + (TX5(I)-TX3(I)+QOL(II,IC)*ALHL)*(PRI(II,IC)/CP) |
./pkg/fizhi/fizhi_moist.F |
2043 |
CLOUD |
HOL(I,IC) = TX1(I) - TX2(I) * ALBCP * PRI(I1(I),IC) |
./pkg/fizhi/fizhi_moist.F |
2050 |
CLOUD |
* * TX1(I) / PRH(II,IC) |
./pkg/fizhi/fizhi_moist.F |
2084 |
CLOUD |
GMH(I,IC) = TX1(I) + PRI(I1(I),IC) * ONEBCP |
./pkg/fizhi/fizhi_moist.F |
2092 |
CLOUD |
TX1(I) = GMH(I,K) |
./pkg/fizhi/fizhi_moist.F |
2097 |
CLOUD |
TX1(I) = TX1(I) + (ETA(I,L) - ETA(I,L+1)) * GMH(I,L) |
./pkg/fizhi/fizhi_moist.F |
2108 |
CLOUD |
AKM(I) = AKM(I) + TX1(I) * |
./pkg/fizhi/fizhi_moist.F |
2119 |
CLOUD |
TX1(I) = PRS(II,IC1) |
./pkg/fizhi/fizhi_moist.F |
2122 |
CLOUD |
IF ((TX2(I) .GE. TX1(I)) .AND. (TX2(I) .LT. TX5(I))) THEN |
./pkg/fizhi/fizhi_moist.F |
2123 |
CLOUD |
TX6(I) = ONE - (TX2(I) - TX1(I)) / (TX5(I) - TX1(I)) |
./pkg/fizhi/fizhi_moist.F |
2131 |
CLOUD |
ELSEIF (TX2(I) .LT. TX1(I)) THEN |
./pkg/fizhi/fizhi_moist.F |
2219 |
CLOUD |
TX1(I) = ( UOI(II,KM1+nltop-1,nt) - UOI(II,K+nltop-1,nt)) |
./pkg/fizhi/fizhi_moist.F |
2220 |
CLOUD |
ucu(II,K,nt) = TEM * TX1(I) |
./pkg/fizhi/fizhi_moist.F |
2229 |
CLOUD |
TEM1 = TX1(I) |
./pkg/fizhi/fizhi_moist.F |
2230 |
CLOUD |
TX1(I) = (UOI(II,L-1+nltop-1,nt)-UOI(II,L+nltop-1,nt)) * ETA(I,L) |
./pkg/fizhi/fizhi_moist.F |
2231 |
CLOUD |
TX3(I) = (TX1(I) + TEM1) * TEM |
./pkg/fizhi/fizhi_moist.F |
2245 |
CLOUD |
TX1(I) = (TX1(I) + UHT(I,nt) + UHT(I,nt)) * TEM |
./pkg/fizhi/fizhi_moist.F |
2249 |
CLOUD |
ucu(II,IC,nt) = TX1(I) |