| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1559 |
TRBFLX |
_RL P3 (irun,nlev-1), XQ (irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
2262 |
TRBFLX |
P3(I,L) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
2371 |
TRBFLX |
IF(IBITSTB(I,L).EQ.1 ) P3(I,L) = (2.*B3) * |
|
./pkg/fizhi/fizhi_turb.F |
2381 |
TRBFLX |
2 P3(1,LMINQ),NLEVML,nlev,irun) |
|
./pkg/fizhi/fizhi_turb.F |
2396 |
TRBFLX |
P3(I,L) = P3(I,L) * DTAU / XL(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2397 |
TRBFLX |
TEMP(I,L) = QQE(I,L) * P3(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2416 |
TRBFLX |
5 P3(I,L) = XQ(I,L) / QQE(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2470 |
TRBFLX |
CALL TRBDIF(QQ(1,LMINQ1),P3(1,LMINQ1),RHOKDZ(1,LMINQ1), |
|
./pkg/fizhi/fizhi_turb.F |
4355 |
TRBL25 |
SUBROUTINE TRBL25(Q,XL,STRT,DW2,INTSTB,INTQ,ZKM,ZKH,P3,NLEV, |
|
./pkg/fizhi/fizhi_turb.F |
4392 |
TRBL25 |
_RL ZKM(irun*NLEV,1),ZKH(irun*NLEV,1),P3(irun*NLEV,1) |
|
./pkg/fizhi/fizhi_turb.F |
4438 |
TRBL25 |
P3(I,1) = ZKH(I,1)*STRT(I,1) + B3 |
|
./pkg/fizhi/fizhi_turb.F |
4439 |
TRBL25 |
P3(I,1) = 2. * ( ZKM(I,1)*DW2(I,1) - P3(I,1) ) |
|
./pkg/fizhi/fizhi_turb.F |
4440 |
TRBL25 |
P3(I,1) = P3(I,1)*Q(I,1) |