| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
3527 |
PSI |
integer INTSTB(irun),INTZ0(irun) |
|
./pkg/fizhi/fizhi_turb.F |
3558 |
PSI |
INTSTB(I) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
3560 |
PSI |
INTSTB(I) = 0 |
|
./pkg/fizhi/fizhi_turb.F |
3572 |
PSI |
IF (INTSTB(I).EQ.1)THEN |
|
./pkg/fizhi/fizhi_turb.F |
3615 |
PSI |
IF( INTSTB(I).EQ.1 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
3648 |
PSI |
IF( INTSTB(I).EQ.1 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
3669 |
PSI |
INTSTB(I) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
3671 |
PSI |
INTSTB(I) = 0 |
|
./pkg/fizhi/fizhi_turb.F |
3680 |
PSI |
IF (INTSTB(I).EQ.1)THEN |
|
./pkg/fizhi/fizhi_turb.F |
3743 |
PSI |
IF( INTSTB(I).EQ.1 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
3775 |
PSI |
IF( INTSTB(I).EQ.1 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4247 |
TRBL20 |
SUBROUTINE TRBL20 (RI,STRT,DW2,XL,ZKM,ZKH,QE,QQE,INTSTB,NLEV, |
|
./pkg/fizhi/fizhi_turb.F |
4285 |
TRBL20 |
INTEGER INTSTB(irun*NLEV,1) |
|
./pkg/fizhi/fizhi_turb.F |
4342 |
TRBL20 |
INTSTB(I,1) = 0 |
|
./pkg/fizhi/fizhi_turb.F |
4345 |
TRBL20 |
INTSTB(I,1) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
4355 |
TRBL25 |
SUBROUTINE TRBL25(Q,XL,STRT,DW2,INTSTB,INTQ,ZKM,ZKH,P3,NLEV, |
|
./pkg/fizhi/fizhi_turb.F |
4391 |
TRBL25 |
INTEGER INTSTB(irun*nlay,1), INTQ(irun*nlay,1) |
|
./pkg/fizhi/fizhi_turb.F |
4423 |
TRBL25 |
IF( INTQ(I,1).EQ.1 .AND. INTSTB(I,1).EQ.0 ) THEN |