| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1953 |
TRBFLX |
1 NLEV,INIT,LMIN,LMINQ,LMINQ1,CP,INT1,INT2, |
|
./pkg/fizhi/fizhi_turb.F |
1957 |
TRBFLX |
IF( LMIN .LT. NLEV ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
1958 |
TRBFLX |
NLEVML = NLEV - LMIN |
|
./pkg/fizhi/fizhi_turb.F |
1959 |
TRBFLX |
CALL TRBL20(RI(1,LMIN),STRT(1,LMIN),DW2(1,LMIN),XL(1,LMIN), |
|
./pkg/fizhi/fizhi_turb.F |
1960 |
TRBFLX |
1 KM(1,LMIN),KH(1,LMIN),QE(1,LMIN),QQE(1,LMIN),IBITSTB(1,LMIN), |
|
./pkg/fizhi/fizhi_turb.F |
1974 |
TRBFLX |
1 NLEV,INIT,LMIN,LMINQ,LMINQ1,CP,INT1,INT2, |
|
./pkg/fizhi/fizhi_turb.F |
1981 |
TRBFLX |
IF( LMIN .LT. NLEV ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
1983 |
TRBFLX |
DO L =LMIN,NLEVM1 |
|
./pkg/fizhi/fizhi_turb.F |
1993 |
TRBFLX |
DO L =LMIN,NLEVM1 |
|
./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 |
2021 |
TRBFLX |
ISTNML = irun * ( NLEV - LMIN ) |
|
./pkg/fizhi/fizhi_turb.F |
2023 |
TRBFLX |
IF( LMIN .LT. NLEV ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
2024 |
TRBFLX |
DO L =LMIN,NLEVM1 |
|
./pkg/fizhi/fizhi_turb.F |
2031 |
TRBFLX |
DO L =LMIN,NLEVM1 |
|
./pkg/fizhi/fizhi_turb.F |
3339 |
TRBLEN |
1 QXLM,NLEV,INIT,LMIN,LMINQ,LMINQ1,CP,INT1,INT2, |
|
./pkg/fizhi/fizhi_turb.F |
3433 |
TRBLEN |
DO 40 LMIN = 1,NLEV |
|
./pkg/fizhi/fizhi_turb.F |
3436 |
TRBLEN |
IBIT = IBIT + INT1(I,LMIN) |
|
./pkg/fizhi/fizhi_turb.F |
3440 |
TRBLEN |
LMIN = NLEVP1 |
|
./pkg/fizhi/fizhi_turb.F |
3442 |
TRBLEN |
LMIN = 1 |
|
./pkg/fizhi/fizhi_turb.F |
3453 |
TRBLEN |
IF(LMIN.GE.NLEVP1) GOTO 1100 |
|
./pkg/fizhi/fizhi_turb.F |
3454 |
TRBLEN |
LMIN1 = LMIN - 1 |
|
./pkg/fizhi/fizhi_turb.F |
3483 |
TRBLEN |
IF (LMIN.GT.1) GOTO 400 |
|
./pkg/fizhi/fizhi_turb.F |
3489 |
TRBLEN |
LMINP = LMIN + 1 |
|
./pkg/fizhi/fizhi_turb.F |
3498 |
TRBLEN |
IF(LMIN.GT.NLEVM1) GOTO 600 |
|
./pkg/fizhi/fizhi_turb.F |
3504 |
TRBLEN |
IF(LMIN.GT.NLEV) GOTO 1100 |
|
./pkg/fizhi/fizhi_turb.F |
3506 |
TRBLEN |
DO 1000 LL = LMIN,NLEV-1 |
|
./pkg/fizhi/fizhi_turb.F |
3507 |
TRBLEN |
L = NLEVM1 + LMIN - LL |