| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
2291 |
TRBFLX |
1 NLEV,INIT,LMIN,LMINQ,LMINQ1,CP,INT1,INT2, |
|
./pkg/fizhi/fizhi_turb.F |
2295 |
TRBFLX |
IF( LMIN .LT. NLEV ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
2296 |
TRBFLX |
NLEVML = NLEV - LMIN |
|
./pkg/fizhi/fizhi_turb.F |
2297 |
TRBFLX |
CALL TRBL20(RI(1,LMIN),STRT(1,LMIN),DW2(1,LMIN),XL(1,LMIN), |
|
./pkg/fizhi/fizhi_turb.F |
2298 |
TRBFLX |
1 KM(1,LMIN),KH(1,LMIN),QE(1,LMIN),QQE(1,LMIN),IBITSTB(1,LMIN), |
|
./pkg/fizhi/fizhi_turb.F |
2316 |
TRBFLX |
1 NLEV,INIT,LMIN,LMINQ,LMINQ1,CP,INT1,INT2, |
|
./pkg/fizhi/fizhi_turb.F |
2323 |
TRBFLX |
IF( LMIN .LT. NLEV ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
2333 |
TRBFLX |
DO L =LMIN,NLEVM1 |
|
./pkg/fizhi/fizhi_turb.F |
2358 |
TRBFLX |
DO L =LMIN,NLEVM1 |
|
./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 |
2386 |
TRBFLX |
ISTNML = irun * ( NLEV - LMIN ) |
|
./pkg/fizhi/fizhi_turb.F |
2388 |
TRBFLX |
IF( LMIN .LT. NLEV ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
2394 |
TRBFLX |
DO L =LMIN,NLEVM1 |
|
./pkg/fizhi/fizhi_turb.F |
2409 |
TRBFLX |
DO L =LMIN,NLEVM1 |
|
./pkg/fizhi/fizhi_turb.F |
3788 |
TRBLEN |
1 QXLM,NLEV,INIT,LMIN,LMINQ,LMINQ1,CP,INT1,INT2, |
|
./pkg/fizhi/fizhi_turb.F |
3896 |
TRBLEN |
DO 40 LMIN = 1,NLEV |
|
./pkg/fizhi/fizhi_turb.F |
3899 |
TRBLEN |
IBIT = IBIT + INT1(I,LMIN) |
|
./pkg/fizhi/fizhi_turb.F |
3903 |
TRBLEN |
LMIN = NLEVP1 |
|
./pkg/fizhi/fizhi_turb.F |
3905 |
TRBLEN |
LMIN = 1 |
|
./pkg/fizhi/fizhi_turb.F |
3919 |
TRBLEN |
IF(LMIN.GE.NLEVP1) GOTO 1100 |
|
./pkg/fizhi/fizhi_turb.F |
3920 |
TRBLEN |
LMIN1 = LMIN - 1 |
|
./pkg/fizhi/fizhi_turb.F |
3960 |
TRBLEN |
IF (LMIN.GT.1) GOTO 400 |
|
./pkg/fizhi/fizhi_turb.F |
3966 |
TRBLEN |
LMINP = LMIN + 1 |
|
./pkg/fizhi/fizhi_turb.F |
3975 |
TRBLEN |
IF(LMIN.GT.NLEVM1) GOTO 600 |
|
./pkg/fizhi/fizhi_turb.F |
3981 |
TRBLEN |
IF(LMIN.GT.NLEV) GOTO 1100 |
|
./pkg/fizhi/fizhi_turb.F |
3983 |
TRBLEN |
DO 1000 LL = LMIN,NLEV-1 |
|
./pkg/fizhi/fizhi_turb.F |
3984 |
TRBLEN |
L = NLEVM1 + LMIN - LL |