| 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 |
2375 |
RNEVP |
. RCON(IRUN),RLAR(IRUN),DP(IRUN,NLAY),PLK(IRUN,NLAY),TH(IRUN,NLAY), |
|
./pkg/fizhi/fizhi_moist.F |
2433 |
RNEVP |
RLAR(I) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
2560 |
RNEVP |
RLAR(I) = RLAR(I)-rainmax(I) |
|
./pkg/fizhi/fizhi_moist.F |
2569 |
RNEVP |
IF((RLAR(I).GT.0.0).AND.(rainmax(I).GT.0.0))THEN |
|
./pkg/fizhi/fizhi_moist.F |
2570 |
RNEVP |
RPOW=(RLAR(I)*RPHF*TEMP2(I,L))**ZP578 |
|
./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) |