| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_swrad.F |
140 |
SWRIO |
CALL ASTRO ( NYMD2, NHMS2, XLATS,XLONS, im*jm, TEMP2,RA ) |
|
./pkg/fizhi/fizhi_swrad.F |
144 |
SWRIO |
zenith(I,j) = TEMP1(I,j) + TEMP2(I,j) |
|
./pkg/fizhi/fizhi_swrad.F |
146 |
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) |
|
./pkg/fizhi/fizhi_moist.F |
2294 |
RNEVP |
1 PLK,TH,TEMP1,TEMP2,TEMP3,ITMP1,ITMP2,RCON,RLAR,CLSBTH,tmscl, |
|
./pkg/fizhi/fizhi_moist.F |
2302 |
RNEVP |
. TEMP2(IRUN,NLAY),PLKE(IRUN,NLAY+1), |
|
./pkg/fizhi/fizhi_moist.F |
2369 |
RNEVP |
TEMP2(i,L) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
2380 |
RNEVP |
TEMP2(I,L) = PL(I,L)*ZP001 |
|
./pkg/fizhi/fizhi_moist.F |
2381 |
RNEVP |
TEMP2(I,L) = SQRT(TEMP2(I,L)) |
|
./pkg/fizhi/fizhi_moist.F |
2446 |
RNEVP |
exparg = ZM1P04*tmscl*((water(i)*RPHF*TEMP2(I,L))**ZP578) |
|
./pkg/fizhi/fizhi_moist.F |
2497 |
RNEVP |
RPOW=(RLAR(I)*RPHF*TEMP2(I,L))**ZP578 |