| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1602 |
TRBFLX |
_RL XL0(irun,nlev),Q1(irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
2292 |
TRBFLX |
2 DZITRP,STBFCN,XL0,Q1,WRKIT1,WRKIT2,WRKIT3,WRKIT4,irun) |
|
./pkg/fizhi/fizhi_turb.F |
2317 |
TRBFLX |
2 DZITRP,STBFCN,XL0,Q1,WRKIT1,WRKIT2,WRKIT3,WRKIT4,irun) |
|
./pkg/fizhi/fizhi_turb.F |
3789 |
TRBLEN |
2 DZITRP,STBFCN,XL0,Q1,WRKIT1,WRKIT2,WRKIT3,WRKIT4,irun) |
|
./pkg/fizhi/fizhi_turb.F |
3836 |
TRBLEN |
_RL XL0(irun,nlev),Q1(irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
3912 |
TRBLEN |
XL0(I,L) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
3916 |
TRBLEN |
XL0(I,NLEV) = DZ3(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
3941 |
TRBLEN |
. XL0(I,L) = (0.5+DZITRP(I,L)) * DZ3(I,L+1) |
|
./pkg/fizhi/fizhi_turb.F |
3956 |
TRBLEN |
XL0(I,L+1) = XL0(I,L+1) + ( (0.5-DZITRP(I,L)) * DZ3(I,L+1) ) |
|
./pkg/fizhi/fizhi_turb.F |
3962 |
TRBLEN |
IF( INT1(I,1).EQ.1 ) XL0(I,1) = XL0(I,1) + DZ3(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
3971 |
TRBLEN |
IF( INT1(I,LM1).EQ.1 ) XL0(I,L) = XL0(I,L) + XL0(I,LM1) |
|
./pkg/fizhi/fizhi_turb.F |
3978 |
TRBLEN |
XL0(I,NLEV) = XL0(I,NLEV) + XL0(I,NLEVM1) |
|
./pkg/fizhi/fizhi_turb.F |
3989 |
TRBLEN |
XL0(I,L) = XL0(I,LP1) |
|
./pkg/fizhi/fizhi_turb.F |
3991 |
TRBLEN |
XL0(I,L) = XL0(I,L) + XL0(I,LP1) |
|
./pkg/fizhi/fizhi_turb.F |
4003 |
TRBLEN |
IF ( XL0(I,L).LT.XL0CNV ) XL0(I,L) = XL0CNV |
|
./pkg/fizhi/fizhi_turb.F |
4040 |
TRBLEN |
XL0(I,L) = Q(I,L) / XL0(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
4041 |
TRBLEN |
XL0(I,L) = XL0(I,L) * XL0(I,L) + 1.0E-20 |
|
./pkg/fizhi/fizhi_turb.F |
4042 |
TRBLEN |
XL0(I,L) = STBFCN(I,L) + XL0(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
4043 |
TRBLEN |
XL0(I,L) = SQRT( XL0(I,L) ) |
|
./pkg/fizhi/fizhi_turb.F |
4044 |
TRBLEN |
XL0(I,L) = Q(I,L) / XL0(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
4047 |
TRBLEN |
IF( XL0(I,L).LT.XL0MIN ) INT2(I,L) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
4061 |
TRBLEN |
IF ( INT2(I,L).EQ.1 ) XL0(I,L) = XL0MIN |
|
./pkg/fizhi/fizhi_turb.F |
4070 |
TRBLEN |
IF ( INT2(I,L).EQ.1 ) XL0(I,L) = XL0MIN |
|
./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 |
4110 |
TRBLEN |
XL0(I,L) = XL0(I,L+1) |
|
./pkg/fizhi/fizhi_turb.F |
4123 |
TRBLEN |
QXLM(I,L) = XL0(I,L)*VKZM(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
4124 |
TRBLEN |
. / ( XL0(I,L)+VKZM(I,L) ) |