| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
106 |
MOISTIO |
_RL PL(ISTRIP,lm) , PLK(ISTRIP,lm) |
|
./pkg/fizhi/fizhi_moist.F |
2259 |
RNCL |
SUBROUTINE RNCL(lng, PL, RNO, CLF) |
|
./pkg/fizhi/fizhi_moist.F |
2269 |
RNCL |
_RL PL(lng), RNO(lng), CLF(lng) |
|
./pkg/fizhi/fizhi_moist.F |
2300 |
RNCL |
IF (PL(I) .GE. P4 .AND. PL(I) .LE. P6) THEN |
|
./pkg/fizhi/fizhi_moist.F |
2301 |
RNCL |
CLF(I) = (P6-PL(I))*CFAC |
|
./pkg/fizhi/fizhi_moist.F |
2302 |
RNCL |
ELSEIF (PL(I) .GT. P6 ) THEN |
|
./pkg/fizhi/fizhi_moist.F |
2309 |
ACRITN |
SUBROUTINE ACRITN ( lng,PL,PLB,ACR ) |
|
./pkg/fizhi/fizhi_moist.F |
2323 |
ACRITN |
_RL PL(lng), PLB(lng), ACR(lng) |
|
./pkg/fizhi/fizhi_moist.F |
2365 |
RNEVP |
SUBROUTINE RNEVP(NN,IRUN,NLAY,TL,QL,RAIN,PL,CLFRAC,SP,DP,PLKE, |
|
./pkg/fizhi/fizhi_moist.F |
2373 |
RNEVP |
. PL(IRUN,NLAY),CLFRAC(IRUN,NLAY),SP(IRUN),TEMP1(IRUN,NLAY), |
|
./pkg/fizhi/fizhi_moist.F |
2453 |
RNEVP |
TEMP2(I,L) = PL(I,L)*ZP001 |
|
./pkg/fizhi/fizhi_moist.F |
356 |
MOISTIO |
CALL STRIP ( plzgather, PL ,im*jm,ISTRIP,lm,NN ) |
|
./pkg/fizhi/fizhi_moist.F |
654 |
MOISTIO |
CALL RNEVP (NN,ISTRIP,lm,TL,SHL,PCPEN,PL,CLFRAC,SP,DP,PLKE, |
|
./pkg/fizhi/fizhi_turb.F |
1267 |
TRBFLX |
SUBROUTINE TRBFLX (NN,TH,THV,SH,U,V,QQ,PL,PLE,PLK,PLKE,DPSTR, |
|
./pkg/fizhi/fizhi_turb.F |
1317 |
TRBFLX |
_RL PL(irun,NLEV),PLE(irun,NLEV+1),PLK(irun,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
1626 |
TRBFLX |
RHODZ1(I,L) = PL(I,L+1) / RHODZ1(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
1658 |
TRBFLX |
FLXFCE(I,L) = PL(I,L+1) - PL(I,L) |