File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_moist.F |
1297 |
RAS |
*, CP, ALHL, RKAPPA, GRAV, P00, CRTMSF |
./pkg/fizhi/fizhi_moist.F |
1501 |
CLOUD |
*, CP, ALHL, RKAP, GRAV, P00, CRTMSF |
./pkg/fizhi/fizhi_moist.F |
1675 |
CLOUD |
ALBCP = ALHL * ONEBCP |
./pkg/fizhi/fizhi_moist.F |
1678 |
CLOUD |
TWOBAL = 2.0 / ALHL |
./pkg/fizhi/fizhi_moist.F |
1732 |
CLOUD |
HOL(I,K) = TX1(I)*CP + QOL(I,K)*ALHL |
./pkg/fizhi/fizhi_moist.F |
1744 |
CLOUD |
HOL(I,L) = TEM1 + QOL(I,L )* ALHL |
./pkg/fizhi/fizhi_moist.F |
1745 |
CLOUD |
HST(I,L) = TEM1 + QS1(I) * ALHL |
./pkg/fizhi/fizhi_moist.F |
1762 |
CLOUD |
HOL(I,IC) = TEM1 + QOL(I,IC) * ALHL |
./pkg/fizhi/fizhi_moist.F |
1763 |
CLOUD |
HST(I,IC) = TEM1 + QS1(I) * ALHL |
./pkg/fizhi/fizhi_moist.F |
187 |
MOISTIO |
ALHL = GETCON('LATENT HEAT COND') |
./pkg/fizhi/fizhi_moist.F |
1963 |
CLOUD |
TX5(I) = TEM - TEM1 * ALHL |
./pkg/fizhi/fizhi_moist.F |
1964 |
CLOUD |
QS1(I) = TEM1 + TX8(I)*(ONE/ALHL) |
./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 |
2081 |
CLOUD |
* * (TX7(I) - TX8(I) - TX5(I) - QOL(I1(I),IC)*ALHL) |
./pkg/fizhi/fizhi_moist.F |
2085 |
CLOUD |
* * (TX3(I)*(ALHL*HALF) + ETA(I,IC) * TX8(I)) |
./pkg/fizhi/fizhi_moist.F |
2165 |
CLOUD |
TX4(I) = WFN(I) * (1.0/ALHL) |
./pkg/fizhi/getcon.F |
108 |
NO PROCEDURE |
DATA ANAME(4 ),ACON(4 ) / 'LATENT HEAT COND', ALHL / |
./pkg/fizhi/getcon.F |
33 |
NO PROCEDURE |
& CFC11, CFC12, CFC22, ATMPOPA, PI, CPD, CPV, ALHL, ALHS, |
./pkg/fizhi/getcon.F |
76 |
NO PROCEDURE |
PARAMETER ( ALHL = 2.499E6 ) |