| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1388 |
TRBFLX |
_RL QQE (irun,nlev-1), QE (irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
1923 |
TRBFLX |
QE(I,L) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
1960 |
TRBFLX |
1 KM(1,LMIN),KH(1,LMIN),QE(1,LMIN),QQE(1,LMIN),IBITSTB(1,LMIN), |
|
./pkg/fizhi/fizhi_turb.F |
1969 |
TRBFLX |
Q(I,L) = QE(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
1986 |
TRBFLX |
1 ( Q(I,L) .LE. QE(I,L) ) ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
1996 |
TRBFLX |
TEMP(I,L) = Q(I,L) / QE(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2004 |
TRBFLX |
Q(I,L) = 0.1 * QE(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2007 |
TRBFLX |
1 ( QE(I,L) - Q(I,L) ) |
|
./pkg/fizhi/fizhi_turb.F |
3706 |
TRBL20 |
SUBROUTINE TRBL20 (RI,STRT,DW2,XL,ZKM,ZKH,QE,QQE,INTSTB,NLEV, |
|
./pkg/fizhi/fizhi_turb.F |
3734 |
TRBL20 |
_RL QE(irun*NLEV,1),QQE(irun*NLEV,1) |
|
./pkg/fizhi/fizhi_turb.F |
3788 |
TRBL20 |
QE(I,1) = ZKM(I,1)*DW2(I,1) - ZKH(I,1)*STRT(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
3791 |
TRBL20 |
IF( QE(I,1).LT.1.e-14 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
3793 |
TRBL20 |
QE(I,1) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
3796 |
TRBL20 |
QE(I,1) = B1*QE(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
3797 |
TRBL20 |
QE(I,1) = SQRT( QE(I,1) ) |
|
./pkg/fizhi/fizhi_turb.F |
3798 |
TRBL20 |
QE(I,1) = XL(I,1)*QE(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
3800 |
TRBL20 |
QQE(I,1) = 0.5 * QE(I,1) * QE(I,1) |