| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1434 |
TRBFLX |
SUBROUTINE TRBFLX (NN,TH,THV,SH,U,V,QQ,PL,PLE,PLK,PLKE,DPSTR, |
|
./pkg/fizhi/fizhi_turb.F |
1486 |
TRBFLX |
_RL U(irun,NLEV+1),V(irun,NLEV+1),QQ(irun,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
1943 |
TRBFLX |
Q(I,L) = 2. * QQ(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2039 |
TRBFLX |
QQ(I,NLEV) = 0.5 * Q(I,NLEV) * Q(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
2264 |
TRBFLX |
IF ( QQ(I,L) .GT. 1.e-8 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
2269 |
TRBFLX |
IF ( QQ(I,L).LE.1.e-8 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
2270 |
TRBFLX |
QQ(I,L) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
2279 |
TRBFLX |
IF ( QQ(I,LMINQ).GT.1.e-8 ) IBIT = IBIT + 1 |
|
./pkg/fizhi/fizhi_turb.F |
2310 |
TRBFLX |
QQ(I,L) = QQE(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2367 |
TRBFLX |
1 ( QQ(I,L) .LE. TEMP(I,L) )) THEN |
|
./pkg/fizhi/fizhi_turb.F |
2368 |
TRBFLX |
QQ(I,L) = TEMP(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2398 |
TRBFLX |
XQ(I,L) = QQE(I,L) - QQ(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2440 |
TRBFLX |
QQINIT(I,L) = QQ(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2470 |
TRBFLX |
CALL TRBDIF(QQ(1,LMINQ1),P3(1,LMINQ1),RHOKDZ(1,LMINQ1), |
|
./pkg/fizhi/fizhi_turb.F |
2512 |
TRBFLX |
Q(I,L) = 2. * QQ(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2649 |
TRBFLX |
IF ( QQ(I,L) .GT. QQMIN ) THEN |