| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
2276 |
TRBFLX |
DO 300 LMINQ = 1,NLEVM1 |
|
./pkg/fizhi/fizhi_turb.F |
2279 |
TRBFLX |
IF ( QQ(I,LMINQ).GT.1.e-8 ) IBIT = IBIT + 1 |
|
./pkg/fizhi/fizhi_turb.F |
2283 |
TRBFLX |
LMINQ = NLEV-1 |
|
./pkg/fizhi/fizhi_turb.F |
2285 |
TRBFLX |
LMINQ = 1 |
|
./pkg/fizhi/fizhi_turb.F |
2287 |
TRBFLX |
IF(LMINQ.GT.1)LMINQ1 = LMINQ - 1 |
|
./pkg/fizhi/fizhi_turb.F |
2291 |
TRBFLX |
1 NLEV,INIT,LMIN,LMINQ,LMINQ1,CP,INT1,INT2, |
|
./pkg/fizhi/fizhi_turb.F |
2316 |
TRBFLX |
1 NLEV,INIT,LMIN,LMINQ,LMINQ1,CP,INT1,INT2, |
|
./pkg/fizhi/fizhi_turb.F |
2378 |
TRBFLX |
NLEVML = NLEV - LMINQ |
|
./pkg/fizhi/fizhi_turb.F |
2379 |
TRBFLX |
CALL TRBL25(Q(1,LMINQ),XL(1,LMINQ),STRT(1,LMINQ),DW2(1,LMINQ), |
|
./pkg/fizhi/fizhi_turb.F |
2380 |
TRBFLX |
1 IBITSTB(1,LMINQ),INTQ(1,LMINQ),KM(1,LMINQ),KH(1,LMINQ), |
|
./pkg/fizhi/fizhi_turb.F |
2381 |
TRBFLX |
2 P3(1,LMINQ),NLEVML,nlev,irun) |
|
./pkg/fizhi/fizhi_turb.F |
2384 |
TRBFLX |
IF ( LMINQ .LT. LMIN ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
2385 |
TRBFLX |
LMIN = LMINQ |
|
./pkg/fizhi/fizhi_turb.F |
3788 |
TRBLEN |
1 QXLM,NLEV,INIT,LMIN,LMINQ,LMINQ1,CP,INT1,INT2, |
|
./pkg/fizhi/fizhi_turb.F |
4013 |
TRBLEN |
IF(LMINQ.GT.1) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4024 |
TRBLEN |
IF(LMINQ.LT.NLEV) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4025 |
TRBLEN |
ISTNMQ = irun * (NLEV-LMINQ) |
|
./pkg/fizhi/fizhi_turb.F |
4037 |
TRBLEN |
DO L =LMINQ,NLEVM1 |