| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
3075 |
PSI |
integer INTSTB(irun),INTZ0(irun) |
|
./pkg/fizhi/fizhi_turb.F |
3106 |
PSI |
INTSTB(I) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
3108 |
PSI |
INTSTB(I) = 0 |
|
./pkg/fizhi/fizhi_turb.F |
3120 |
PSI |
IF (INTSTB(I).EQ.1)THEN |
|
./pkg/fizhi/fizhi_turb.F |
3163 |
PSI |
IF( INTSTB(I).EQ.1 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
3196 |
PSI |
IF( INTSTB(I).EQ.1 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
3217 |
PSI |
INTSTB(I) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
3219 |
PSI |
INTSTB(I) = 0 |
|
./pkg/fizhi/fizhi_turb.F |
3228 |
PSI |
IF (INTSTB(I).EQ.1)THEN |
|
./pkg/fizhi/fizhi_turb.F |
3291 |
PSI |
IF( INTSTB(I).EQ.1 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
3323 |
PSI |
IF( INTSTB(I).EQ.1 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
3706 |
TRBL20 |
SUBROUTINE TRBL20 (RI,STRT,DW2,XL,ZKM,ZKH,QE,QQE,INTSTB,NLEV, |
|
./pkg/fizhi/fizhi_turb.F |
3735 |
TRBL20 |
INTEGER INTSTB(irun*NLEV,1) |
|
./pkg/fizhi/fizhi_turb.F |
3792 |
TRBL20 |
INTSTB(I,1) = 0 |
|
./pkg/fizhi/fizhi_turb.F |
3795 |
TRBL20 |
INTSTB(I,1) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
3808 |
TRBL25 |
SUBROUTINE TRBL25(Q,XL,STRT,DW2,INTSTB,INTQ,ZKM,ZKH,P3,NLEV, |
|
./pkg/fizhi/fizhi_turb.F |
3835 |
TRBL25 |
INTEGER INTSTB(irun*nlay,1), INTQ(irun*nlay,1) |
|
./pkg/fizhi/fizhi_turb.F |
3867 |
TRBL25 |
IF( INTQ(I,1).EQ.1 .AND. INTSTB(I,1).EQ.0 ) THEN |