| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1387 |
TRBFLX |
_RL XL (irun,nlev-1), QXLM (irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
1806 |
TRBFLX |
XL(I,L) = XLSAVE(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
1834 |
TRBFLX |
SSDEV(I,1) = XL(I,1)*(AA(I,1)*DSH(I,1)- |
|
./pkg/fizhi/fizhi_turb.F |
1843 |
TRBFLX |
SSDEV(I,L) = XL(I,L-1)*(AA(I,L)*DSH(I,L-1)- |
|
./pkg/fizhi/fizhi_turb.F |
1848 |
TRBFLX |
SSDEV(I,L) = XL(I,L)*(AA(I,L)*DSH(I,L)- |
|
./pkg/fizhi/fizhi_turb.F |
1952 |
TRBFLX |
CALL TRBLEN(STRT,DW2,DZ3,Q,VKZE,VKZM,DTHV,DPK,DU,DV,XL,QXLM, |
|
./pkg/fizhi/fizhi_turb.F |
1959 |
TRBFLX |
CALL TRBL20(RI(1,LMIN),STRT(1,LMIN),DW2(1,LMIN),XL(1,LMIN), |
|
./pkg/fizhi/fizhi_turb.F |
1973 |
TRBFLX |
CALL TRBLEN(STRT,DW2,DZ3,Q,VKZE,VKZM,DTHV,DPK,DU,DV,XL,QXLM, |
|
./pkg/fizhi/fizhi_turb.F |
2014 |
TRBFLX |
CALL TRBL25(Q(1,LMINQ),XL(1,LMINQ),STRT(1,LMINQ),DW2(1,LMINQ), |
|
./pkg/fizhi/fizhi_turb.F |
2026 |
TRBFLX |
P3(I,L) = P3(I,L) * DTAU / XL(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2114 |
TRBFLX |
XQ(I,L)= XL(I,L) * Q(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2275 |
TRBFLX |
XLDIAG(I,L) = XLDIAG(I,L) + AITR*XL(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2286 |
TRBFLX |
XLSAVE(I,L) = XL(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
3338 |
TRBLEN |
SUBROUTINE TRBLEN (STRT,DW2,DZ3,Q,VKZE,VKZM,DTHV,DPK,DU,DV,XL, |
|
./pkg/fizhi/fizhi_turb.F |
3380 |
TRBLEN |
_RL QXLM(irun,NLEV-1),XL(irun,NLEV-1) |
|
./pkg/fizhi/fizhi_turb.F |
3582 |
TRBLEN |
XL(I,L) = XL0(I,L) * VKZE(I,L) / ( XL0(I,L)+VKZE(I,L) ) |
|
./pkg/fizhi/fizhi_turb.F |
3706 |
TRBL20 |
SUBROUTINE TRBL20 (RI,STRT,DW2,XL,ZKM,ZKH,QE,QQE,INTSTB,NLEV, |
|
./pkg/fizhi/fizhi_turb.F |
3733 |
TRBL20 |
_RL XL(irun*NLEV,1),ZKM(irun*NLEV,1), ZKH(irun*NLEV,1) |
|
./pkg/fizhi/fizhi_turb.F |
3798 |
TRBL20 |
QE(I,1) = XL(I,1)*QE(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
3808 |
TRBL25 |
SUBROUTINE TRBL25(Q,XL,STRT,DW2,INTSTB,INTQ,ZKM,ZKH,P3,NLEV, |
|
./pkg/fizhi/fizhi_turb.F |
3833 |
TRBL25 |
_RL Q(irun*NLEV,1),XL(irun*NLEV,1),STRT(irun*NLEV,1) |
|
./pkg/fizhi/fizhi_turb.F |
3868 |
TRBL25 |
XQ(I,1) = XL(I,1) / Q(I,1) |