| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/phy_shtorh.F |
43 |
SHTORH |
_RL E0, C1, C2, T0, T1, T2, QS1, QS2 |
|
./pkg/aim_v23/phy_shtorh.F |
56 |
SHTORH |
QS1= 622. _d 0 |
|
./pkg/aim_v23/phy_shtorh.F |
68 |
SHTORH |
QSAT(J)= QS1*tmpQ/(sigP-QS2*tmpQ) |
|
./pkg/aim_v23/phy_shtorh.F |
73 |
SHTORH |
QSAT(J)= QS1*tmpQ/(sigP-QS2*tmpQ) |
|
./pkg/aim_v23/phy_shtorh.F |
92 |
SHTORH |
QSAT(J)= QS1*QSAT(J)/( PS(1) - QS2*QSAT(J)) |
|
./pkg/aim_v23/phy_shtorh.F |
96 |
SHTORH |
QSAT(J)= QS1*QSAT(J)/(SIG*PS(J)- QS2*QSAT(J)) |
|
./pkg/fizhi/fizhi_moist.F |
1447 |
CLOUD |
*, WFN, AKM, QS1, CLF, UHT, WLQ |
|
./pkg/fizhi/fizhi_moist.F |
1588 |
CLOUD |
_RL ALM(LENC), WFN(LENC), AKM(LENC), QS1(LENC) |
|
./pkg/fizhi/fizhi_moist.F |
1669 |
CLOUD |
QS1(I) = ALF(I,K) + BET(I,K)*POI(I,K) |
|
./pkg/fizhi/fizhi_moist.F |
1670 |
CLOUD |
QOL(I,K) = MIN(QS1(I)*RHMAX,QOI(I,K)) |
|
./pkg/fizhi/fizhi_moist.F |
1680 |
CLOUD |
QS1(I) = ALF(I,L) + BET(I,L)*POI(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
1681 |
CLOUD |
QOL(I,L) = MIN(QS1(I)*RHMAX,QOI(I,L)) |
|
./pkg/fizhi/fizhi_moist.F |
1685 |
CLOUD |
HST(I,L) = TEM1 + QS1(I) * ALHL |
|
./pkg/fizhi/fizhi_moist.F |
1698 |
CLOUD |
QS1(I) = ALF(I,IC) + BET(I,IC)*POI(I,IC) |
|
./pkg/fizhi/fizhi_moist.F |
1699 |
CLOUD |
QOL(I,IC) = MIN(QS1(I)*RHMAX,QOI(I,IC)) |
|
./pkg/fizhi/fizhi_moist.F |
1703 |
CLOUD |
HST(I,IC) = TEM1 + QS1(I) * ALHL |
|
./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 |
1892 |
CLOUD |
QS1(I) = TEM1 + TX8(I)*(ONE/ALHL) |
|
./pkg/fizhi/fizhi_moist.F |
1899 |
CLOUD |
WLQ(I) = QOL(II,K) - QS1(I) * ETA(I,IC) |
|
./pkg/seaice/budget.F |
113 |
BUDGET |
B(I,J)=QS1*6.11 _d +00*EXP(17.2694 _d +00 |
|
./pkg/seaice/budget.F |
186 |
BUDGET |
B(I,J)=QS1*(C1*TICE(I,J,bi,bj)**4+C2*TICE(I,J,bi,bj)**3 |
|
./pkg/seaice/budget.F |
47 |
BUDGET |
_RL QS1, C1, C2, C3, C4, C5, TB, D1, D1W, D1I, D3 |
|
./pkg/seaice/budget.F |
60 |
BUDGET |
QS1=0.622 _d +00/1013.0 _d +00 |