| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1437 |
TRBFLX |
INTEGER INT1(irun,nlev), INT2(irun,nlev-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 |
3339 |
TRBLEN |
1 QXLM,NLEV,INIT,LMIN,LMINQ,LMINQ1,CP,INT1,INT2, |
|
./pkg/fizhi/fizhi_turb.F |
3386 |
TRBLEN |
INTEGER INT1(irun,nlev), INT2(irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
3428 |
TRBLEN |
INT2(I,L) = 0 |
|
./pkg/fizhi/fizhi_turb.F |
3429 |
TRBLEN |
IF( (INT1(I,L).EQ.1) .NEQV. (INT1(I,L+1).EQ.1) ) INT2(I,L) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
3458 |
TRBLEN |
CALL TRBITP ( STBFCN(1,LMIN1),INT2(1,LMIN1),DTHV(1,LMIN1), |
|
./pkg/fizhi/fizhi_turb.F |
3466 |
TRBLEN |
INT2(I,L) = 0 |
|
./pkg/fizhi/fizhi_turb.F |
3467 |
TRBLEN |
IF ( INT1(I,L).EQ.1 .OR. INT1(I,L+1).EQ.1 ) INT2(I,L) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
3468 |
TRBLEN |
IF ( INT2(I,L).EQ.1 ) |
|
./pkg/fizhi/fizhi_turb.F |
3473 |
TRBLEN |
INT2(I,NLEVM1) = INT1(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
3478 |
TRBLEN |
IF ( INT2(I,L).EQ.1 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
3537 |
TRBLEN |
INT2(I,L) = 1 - INT1(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
3552 |
TRBLEN |
INT2(I,L) = 0 |
|
./pkg/fizhi/fizhi_turb.F |
3553 |
TRBLEN |
IF( XL0(I,L).LT.XL0MIN ) INT2(I,L) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
3563 |
TRBLEN |
INT2(I,L) = 1 - INT1(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
3564 |
TRBLEN |
IF ( INT2(I,L).EQ.1 ) XL0(I,L) = XL0MIN |
|
./pkg/fizhi/fizhi_turb.F |
3570 |
TRBLEN |
IF ( INT2(I,L).EQ.1 ) XL0(I,L) = XL0MIN |
|
./pkg/fizhi/fizhi_turb.F |
4433 |
ZCSUB |
integer INT2(IRUN),INT3(IRUN),INT4(IRUN) |
|
./pkg/fizhi/fizhi_turb.F |
4480 |
ZCSUB |
INT2(I) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
4482 |
ZCSUB |
INT2(I) = 0 |
|
./pkg/fizhi/fizhi_turb.F |
4489 |
ZCSUB |
IF( INT2(I).EQ.1 ) AA(I,K) = AA2(K) |