| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1581 |
TRBFLX |
_RL XL0(irun,nlev),Q1(irun,nlev-1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2066 |
TRBFLX |
2 DZITRP,STBFCN,XL0,Q1,WRKIT1,WRKIT2,WRKIT3,WRKIT4,irun) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2085 |
TRBFLX |
2 DZITRP,STBFCN,XL0,Q1,WRKIT1,WRKIT2,WRKIT3,WRKIT4,irun) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3402 |
TRBLEN |
2 DZITRP,STBFCN,XL0,Q1,WRKIT1,WRKIT2,WRKIT3,WRKIT4,irun) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3449 |
TRBLEN |
_RL XL0(irun,nlev),Q1(irun,nlev-1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3507 |
TRBLEN |
XL0(I,1) = 0. |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3510 |
TRBLEN |
XL0(I,NLEV) = DZ3(I,NLEV) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3528 |
TRBLEN |
. XL0(I,LMIN1) = (0.5+DZITRP(I,LMIN1)) * DZ3(I,LP1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3536 |
TRBLEN |
XL0(I,LP1) = XL0(I,LP1) + ( (0.5-DZITRP(I,LMIN1)) * DZ3(I,LP1) ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3541 |
TRBLEN |
IF( INT1(I,1).EQ.1 ) XL0(I,1) = XL0(I,1) + DZ3(I,1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3550 |
TRBLEN |
IF( INT1(I,LM1).EQ.1 ) XL0(I,L) = XL0(I,L) + XL0(I,LM1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3557 |
TRBLEN |
XL0(I,NLEV) = XL0(I,NLEV) + XL0(I,NLEVM1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3568 |
TRBLEN |
XL0(I,L) = XL0(I,LP1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3570 |
TRBLEN |
XL0(I,L) = XL0(I,L) + XL0(I,LP1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3578 |
TRBLEN |
IF( XL0(I,1).LT.XL0CNV ) XL0(I,1) = XL0CNV |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3597 |
TRBLEN |
XL0(I,LMINQ) = Q(I,LMINQ) / XL0(I,LMINQ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3598 |
TRBLEN |
XL0(I,LMINQ) = XL0(I,LMINQ) * XL0(I,LMINQ) + 1.0E-20 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3599 |
TRBLEN |
XL0(I,LMINQ) = STBFCN(I,LMINQ) + XL0(I,LMINQ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3600 |
TRBLEN |
XL0(I,LMINQ) = SQRT( XL0(I,LMINQ) ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3601 |
TRBLEN |
XL0(I,LMINQ) = Q(I,LMINQ) / XL0(I,LMINQ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3604 |
TRBLEN |
IF( XL0(I,LMINQ).LT.XL0MIN ) INT2(I,LMINQ) = 1 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3616 |
TRBLEN |
IF( INT2(I,1).EQ.1 ) XL0(I,1) = XL0MIN |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3626 |
TRBLEN |
XL(I,1) = XL0(I,1) * VKZE(I,1) / ( XL0(I,1)+VKZE(I,1) ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3640 |
TRBLEN |
XL0(I,LMINQ1) = XL0(I,LMINQ1+1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3646 |
TRBLEN |
QXLM(I,LMINQ1) = XL0(I,LMINQ1)*VKZM(I,LMINQ1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3647 |
TRBLEN |
. / ( XL0(I,LMINQ1)+VKZM(I,LMINQ1) ) |
|
./pkg/fizhi/fizhi_turb.F |
1541 |
TRBFLX |
_RL XL0(irun,nlev),Q1(irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
2026 |
TRBFLX |
2 DZITRP,STBFCN,XL0,Q1,WRKIT1,WRKIT2,WRKIT3,WRKIT4,irun) |
|
./pkg/fizhi/fizhi_turb.F |
2045 |
TRBFLX |
2 DZITRP,STBFCN,XL0,Q1,WRKIT1,WRKIT2,WRKIT3,WRKIT4,irun) |
|
./pkg/fizhi/fizhi_turb.F |
3363 |
TRBLEN |
2 DZITRP,STBFCN,XL0,Q1,WRKIT1,WRKIT2,WRKIT3,WRKIT4,irun) |
|
./pkg/fizhi/fizhi_turb.F |
3410 |
TRBLEN |
_RL XL0(irun,nlev),Q1(irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
3468 |
TRBLEN |
XL0(I,1) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
3471 |
TRBLEN |
XL0(I,NLEV) = DZ3(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
3489 |
TRBLEN |
. XL0(I,LMIN1) = (0.5+DZITRP(I,LMIN1)) * DZ3(I,LP1) |
|
./pkg/fizhi/fizhi_turb.F |
3497 |
TRBLEN |
XL0(I,LP1) = XL0(I,LP1) + ( (0.5-DZITRP(I,LMIN1)) * DZ3(I,LP1) ) |
|
./pkg/fizhi/fizhi_turb.F |
3502 |
TRBLEN |
IF( INT1(I,1).EQ.1 ) XL0(I,1) = XL0(I,1) + DZ3(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
3511 |
TRBLEN |
IF( INT1(I,LM1).EQ.1 ) XL0(I,L) = XL0(I,L) + XL0(I,LM1) |
|
./pkg/fizhi/fizhi_turb.F |
3518 |
TRBLEN |
XL0(I,NLEV) = XL0(I,NLEV) + XL0(I,NLEVM1) |
|
./pkg/fizhi/fizhi_turb.F |
3529 |
TRBLEN |
XL0(I,L) = XL0(I,LP1) |
|
./pkg/fizhi/fizhi_turb.F |
3531 |
TRBLEN |
XL0(I,L) = XL0(I,L) + XL0(I,LP1) |
|
./pkg/fizhi/fizhi_turb.F |
3539 |
TRBLEN |
IF( XL0(I,1).LT.XL0CNV ) XL0(I,1) = XL0CNV |
|
./pkg/fizhi/fizhi_turb.F |
3558 |
TRBLEN |
XL0(I,LMINQ) = Q(I,LMINQ) / XL0(I,LMINQ) |
|
./pkg/fizhi/fizhi_turb.F |
3559 |
TRBLEN |
XL0(I,LMINQ) = XL0(I,LMINQ) * XL0(I,LMINQ) + 1.0E-20 |
|
./pkg/fizhi/fizhi_turb.F |
3560 |
TRBLEN |
XL0(I,LMINQ) = STBFCN(I,LMINQ) + XL0(I,LMINQ) |
|
./pkg/fizhi/fizhi_turb.F |
3561 |
TRBLEN |
XL0(I,LMINQ) = SQRT( XL0(I,LMINQ) ) |
|
./pkg/fizhi/fizhi_turb.F |
3562 |
TRBLEN |
XL0(I,LMINQ) = Q(I,LMINQ) / XL0(I,LMINQ) |
|
./pkg/fizhi/fizhi_turb.F |
3565 |
TRBLEN |
IF( XL0(I,LMINQ).LT.XL0MIN ) INT2(I,LMINQ) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
3577 |
TRBLEN |
IF( INT2(I,1).EQ.1 ) XL0(I,1) = XL0MIN |
|
./pkg/fizhi/fizhi_turb.F |
3587 |
TRBLEN |
XL(I,1) = XL0(I,1) * VKZE(I,1) / ( XL0(I,1)+VKZE(I,1) ) |
|
./pkg/fizhi/fizhi_turb.F |
3601 |
TRBLEN |
XL0(I,LMINQ1) = XL0(I,LMINQ1+1) |
|
./pkg/fizhi/fizhi_turb.F |
3607 |
TRBLEN |
QXLM(I,LMINQ1) = XL0(I,LMINQ1)*VKZM(I,LMINQ1) |
|
./pkg/fizhi/fizhi_turb.F |
3608 |
TRBLEN |
. / ( XL0(I,LMINQ1)+VKZM(I,LMINQ1) ) |