| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1267 |
TRBFLX |
SUBROUTINE TRBFLX (NN,TH,THV,SH,U,V,QQ,PL,PLE,PLK,PLKE,DPSTR, |
|
./pkg/fizhi/fizhi_turb.F |
1316 |
TRBFLX |
_RL U(irun,NLEV+1),V(irun,NLEV+1),QQ(irun,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
1691 |
TRBFLX |
Q(I,L) = 2. * QQ(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
1787 |
TRBFLX |
QQ(I,NLEV) = 0.5 * Q(I,NLEV) * Q(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
1926 |
TRBFLX |
IF ( QQ(I,L) .GT. 1.e-8 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
1931 |
TRBFLX |
IF ( QQ(I,L).LE.1.e-8 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
1932 |
TRBFLX |
QQ(I,L) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
1941 |
TRBFLX |
IF ( QQ(I,LMINQ).GT.1.e-8 ) IBIT = IBIT + 1 |
|
./pkg/fizhi/fizhi_turb.F |
1968 |
TRBFLX |
QQ(I,L) = QQE(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2002 |
TRBFLX |
1 ( QQ(I,L) .LE. TEMP(I,L) )) THEN |
|
./pkg/fizhi/fizhi_turb.F |
2003 |
TRBFLX |
QQ(I,L) = TEMP(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2028 |
TRBFLX |
XQ(I,L) = QQE(I,L) - QQ(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2058 |
TRBFLX |
QQINIT(I,L) = QQ(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2084 |
TRBFLX |
CALL TRBDIF(QQ(1,LMINQ1),P3(1,LMINQ1),RHOKDZ(1,LMINQ1), |
|
./pkg/fizhi/fizhi_turb.F |
2112 |
TRBFLX |
Q(I,L) = 2. * QQ(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2219 |
TRBFLX |
IF ( QQ(I,L) .GT. QQMIN ) THEN |