File |
Line number |
Procedure |
Code |
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3140 |
PSI |
integer INTSTB(irun),INTZ0(irun) |
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3171 |
PSI |
INTSTB(I) = 1 |
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3173 |
PSI |
INTSTB(I) = 0 |
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3185 |
PSI |
IF (INTSTB(I).EQ.1)THEN |
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3228 |
PSI |
IF( INTSTB(I).EQ.1 ) THEN |
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3261 |
PSI |
IF( INTSTB(I).EQ.1 ) THEN |
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3282 |
PSI |
INTSTB(I) = 1 |
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3284 |
PSI |
INTSTB(I) = 0 |
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3293 |
PSI |
IF (INTSTB(I).EQ.1)THEN |
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3356 |
PSI |
IF( INTSTB(I).EQ.1 ) THEN |
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3388 |
PSI |
IF( INTSTB(I).EQ.1 ) THEN |
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3739 |
TRBL20 |
SUBROUTINE TRBL20 (RI,STRT,DW2,XL,ZKM,ZKH,QE,QQE,INTSTB,NLEV, |
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3772 |
TRBL20 |
INTEGER INTSTB(irun,nlev) |
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3829 |
TRBL20 |
INTSTB(I,1) = 0 |
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3832 |
TRBL20 |
INTSTB(I,1) = 1 |
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3842 |
TRBL25 |
SUBROUTINE TRBL25(Q,XL,STRT,DW2,INTSTB,INTQ,ZKM,ZKH,P3,NLEV, |
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3874 |
TRBL25 |
INTEGER INTSTB(irun,nlay), INTQ(irun,nlay) |
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3906 |
TRBL25 |
IF( INTQ(I,1).EQ.1 .AND. INTSTB(I,1).EQ.0 ) THEN |
./pkg/fizhi/fizhi_turb.F |
3101 |
PSI |
integer INTSTB(irun),INTZ0(irun) |
./pkg/fizhi/fizhi_turb.F |
3132 |
PSI |
INTSTB(I) = 1 |
./pkg/fizhi/fizhi_turb.F |
3134 |
PSI |
INTSTB(I) = 0 |
./pkg/fizhi/fizhi_turb.F |
3146 |
PSI |
IF (INTSTB(I).EQ.1)THEN |
./pkg/fizhi/fizhi_turb.F |
3189 |
PSI |
IF( INTSTB(I).EQ.1 ) THEN |
./pkg/fizhi/fizhi_turb.F |
3222 |
PSI |
IF( INTSTB(I).EQ.1 ) THEN |
./pkg/fizhi/fizhi_turb.F |
3243 |
PSI |
INTSTB(I) = 1 |
./pkg/fizhi/fizhi_turb.F |
3245 |
PSI |
INTSTB(I) = 0 |
./pkg/fizhi/fizhi_turb.F |
3254 |
PSI |
IF (INTSTB(I).EQ.1)THEN |
./pkg/fizhi/fizhi_turb.F |
3317 |
PSI |
IF( INTSTB(I).EQ.1 ) THEN |
./pkg/fizhi/fizhi_turb.F |
3349 |
PSI |
IF( INTSTB(I).EQ.1 ) THEN |
./pkg/fizhi/fizhi_turb.F |
3700 |
TRBL20 |
SUBROUTINE TRBL20 (RI,STRT,DW2,XL,ZKM,ZKH,QE,QQE,INTSTB,NLEV, |
./pkg/fizhi/fizhi_turb.F |
3733 |
TRBL20 |
INTEGER INTSTB(irun,nlev) |
./pkg/fizhi/fizhi_turb.F |
3790 |
TRBL20 |
INTSTB(I,1) = 0 |
./pkg/fizhi/fizhi_turb.F |
3793 |
TRBL20 |
INTSTB(I,1) = 1 |
./pkg/fizhi/fizhi_turb.F |
3803 |
TRBL25 |
SUBROUTINE TRBL25(Q,XL,STRT,DW2,INTSTB,INTQ,ZKM,ZKH,P3,NLEV, |
./pkg/fizhi/fizhi_turb.F |
3835 |
TRBL25 |
INTEGER INTSTB(irun,nlay), INTQ(irun,nlay) |
./pkg/fizhi/fizhi_turb.F |
3867 |
TRBL25 |
IF( INTQ(I,1).EQ.1 .AND. INTSTB(I,1).EQ.0 ) THEN |