File |
Line number |
Procedure |
Code |
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1538 |
TRBFLX |
_RL P3 (irun,nlev-1), XQ (irun,nlev-1) |
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2031 |
TRBFLX |
P3(I,1) = 0. |
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2113 |
TRBFLX |
IF(IBITSTB(I,LMIN).EQ.1 ) P3(I,LMIN) = (2.*B3) * |
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2122 |
TRBFLX |
2 P3(1,LMINQ),NLEVML,nlev,irun) |
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2131 |
TRBFLX |
P3(I,LMIN) = P3(I,LMIN) * DTAU / XL(I,LMIN) |
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2132 |
TRBFLX |
TEMP(I,LMIN) = QQE(I,LMIN) * P3(I,LMIN) |
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2141 |
TRBFLX |
5 P3(I,LMIN) = XQ(I,LMIN) / QQE(I,LMIN) |
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2170 |
TRBFLX |
CALL TRBDIF(QQ(1,LMINQ1),P3(1,LMINQ1),RHOKDZ(1,LMINQ1), |
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3842 |
TRBL25 |
SUBROUTINE TRBL25(Q,XL,STRT,DW2,INTSTB,INTQ,ZKM,ZKH,P3,NLEV, |
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3875 |
TRBL25 |
_RL ZKM(irun,NLEV),ZKH(irun,NLEV),P3(irun,NLEV) |
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3921 |
TRBL25 |
P3(I,1) = ZKH(I,1)*STRT(I,1) + B3 |
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3922 |
TRBL25 |
P3(I,1) = 2. * ( ZKM(I,1)*DW2(I,1) - P3(I,1) ) |
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3923 |
TRBL25 |
P3(I,1) = P3(I,1)*Q(I,1) |
./pkg/fizhi/fizhi_turb.F |
1498 |
TRBFLX |
_RL P3 (irun,nlev-1), XQ (irun,nlev-1) |
./pkg/fizhi/fizhi_turb.F |
1991 |
TRBFLX |
P3(I,1) = 0. |
./pkg/fizhi/fizhi_turb.F |
2073 |
TRBFLX |
IF(IBITSTB(I,LMIN).EQ.1 ) P3(I,LMIN) = (2.*B3) * |
./pkg/fizhi/fizhi_turb.F |
2082 |
TRBFLX |
2 P3(1,LMINQ),NLEVML,nlev,irun) |
./pkg/fizhi/fizhi_turb.F |
2091 |
TRBFLX |
P3(I,LMIN) = P3(I,LMIN) * DTAU / XL(I,LMIN) |
./pkg/fizhi/fizhi_turb.F |
2092 |
TRBFLX |
TEMP(I,LMIN) = QQE(I,LMIN) * P3(I,LMIN) |
./pkg/fizhi/fizhi_turb.F |
2101 |
TRBFLX |
5 P3(I,LMIN) = XQ(I,LMIN) / QQE(I,LMIN) |
./pkg/fizhi/fizhi_turb.F |
2130 |
TRBFLX |
CALL TRBDIF(QQ(1,LMINQ1),P3(1,LMINQ1),RHOKDZ(1,LMINQ1), |
./pkg/fizhi/fizhi_turb.F |
3803 |
TRBL25 |
SUBROUTINE TRBL25(Q,XL,STRT,DW2,INTSTB,INTQ,ZKM,ZKH,P3,NLEV, |
./pkg/fizhi/fizhi_turb.F |
3836 |
TRBL25 |
_RL ZKM(irun,NLEV),ZKH(irun,NLEV),P3(irun,NLEV) |
./pkg/fizhi/fizhi_turb.F |
3882 |
TRBL25 |
P3(I,1) = ZKH(I,1)*STRT(I,1) + B3 |
./pkg/fizhi/fizhi_turb.F |
3883 |
TRBL25 |
P3(I,1) = 2. * ( ZKM(I,1)*DW2(I,1) - P3(I,1) ) |
./pkg/fizhi/fizhi_turb.F |
3884 |
TRBL25 |
P3(I,1) = P3(I,1)*Q(I,1) |