| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1938 |
TRBFLX |
DO 300 LMINQ = 1,NLEVM1 |
|
./pkg/fizhi/fizhi_turb.F |
1941 |
TRBFLX |
IF ( QQ(I,LMINQ).GT.1.e-8 ) IBIT = IBIT + 1 |
|
./pkg/fizhi/fizhi_turb.F |
1945 |
TRBFLX |
LMINQ = NLEV-1 |
|
./pkg/fizhi/fizhi_turb.F |
1947 |
TRBFLX |
LMINQ = 1 |
|
./pkg/fizhi/fizhi_turb.F |
1949 |
TRBFLX |
IF(LMINQ.GT.1)LMINQ1 = LMINQ - 1 |
|
./pkg/fizhi/fizhi_turb.F |
1953 |
TRBFLX |
1 NLEV,INIT,LMIN,LMINQ,LMINQ1,CP,INT1,INT2, |
|
./pkg/fizhi/fizhi_turb.F |
1974 |
TRBFLX |
1 NLEV,INIT,LMIN,LMINQ,LMINQ1,CP,INT1,INT2, |
|
./pkg/fizhi/fizhi_turb.F |
2013 |
TRBFLX |
NLEVML = NLEV - LMINQ |
|
./pkg/fizhi/fizhi_turb.F |
2014 |
TRBFLX |
CALL TRBL25(Q(1,LMINQ),XL(1,LMINQ),STRT(1,LMINQ),DW2(1,LMINQ), |
|
./pkg/fizhi/fizhi_turb.F |
2015 |
TRBFLX |
1 IBITSTB(1,LMINQ),INTQ(1,LMINQ),KM(1,LMINQ),KH(1,LMINQ), |
|
./pkg/fizhi/fizhi_turb.F |
2016 |
TRBFLX |
2 P3(1,LMINQ),NLEVML,nlev,irun) |
|
./pkg/fizhi/fizhi_turb.F |
2019 |
TRBFLX |
IF ( LMINQ .LT. LMIN ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
2020 |
TRBFLX |
LMIN = LMINQ |
|
./pkg/fizhi/fizhi_turb.F |
3339 |
TRBLEN |
1 QXLM,NLEV,INIT,LMIN,LMINQ,LMINQ1,CP,INT1,INT2, |
|
./pkg/fizhi/fizhi_turb.F |
3533 |
TRBLEN |
IF(LMINQ.GT.1) THEN |
|
./pkg/fizhi/fizhi_turb.F |
3541 |
TRBLEN |
IF(LMINQ.LT.NLEV) THEN |
|
./pkg/fizhi/fizhi_turb.F |
3542 |
TRBLEN |
ISTNMQ = irun * (NLEV-LMINQ) |
|
./pkg/fizhi/fizhi_turb.F |
3543 |
TRBLEN |
DO L =LMINQ,NLEVM1 |