| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1432 |
TRBFLX |
_RL XL0(irun,nlev),Q1(irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
1954 |
TRBFLX |
2 DZITRP,STBFCN,XL0,Q1,WRKIT1,WRKIT2,WRKIT3,WRKIT4,irun) |
|
./pkg/fizhi/fizhi_turb.F |
1975 |
TRBFLX |
2 DZITRP,STBFCN,XL0,Q1,WRKIT1,WRKIT2,WRKIT3,WRKIT4,irun) |
|
./pkg/fizhi/fizhi_turb.F |
3340 |
TRBLEN |
2 DZITRP,STBFCN,XL0,Q1,WRKIT1,WRKIT2,WRKIT3,WRKIT4,irun) |
|
./pkg/fizhi/fizhi_turb.F |
3382 |
TRBLEN |
_RL XL0(irun,nlev),Q1(irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
3446 |
TRBLEN |
XL0(I,L) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
3450 |
TRBLEN |
XL0(I,NLEV) = DZ3(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
3469 |
TRBLEN |
& XL0(I,L) = (0.5+DZITRP(I,L)) * DZ3(I,L+1) |
|
./pkg/fizhi/fizhi_turb.F |
3479 |
TRBLEN |
XL0(I,L+1) = XL0(I,L+1) + ( (0.5-DZITRP(I,L)) * DZ3(I,L+1) ) |
|
./pkg/fizhi/fizhi_turb.F |
3485 |
TRBLEN |
IF( INT1(I,1).EQ.1 ) XL0(I,1) = XL0(I,1) + DZ3(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
3494 |
TRBLEN |
IF( INT1(I,LM1).EQ.1 ) XL0(I,L) = XL0(I,L) + XL0(I,LM1) |
|
./pkg/fizhi/fizhi_turb.F |
3501 |
TRBLEN |
XL0(I,NLEV) = XL0(I,NLEV) + XL0(I,NLEVM1) |
|
./pkg/fizhi/fizhi_turb.F |
3512 |
TRBLEN |
XL0(I,L) = XL0(I,LP1) |
|
./pkg/fizhi/fizhi_turb.F |
3514 |
TRBLEN |
XL0(I,L) = XL0(I,L) + XL0(I,LP1) |
|
./pkg/fizhi/fizhi_turb.F |
3523 |
TRBLEN |
IF ( XL0(I,L).LT.XL0CNV ) XL0(I,L) = XL0CNV |
|
./pkg/fizhi/fizhi_turb.F |
3546 |
TRBLEN |
XL0(I,L) = Q(I,L) / XL0(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
3547 |
TRBLEN |
XL0(I,L) = XL0(I,L) * XL0(I,L) + 1.0E-20 |
|
./pkg/fizhi/fizhi_turb.F |
3548 |
TRBLEN |
XL0(I,L) = STBFCN(I,L) + XL0(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
3549 |
TRBLEN |
XL0(I,L) = SQRT( XL0(I,L) ) |
|
./pkg/fizhi/fizhi_turb.F |
3550 |
TRBLEN |
XL0(I,L) = Q(I,L) / XL0(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
3553 |
TRBLEN |
IF( XL0(I,L).LT.XL0MIN ) INT2(I,L) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
3564 |
TRBLEN |
IF ( INT2(I,L).EQ.1 ) XL0(I,L) = XL0MIN |
|
./pkg/fizhi/fizhi_turb.F |
3570 |
TRBLEN |
IF ( INT2(I,L).EQ.1 ) XL0(I,L) = XL0MIN |
|
./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 |
3598 |
TRBLEN |
XL0(I,L) = XL0(I,L+1) |
|
./pkg/fizhi/fizhi_turb.F |
3606 |
TRBLEN |
QXLM(I,L) = XL0(I,L)*VKZM(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
3607 |
TRBLEN |
& / ( XL0(I,L)+VKZM(I,L) ) |