| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1607 |
TRBFLX |
INTEGER INT1(irun,nlev), INT2(irun,nlev-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 |
3788 |
TRBLEN |
1 QXLM,NLEV,INIT,LMIN,LMINQ,LMINQ1,CP,INT1,INT2, |
|
./pkg/fizhi/fizhi_turb.F |
3840 |
TRBLEN |
INTEGER INT1(irun,nlev), INT2(irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
3880 |
TRBLEN |
INT1(I,L) = 0 |
|
./pkg/fizhi/fizhi_turb.F |
3881 |
TRBLEN |
IF( STBFCN(I,L).LE.0. ) INT1(I,L) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
3892 |
TRBLEN |
IF( (INT1(I,L).EQ.1) .NEQV. (INT1(I,L+1).EQ.1) ) INT2(I,L) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
3899 |
TRBLEN |
IBIT = IBIT + INT1(I,LMIN) |
|
./pkg/fizhi/fizhi_turb.F |
3939 |
TRBLEN |
IF ( INT1(I,L).EQ.1 .OR. INT1(I,L+1).EQ.1 ) INT2(I,L) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
3945 |
TRBLEN |
INT2(I,NLEVM1) = INT1(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
3962 |
TRBLEN |
IF( INT1(I,1).EQ.1 ) XL0(I,1) = XL0(I,1) + DZ3(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
3971 |
TRBLEN |
IF( INT1(I,LM1).EQ.1 ) XL0(I,L) = XL0(I,L) + XL0(I,LM1) |
|
./pkg/fizhi/fizhi_turb.F |
3977 |
TRBLEN |
IF( INT1(I,NLEVM1).EQ.1 .AND. INT1(I,NLEV).EQ.1 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
3987 |
TRBLEN |
IF( INT1(I,LP1).EQ.1 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
3988 |
TRBLEN |
IF( INT1(I,L) .EQ.1 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4020 |
TRBLEN |
INT2(I,L) = 1 - INT1(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
4039 |
TRBLEN |
IF( INT1(I,L).EQ.0 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4060 |
TRBLEN |
INT2(I,L) = 1 - INT1(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
4107 |
TRBLEN |
INT1(I,L) = 0 |
|
./pkg/fizhi/fizhi_turb.F |
4108 |
TRBLEN |
IF ( Q(I,L).LE.Q(I,L+1) ) INT1(I,L) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
4109 |
TRBLEN |
IF ( INT1(I,L).EQ.1 ) THEN |