| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
2408 |
RNEVP |
TEMP1(I,5)=TEMP1(I,2)-TEMP1(I,4) |
|
./pkg/fizhi/fizhi_moist.F |
2409 |
RNEVP |
TEMP1(I,6)=TEMP1(I,6)*ELOCP |
|
./pkg/fizhi/fizhi_moist.F |
2410 |
RNEVP |
TEMP1(I,5)=TEMP1(I,5)/(ONE+TEMP1(I,6)) |
|
./pkg/fizhi/fizhi_moist.F |
2411 |
RNEVP |
TEMP1(I,4)=TEMP1(I,4)+TEMP1(I,5)*RELAX |
|
./pkg/fizhi/fizhi_moist.F |
2412 |
RNEVP |
TEMP1(I,3)=TEMP1(I,3)-TEMP1(I,5)*ELOCP*RELAX |
|
./pkg/fizhi/fizhi_moist.F |
2417 |
RNEVP |
EVP9(I,L) = (TEMP1(I,4) - QL(I,L))/TEMP3(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
2500 |
RNEVP |
TEMP1(I,7) = rainmax(I)*AREARAT |
|
./pkg/fizhi/fizhi_moist.F |
2501 |
RNEVP |
IF(TEMP1(I,7).GE.RLAR(I)) TEMP1(I,7) = RLAR(I) |
|
./pkg/fizhi/fizhi_moist.F |
2502 |
RNEVP |
RLAR(I) = RLAR(I)-TEMP1(I,7) |
|
./pkg/fizhi/fizhi_moist.F |
2503 |
RNEVP |
QL(I,L) = QL(I,L)+TEMP1(I,7)*TEMP3(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
2504 |
RNEVP |
TL(I,L) = TL(I,L)-TEMP1(I,7)*TEMP3(I,L)*ELOCP |
|
./pkg/fizhi/fizhi_turb.F |
2788 |
PHI |
_RL ZSTAR(N),E1(N),E2(N),TEMP1(N) |
|
./pkg/fizhi/fizhi_turb.F |
2991 |
PHI |
TEMP1(I) = Z(I)*0.5 |
|
./pkg/fizhi/fizhi_turb.F |
2992 |
PHI |
IF( Z(I) .LE. 2. )TEMP1(I) = 1. |
|
./pkg/fizhi/fizhi_turb.F |
2993 |
PHI |
TEMP1(I) = LOG10(TEMP1(I)) |
|
./pkg/fizhi/fizhi_turb.F |
2994 |
PHI |
TEMP1(I) = (TEMP1(I) + 9.3) * 20. |
|
./pkg/fizhi/fizhi_turb.F |
2995 |
PHI |
IF( Z(I) .GT. 2. ) ZSTAR(I) = TEMP1(I) |
|
./pkg/fizhi/fizhi_turb.F |
3004 |
PHI |
TEMP1(I) = ZSTAR(I) - I1(I) |
|
./pkg/fizhi/fizhi_turb.F |
3013 |
PHI |
PHIM(I) = TEMP1(I) * ( E2(I)-E1(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3025 |
PHI |
PHIH(I) = TEMP1(I) * ( E2(I)-E1(I) ) |