| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
2010 |
TRBFLX |
DO 300 LMINQ = 1,NLEVM1 |
|
./pkg/fizhi/fizhi_turb.F |
2013 |
TRBFLX |
IF ( QQ(I,LMINQ).GT.1.e-8 ) IBIT = IBIT + 1 |
|
./pkg/fizhi/fizhi_turb.F |
2017 |
TRBFLX |
LMINQ = NLEV-1 |
|
./pkg/fizhi/fizhi_turb.F |
2019 |
TRBFLX |
LMINQ = 1 |
|
./pkg/fizhi/fizhi_turb.F |
2021 |
TRBFLX |
IF(LMINQ.GT.1)LMINQ1 = LMINQ - 1 |
|
./pkg/fizhi/fizhi_turb.F |
2025 |
TRBFLX |
1 NLEV,INIT,LMIN,LMINQ,LMINQ1,CP,INT1,INT2, |
|
./pkg/fizhi/fizhi_turb.F |
2044 |
TRBFLX |
1 NLEV,INIT,LMIN,LMINQ,LMINQ1,CP,INT1,INT2, |
|
./pkg/fizhi/fizhi_turb.F |
2079 |
TRBFLX |
NLEVML = NLEV - LMINQ |
|
./pkg/fizhi/fizhi_turb.F |
2080 |
TRBFLX |
CALL TRBL25(Q(1,LMINQ),XL(1,LMINQ),STRT(1,LMINQ),DW2(1,LMINQ), |
|
./pkg/fizhi/fizhi_turb.F |
2081 |
TRBFLX |
1 IBITSTB(1,LMINQ),INTQ(1,LMINQ),KM(1,LMINQ),KH(1,LMINQ), |
|
./pkg/fizhi/fizhi_turb.F |
2082 |
TRBFLX |
2 P3(1,LMINQ),NLEVML,nlev,irun) |
|
./pkg/fizhi/fizhi_turb.F |
2085 |
TRBFLX |
IF ( LMINQ .LT. LMIN ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
2086 |
TRBFLX |
LMIN = LMINQ |
|
./pkg/fizhi/fizhi_turb.F |
3380 |
TRBLEN |
1 QXLM,NLEV,INIT,LMIN,LMINQ,LMINQ1,CP,INT1,INT2, |
|
./pkg/fizhi/fizhi_turb.F |
3566 |
TRBLEN |
IF(LMINQ.GT.1) THEN |
|
./pkg/fizhi/fizhi_turb.F |
3572 |
TRBLEN |
IF(LMINQ.LT.NLEV) THEN |
|
./pkg/fizhi/fizhi_turb.F |
3573 |
TRBLEN |
ISTNMQ = irun * (NLEV-LMINQ) |
|
./pkg/fizhi/fizhi_turb.F |
3575 |
TRBLEN |
IF( INT1(I,LMINQ).EQ.0 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
3576 |
TRBLEN |
XL0(I,LMINQ) = Q(I,LMINQ) / XL0(I,LMINQ) |
|
./pkg/fizhi/fizhi_turb.F |
3577 |
TRBLEN |
XL0(I,LMINQ) = XL0(I,LMINQ) * XL0(I,LMINQ) + 1.0E-20 |
|
./pkg/fizhi/fizhi_turb.F |
3578 |
TRBLEN |
XL0(I,LMINQ) = STBFCN(I,LMINQ) + XL0(I,LMINQ) |
|
./pkg/fizhi/fizhi_turb.F |
3579 |
TRBLEN |
XL0(I,LMINQ) = SQRT( XL0(I,LMINQ) ) |
|
./pkg/fizhi/fizhi_turb.F |
3580 |
TRBLEN |
XL0(I,LMINQ) = Q(I,LMINQ) / XL0(I,LMINQ) |
|
./pkg/fizhi/fizhi_turb.F |
3582 |
TRBLEN |
INT2(I,LMINQ) = 0 |
|
./pkg/fizhi/fizhi_turb.F |
3583 |
TRBLEN |
IF( XL0(I,LMINQ).LT.XL0MIN ) INT2(I,LMINQ) = 1 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
2010 |
TRBFLX |
DO 300 LMINQ = 1,NLEVM1 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
2013 |
TRBFLX |
IF ( QQ(I,LMINQ).GT.1.e-8 ) IBIT = IBIT + 1 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
2017 |
TRBFLX |
LMINQ = NLEV-1 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
2019 |
TRBFLX |
LMINQ = 1 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
2021 |
TRBFLX |
IF(LMINQ.GT.1)LMINQ1 = LMINQ - 1 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
2025 |
TRBFLX |
1 NLEV,INIT,LMIN,LMINQ,LMINQ1,CP,INT1,INT2, |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
2044 |
TRBFLX |
1 NLEV,INIT,LMIN,LMINQ,LMINQ1,CP,INT1,INT2, |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
2079 |
TRBFLX |
NLEVML = NLEV - LMINQ |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
2080 |
TRBFLX |
CALL TRBL25(Q(1,LMINQ),XL(1,LMINQ),STRT(1,LMINQ),DW2(1,LMINQ), |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
2081 |
TRBFLX |
1 IBITSTB(1,LMINQ),INTQ(1,LMINQ),KM(1,LMINQ),KH(1,LMINQ), |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
2082 |
TRBFLX |
2 P3(1,LMINQ),NLEVML,nlev,irun) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
2085 |
TRBFLX |
IF ( LMINQ .LT. LMIN ) THEN |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
2086 |
TRBFLX |
LMIN = LMINQ |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3362 |
TRBLEN |
1 QXLM,NLEV,INIT,LMIN,LMINQ,LMINQ1,CP,INT1,INT2, |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3548 |
TRBLEN |
IF(LMINQ.GT.1) THEN |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3554 |
TRBLEN |
IF(LMINQ.LT.NLEV) THEN |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3555 |
TRBLEN |
ISTNMQ = irun * (NLEV-LMINQ) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3557 |
TRBLEN |
IF( INT1(I,LMINQ).EQ.0 ) THEN |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3558 |
TRBLEN |
XL0(I,LMINQ) = Q(I,LMINQ) / XL0(I,LMINQ) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3559 |
TRBLEN |
XL0(I,LMINQ) = XL0(I,LMINQ) * XL0(I,LMINQ) + 1.0E-20 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3560 |
TRBLEN |
XL0(I,LMINQ) = STBFCN(I,LMINQ) + XL0(I,LMINQ) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3561 |
TRBLEN |
XL0(I,LMINQ) = SQRT( XL0(I,LMINQ) ) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3562 |
TRBLEN |
XL0(I,LMINQ) = Q(I,LMINQ) / XL0(I,LMINQ) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3564 |
TRBLEN |
INT2(I,LMINQ) = 0 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3565 |
TRBLEN |
IF( XL0(I,LMINQ).LT.XL0MIN ) INT2(I,LMINQ) = 1 |