| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1586 |
TRBFLX |
INTEGER INT1(irun,nlev), INT2(irun,nlev-1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2065 |
TRBFLX |
1 NLEV,INIT,LMIN,LMINQ,LMINQ1,CP,INT1,INT2, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2084 |
TRBFLX |
1 NLEV,INIT,LMIN,LMINQ,LMINQ1,CP,INT1,INT2, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3401 |
TRBLEN |
1 QXLM,NLEV,INIT,LMIN,LMINQ,LMINQ1,CP,INT1,INT2, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3453 |
TRBLEN |
INTEGER INT1(irun,nlev), INT2(irun,nlev-1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3491 |
TRBLEN |
INT2(I,1) = 0 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3492 |
TRBLEN |
IF( (INT1(I,1).EQ.1) .NEQV. (INT1(I,2).EQ.1) ) INT2(I,1) = 1 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3518 |
TRBLEN |
CALL TRBITP ( STBFCN(1,LMIN1),INT2(1,LMIN1),DTHV(1,LMIN1), |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3525 |
TRBLEN |
INT2(I,LMIN1) = 0 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3526 |
TRBLEN |
IF( INT1(I,LMIN1).EQ.1 .OR. INT1(I,LP1).EQ.1 ) INT2(I,LMIN1) = 1 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3527 |
TRBLEN |
IF( INT2(I,LMIN1).EQ.1 ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3531 |
TRBLEN |
INT2(I,NLEVM1) = INT1(I,NLEV) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3535 |
TRBLEN |
IF( INT2(I,LMIN1).EQ.1 ) THEN |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3590 |
TRBLEN |
INT2(I,1) = 1 - INT1(I,1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3603 |
TRBLEN |
INT2(I,LMINQ) = 0 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3604 |
TRBLEN |
IF( XL0(I,LMINQ).LT.XL0MIN ) INT2(I,LMINQ) = 1 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3612 |
TRBLEN |
INT2(I,1) = 1 - INT1(I,1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3616 |
TRBLEN |
IF( INT2(I,1).EQ.1 ) XL0(I,1) = XL0MIN |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
4459 |
ZCSUB |
integer INT2(IRUN),INT3(IRUN),INT4(IRUN) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
4506 |
ZCSUB |
INT2(I) = 1 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
4508 |
ZCSUB |
INT2(I) = 0 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
4515 |
ZCSUB |
IF( INT2(I).EQ.1 ) AA(I,K) = AA2(K) |
|
./pkg/fizhi/fizhi_turb.F |
1546 |
TRBFLX |
INTEGER INT1(irun,nlev), INT2(irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
2025 |
TRBFLX |
1 NLEV,INIT,LMIN,LMINQ,LMINQ1,CP,INT1,INT2, |
|
./pkg/fizhi/fizhi_turb.F |
2044 |
TRBFLX |
1 NLEV,INIT,LMIN,LMINQ,LMINQ1,CP,INT1,INT2, |
|
./pkg/fizhi/fizhi_turb.F |
3362 |
TRBLEN |
1 QXLM,NLEV,INIT,LMIN,LMINQ,LMINQ1,CP,INT1,INT2, |
|
./pkg/fizhi/fizhi_turb.F |
3414 |
TRBLEN |
INTEGER INT1(irun,nlev), INT2(irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
3452 |
TRBLEN |
INT2(I,1) = 0 |
|
./pkg/fizhi/fizhi_turb.F |
3453 |
TRBLEN |
IF( (INT1(I,1).EQ.1) .NEQV. (INT1(I,2).EQ.1) ) INT2(I,1) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
3479 |
TRBLEN |
CALL TRBITP ( STBFCN(1,LMIN1),INT2(1,LMIN1),DTHV(1,LMIN1), |
|
./pkg/fizhi/fizhi_turb.F |
3486 |
TRBLEN |
INT2(I,LMIN1) = 0 |
|
./pkg/fizhi/fizhi_turb.F |
3487 |
TRBLEN |
IF( INT1(I,LMIN1).EQ.1 .OR. INT1(I,LP1).EQ.1 ) INT2(I,LMIN1) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
3488 |
TRBLEN |
IF( INT2(I,LMIN1).EQ.1 ) |
|
./pkg/fizhi/fizhi_turb.F |
3492 |
TRBLEN |
INT2(I,NLEVM1) = INT1(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
3496 |
TRBLEN |
IF( INT2(I,LMIN1).EQ.1 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
3551 |
TRBLEN |
INT2(I,1) = 1 - INT1(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
3564 |
TRBLEN |
INT2(I,LMINQ) = 0 |
|
./pkg/fizhi/fizhi_turb.F |
3565 |
TRBLEN |
IF( XL0(I,LMINQ).LT.XL0MIN ) INT2(I,LMINQ) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
3573 |
TRBLEN |
INT2(I,1) = 1 - INT1(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
3577 |
TRBLEN |
IF( INT2(I,1).EQ.1 ) XL0(I,1) = XL0MIN |
|
./pkg/fizhi/fizhi_turb.F |
4420 |
ZCSUB |
integer INT2(IRUN),INT3(IRUN),INT4(IRUN) |
|
./pkg/fizhi/fizhi_turb.F |
4467 |
ZCSUB |
INT2(I) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
4469 |
ZCSUB |
INT2(I) = 0 |
|
./pkg/fizhi/fizhi_turb.F |
4476 |
ZCSUB |
IF( INT2(I).EQ.1 ) AA(I,K) = AA2(K) |