| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
2366 |
RNEVP |
1 PLK,TH,TEMP1,TEMP2,TEMP3,ITMP1,ITMP2,RCON,RLAR,CLSBTH,tmscl, |
|
./pkg/fizhi/fizhi_moist.F |
2373 |
RNEVP |
. PL(IRUN,NLAY),CLFRAC(IRUN,NLAY),SP(IRUN),TEMP1(IRUN,NLAY), |
|
./pkg/fizhi/fizhi_moist.F |
2441 |
RNEVP |
TEMP1(i,L) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
2471 |
RNEVP |
TEMP1(I,3) = TL(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
2472 |
RNEVP |
TEMP1(I,4) = QL(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
2481 |
RNEVP |
TEMP1(I,5)=TEMP1(I,2)-TEMP1(I,4) |
|
./pkg/fizhi/fizhi_moist.F |
2482 |
RNEVP |
TEMP1(I,6)=TEMP1(I,6)*ELOCP |
|
./pkg/fizhi/fizhi_moist.F |
2483 |
RNEVP |
TEMP1(I,5)=TEMP1(I,5)/(ONE+TEMP1(I,6)) |
|
./pkg/fizhi/fizhi_moist.F |
2484 |
RNEVP |
TEMP1(I,4)=TEMP1(I,4)+TEMP1(I,5)*RELAX |
|
./pkg/fizhi/fizhi_moist.F |
2485 |
RNEVP |
TEMP1(I,3)=TEMP1(I,3)-TEMP1(I,5)*ELOCP*RELAX |
|
./pkg/fizhi/fizhi_moist.F |
2490 |
RNEVP |
EVP9(I,L) = (TEMP1(I,4) - QL(I,L))/TEMP3(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
2573 |
RNEVP |
TEMP1(I,7) = rainmax(I)*AREARAT |
|
./pkg/fizhi/fizhi_moist.F |
2574 |
RNEVP |
IF(TEMP1(I,7).GE.RLAR(I)) TEMP1(I,7) = RLAR(I) |
|
./pkg/fizhi/fizhi_moist.F |
2575 |
RNEVP |
RLAR(I) = RLAR(I)-TEMP1(I,7) |
|
./pkg/fizhi/fizhi_moist.F |
2576 |
RNEVP |
QL(I,L) = QL(I,L)+TEMP1(I,7)*TEMP3(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
2577 |
RNEVP |
TL(I,L) = TL(I,L)-TEMP1(I,7)*TEMP3(I,L)*ELOCP |
|
./pkg/fizhi/fizhi_swrad.F |
137 |
SWRIO |
CALL ASTRO ( 20040321, NHMS, XLATS,XLONS, im*jm, TEMP1,RA ) |
|
./pkg/fizhi/fizhi_swrad.F |
143 |
SWRIO |
CALL ASTRO ( NYMD, NHMS, XLATS,XLONS, im*jm, TEMP1,RA ) |
|
./pkg/fizhi/fizhi_swrad.F |
152 |
SWRIO |
zenith(I,j) = TEMP1(I,j) + TEMP2(I,j) |
|
./pkg/fizhi/fizhi_swrad.F |
154 |
SWRIO |
zenith(I,j) = (2./3.)*( zenith(I,j)-TEMP2(I,j)*TEMP1(I,j) |
|
./pkg/fizhi/fizhi_swrad.F |
51 |
SWRIO |
_RL TEMP1(im,jm) |
|
./pkg/fizhi/fizhi_turb.F |
2762 |
PHI |
_RL ZSTAR(N),E1(N),E2(N),TEMP1(N) |
|
./pkg/fizhi/fizhi_turb.F |
2965 |
PHI |
TEMP1(I) = Z(I)*0.5 |
|
./pkg/fizhi/fizhi_turb.F |
2966 |
PHI |
IF( Z(I) .LE. 2. )TEMP1(I) = 1. |
|
./pkg/fizhi/fizhi_turb.F |
2967 |
PHI |
TEMP1(I) = LOG10(TEMP1(I)) |
|
./pkg/fizhi/fizhi_turb.F |
2968 |
PHI |
TEMP1(I) = (TEMP1(I) + 9.3) * 20. |
|
./pkg/fizhi/fizhi_turb.F |
2969 |
PHI |
IF( Z(I) .GT. 2. ) ZSTAR(I) = TEMP1(I) |
|
./pkg/fizhi/fizhi_turb.F |
2978 |
PHI |
TEMP1(I) = ZSTAR(I) - I1(I) |
|
./pkg/fizhi/fizhi_turb.F |
2987 |
PHI |
PHIM(I) = TEMP1(I) * ( E2(I)-E1(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
2999 |
PHI |
PHIH(I) = TEMP1(I) * ( E2(I)-E1(I) ) |