File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_turb.F |
1373 |
TRBFLX |
_RL DPK(irun,nlev), STRT(irun,nlev) |
./pkg/fizhi/fizhi_turb.F |
1896 |
TRBFLX |
STRT(I,L) = CP * DTHV(I,L) * DPK(I,L) |
./pkg/fizhi/fizhi_turb.F |
1899 |
TRBFLX |
RI(I,L) = STRT(I,L) / DW2(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 |
3338 |
TRBLEN |
SUBROUTINE TRBLEN (STRT,DW2,DZ3,Q,VKZE,VKZM,DTHV,DPK,DU,DV,XL, |
./pkg/fizhi/fizhi_turb.F |
3376 |
TRBLEN |
_RL STRT(irun,NLEV),DW2(irun,NLEV),DZ3(irun,NLEV) |
./pkg/fizhi/fizhi_turb.F |
3420 |
TRBLEN |
STBFCN(I,L) = STRT(I,L) - RICR * DW2(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 |
3732 |
TRBL20 |
_RL RI(irun*NLEV,1),STRT(irun*NLEV,1),DW2(irun*NLEV,1) |
./pkg/fizhi/fizhi_turb.F |
3788 |
TRBL20 |
QE(I,1) = ZKM(I,1)*DW2(I,1) - ZKH(I,1)*STRT(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 |
3870 |
TRBL25 |
STRT(I,1) = XQ(I,1) * STRT(I,1) |
./pkg/fizhi/fizhi_turb.F |
3872 |
TRBL25 |
F2(I,1) = 1.+FF2 * STRT(I,1) |
./pkg/fizhi/fizhi_turb.F |
3873 |
TRBL25 |
F3(I,1) = 1.+FF3 * STRT(I,1) |
./pkg/fizhi/fizhi_turb.F |
3874 |
TRBL25 |
F4(I,1) = 1.+FF4 * STRT(I,1) |
./pkg/fizhi/fizhi_turb.F |
3882 |
TRBL25 |
P3(I,1) = ZKH(I,1)*STRT(I,1) + B3 |