| 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 |
2374 |
RNEVP |
. TEMP2(IRUN,NLAY),PLKE(IRUN,NLAY+1), |
|
./pkg/fizhi/fizhi_moist.F |
2442 |
RNEVP |
TEMP2(i,L) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
2453 |
RNEVP |
TEMP2(I,L) = PL(I,L)*ZP001 |
|
./pkg/fizhi/fizhi_moist.F |
2454 |
RNEVP |
TEMP2(I,L) = SQRT(TEMP2(I,L)) |
|
./pkg/fizhi/fizhi_moist.F |
2519 |
RNEVP |
exparg = ZM1P04*tmscl*((water(i)*RPHF*TEMP2(I,L))**ZP578) |
|
./pkg/fizhi/fizhi_moist.F |
2570 |
RNEVP |
RPOW=(RLAR(I)*RPHF*TEMP2(I,L))**ZP578 |
|
./pkg/fizhi/fizhi_swrad.F |
141 |
SWRIO |
CALL ASTRO ( 20040321, NHMS2, XLATS,XLONS, im*jm, TEMP2,RA ) |
|
./pkg/fizhi/fizhi_swrad.F |
147 |
SWRIO |
CALL ASTRO ( NYMD2, NHMS2, XLATS,XLONS, im*jm, TEMP2,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 |
52 |
SWRIO |
_RL TEMP2(im,jm) |