| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1557 |
TRBFLX |
_RL XL (irun,nlev-1), QXLM (irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
2065 |
TRBFLX |
XL(I,L) = XLSAVE(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2105 |
TRBFLX |
SSDEV(I,1) = XL(I,1)*(AA(I,1)*DSH(I,1)- |
|
./pkg/fizhi/fizhi_turb.F |
2128 |
TRBFLX |
SSDEV(I,L) = XL(I,L-1)*(AA(I,L)*DSH(I,L-1)- |
|
./pkg/fizhi/fizhi_turb.F |
2133 |
TRBFLX |
SSDEV(I,L) = XL(I,L)*(AA(I,L)*DSH(I,L)- |
|
./pkg/fizhi/fizhi_turb.F |
2290 |
TRBFLX |
CALL TRBLEN(STRT,DW2,DZ3,Q,VKZE,VKZM,DTHV,DPK,DU,DV,XL,QXLM, |
|
./pkg/fizhi/fizhi_turb.F |
2297 |
TRBFLX |
CALL TRBL20(RI(1,LMIN),STRT(1,LMIN),DW2(1,LMIN),XL(1,LMIN), |
|
./pkg/fizhi/fizhi_turb.F |
2315 |
TRBFLX |
CALL TRBLEN(STRT,DW2,DZ3,Q,VKZE,VKZM,DTHV,DPK,DU,DV,XL,QXLM, |
|
./pkg/fizhi/fizhi_turb.F |
2379 |
TRBFLX |
CALL TRBL25(Q(1,LMINQ),XL(1,LMINQ),STRT(1,LMINQ),DW2(1,LMINQ), |
|
./pkg/fizhi/fizhi_turb.F |
2396 |
TRBFLX |
P3(I,L) = P3(I,L) * DTAU / XL(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2514 |
TRBFLX |
XQ(I,L)= XL(I,L) * Q(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2714 |
TRBFLX |
XLDIAG(I,L) = XLDIAG(I,L) + AITR*XL(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2728 |
TRBFLX |
XLSAVE(I,L) = XL(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
3787 |
TRBLEN |
SUBROUTINE TRBLEN (STRT,DW2,DZ3,Q,VKZE,VKZM,DTHV,DPK,DU,DV,XL, |
|
./pkg/fizhi/fizhi_turb.F |
3834 |
TRBLEN |
_RL QXLM(irun,NLEV-1),XL(irun,NLEV-1) |
|
./pkg/fizhi/fizhi_turb.F |
4085 |
TRBLEN |
XL(I,L) = XL0(I,L) * VKZE(I,L) / ( XL0(I,L)+VKZE(I,L) ) |
|
./pkg/fizhi/fizhi_turb.F |
4247 |
TRBL20 |
SUBROUTINE TRBL20 (RI,STRT,DW2,XL,ZKM,ZKH,QE,QQE,INTSTB,NLEV, |
|
./pkg/fizhi/fizhi_turb.F |
4283 |
TRBL20 |
_RL XL(irun*NLEV,1),ZKM(irun*NLEV,1), ZKH(irun*NLEV,1) |
|
./pkg/fizhi/fizhi_turb.F |
4348 |
TRBL20 |
QE(I,1) = XL(I,1)*QE(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
4355 |
TRBL25 |
SUBROUTINE TRBL25(Q,XL,STRT,DW2,INTSTB,INTQ,ZKM,ZKH,P3,NLEV, |
|
./pkg/fizhi/fizhi_turb.F |
4389 |
TRBL25 |
_RL Q(irun*NLEV,1),XL(irun*NLEV,1),STRT(irun*NLEV,1) |
|
./pkg/fizhi/fizhi_turb.F |
4424 |
TRBL25 |
XQ(I,1) = XL(I,1) / Q(I,1) |