| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1537 |
TRBFLX |
_RL QQE (irun,nlev-1), QE (irun,nlev-1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2030 |
TRBFLX |
QE(I,1) = 0. |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2072 |
TRBFLX |
1 KM(1,LMIN),KH(1,LMIN),QE(1,LMIN),QQE(1,LMIN),IBITSTB(1,LMIN), |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2080 |
TRBFLX |
Q(I,1) = QE(I,1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2095 |
TRBFLX |
1 ( Q(I,LMIN) .LE. QE(I,LMIN) ) ) THEN |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2103 |
TRBFLX |
TEMP(I,LMIN) = Q(I,LMIN) / QE(I,LMIN) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2111 |
TRBFLX |
Q(I,LMIN) = 0.1 * QE(I,LMIN) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2114 |
TRBFLX |
1 ( QE(I,LMIN) - Q(I,LMIN) ) |
|
./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 |
3771 |
TRBL20 |
_RL QE(irun,NLEV),QQE(irun,NLEV) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3825 |
TRBL20 |
QE(I,1) = ZKM(I,1)*DW2(I,1) - ZKH(I,1)*STRT(I,1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3828 |
TRBL20 |
IF( QE(I,1).LT.1.e-14 ) THEN |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3830 |
TRBL20 |
QE(I,1) = 0. |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3833 |
TRBL20 |
QE(I,1) = B1*QE(I,1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3834 |
TRBL20 |
QE(I,1) = SQRT( QE(I,1) ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3835 |
TRBL20 |
QE(I,1) = XL(I,1)*QE(I,1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3837 |
TRBL20 |
QQE(I,1) = 0.5 * QE(I,1) * QE(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
1497 |
TRBFLX |
_RL QQE (irun,nlev-1), QE (irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
1990 |
TRBFLX |
QE(I,1) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
2032 |
TRBFLX |
1 KM(1,LMIN),KH(1,LMIN),QE(1,LMIN),QQE(1,LMIN),IBITSTB(1,LMIN), |
|
./pkg/fizhi/fizhi_turb.F |
2040 |
TRBFLX |
Q(I,1) = QE(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
2055 |
TRBFLX |
1 ( Q(I,LMIN) .LE. QE(I,LMIN) ) ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
2063 |
TRBFLX |
TEMP(I,LMIN) = Q(I,LMIN) / QE(I,LMIN) |
|
./pkg/fizhi/fizhi_turb.F |
2071 |
TRBFLX |
Q(I,LMIN) = 0.1 * QE(I,LMIN) |
|
./pkg/fizhi/fizhi_turb.F |
2074 |
TRBFLX |
1 ( QE(I,LMIN) - Q(I,LMIN) ) |
|
./pkg/fizhi/fizhi_turb.F |
3700 |
TRBL20 |
SUBROUTINE TRBL20 (RI,STRT,DW2,XL,ZKM,ZKH,QE,QQE,INTSTB,NLEV, |
|
./pkg/fizhi/fizhi_turb.F |
3732 |
TRBL20 |
_RL QE(irun,NLEV),QQE(irun,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
3786 |
TRBL20 |
QE(I,1) = ZKM(I,1)*DW2(I,1) - ZKH(I,1)*STRT(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
3789 |
TRBL20 |
IF( QE(I,1).LT.1.e-14 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
3791 |
TRBL20 |
QE(I,1) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
3794 |
TRBL20 |
QE(I,1) = B1*QE(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
3795 |
TRBL20 |
QE(I,1) = SQRT( QE(I,1) ) |
|
./pkg/fizhi/fizhi_turb.F |
3796 |
TRBL20 |
QE(I,1) = XL(I,1)*QE(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
3798 |
TRBL20 |
QQE(I,1) = 0.5 * QE(I,1) * QE(I,1) |