| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1558 |
TRBFLX |
_RL QQE (irun,nlev-1), QE (irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
2261 |
TRBFLX |
QE(I,L) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
2298 |
TRBFLX |
1 KM(1,LMIN),KH(1,LMIN),QE(1,LMIN),QQE(1,LMIN),IBITSTB(1,LMIN), |
|
./pkg/fizhi/fizhi_turb.F |
2311 |
TRBFLX |
Q(I,L) = QE(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2336 |
TRBFLX |
1 ( Q(I,L) .LE. QE(I,L) ) ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
2361 |
TRBFLX |
TEMP(I,L) = Q(I,L) / QE(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2369 |
TRBFLX |
Q(I,L) = 0.1 * QE(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2372 |
TRBFLX |
1 ( QE(I,L) - Q(I,L) ) |
|
./pkg/fizhi/fizhi_turb.F |
4247 |
TRBL20 |
SUBROUTINE TRBL20 (RI,STRT,DW2,XL,ZKM,ZKH,QE,QQE,INTSTB,NLEV, |
|
./pkg/fizhi/fizhi_turb.F |
4284 |
TRBL20 |
_RL QE(irun*NLEV,1),QQE(irun*NLEV,1) |
|
./pkg/fizhi/fizhi_turb.F |
4338 |
TRBL20 |
QE(I,1) = ZKM(I,1)*DW2(I,1) - ZKH(I,1)*STRT(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
4341 |
TRBL20 |
IF( QE(I,1).LT.1.e-14 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4343 |
TRBL20 |
QE(I,1) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
4346 |
TRBL20 |
QE(I,1) = B1*QE(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
4347 |
TRBL20 |
QE(I,1) = SQRT( QE(I,1) ) |
|
./pkg/fizhi/fizhi_turb.F |
4348 |
TRBL20 |
QE(I,1) = XL(I,1)*QE(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
4350 |
TRBL20 |
QQE(I,1) = 0.5 * QE(I,1) * QE(I,1) |