| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1373 |
TRBFLX |
SUBROUTINE TRBFLX (NN,TH,THV,SH,U,V,QQ,PL,PLE,PLK,PLKE,DPSTR, |
|
./pkg/fizhi/fizhi_turb.F |
1425 |
TRBFLX |
_RL U(irun,NLEV+1),V(irun,NLEV+1),QQ(irun,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
1778 |
TRBFLX |
Q(I,1) = 2. * QQ(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
1873 |
TRBFLX |
QQ(I,NLEV) = 0.5 * Q(I,NLEV) * Q(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
1997 |
TRBFLX |
IF ( QQ(I,1) .GT. 1.e-8 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
2004 |
TRBFLX |
IF ( QQ(I,1).LE.1.e-8 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
2005 |
TRBFLX |
QQ(I,1) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
2013 |
TRBFLX |
IF ( QQ(I,LMINQ).GT.1.e-8 ) IBIT = IBIT + 1 |
|
./pkg/fizhi/fizhi_turb.F |
2039 |
TRBFLX |
QQ(I,1) = QQE(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
2069 |
TRBFLX |
1 ( QQ(I,LMIN) .LE. TEMP(I,LMIN) )) THEN |
|
./pkg/fizhi/fizhi_turb.F |
2070 |
TRBFLX |
QQ(I,LMIN) = TEMP(I,LMIN) |
|
./pkg/fizhi/fizhi_turb.F |
2093 |
TRBFLX |
XQ(I,LMIN) = QQE(I,LMIN) - QQ(I,LMIN) |
|
./pkg/fizhi/fizhi_turb.F |
2119 |
TRBFLX |
QQINIT(I,1) = QQ(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
2143 |
TRBFLX |
CALL TRBDIF(QQ(1,LMINQ1),P3(1,LMINQ1),RHOKDZ(1,LMINQ1), |
|
./pkg/fizhi/fizhi_turb.F |
2166 |
TRBFLX |
Q(I,LMINQ1) = 2. * QQ(I,LMINQ1) |
|
./pkg/fizhi/fizhi_turb.F |
2270 |
TRBFLX |
IF ( QQ(I,1) .GT. QQMIN ) THEN |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
1373 |
TRBFLX |
SUBROUTINE TRBFLX (NN,TH,THV,SH,U,V,QQ,PL,PLE,PLK,PLKE,DPSTR, |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
1425 |
TRBFLX |
_RL U(irun,NLEV+1),V(irun,NLEV+1),QQ(irun,NLEV) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
1778 |
TRBFLX |
Q(I,1) = 2. * QQ(I,1) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
1873 |
TRBFLX |
QQ(I,NLEV) = 0.5 * Q(I,NLEV) * Q(I,NLEV) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
1997 |
TRBFLX |
IF ( QQ(I,1) .GT. 1.e-8 ) THEN |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
2004 |
TRBFLX |
IF ( QQ(I,1).LE.1.e-8 ) THEN |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
2005 |
TRBFLX |
QQ(I,1) = 0. |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
2013 |
TRBFLX |
IF ( QQ(I,LMINQ).GT.1.e-8 ) IBIT = IBIT + 1 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
2039 |
TRBFLX |
QQ(I,1) = QQE(I,1) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
2069 |
TRBFLX |
1 ( QQ(I,LMIN) .LE. TEMP(I,LMIN) )) THEN |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
2070 |
TRBFLX |
QQ(I,LMIN) = TEMP(I,LMIN) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
2093 |
TRBFLX |
XQ(I,LMIN) = QQE(I,LMIN) - QQ(I,LMIN) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
2119 |
TRBFLX |
QQINIT(I,1) = QQ(I,1) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
2130 |
TRBFLX |
CALL TRBDIF(QQ(1,LMINQ1),P3(1,LMINQ1),RHOKDZ(1,LMINQ1), |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
2153 |
TRBFLX |
Q(I,LMINQ1) = 2. * QQ(I,LMINQ1) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
2252 |
TRBFLX |
IF ( QQ(I,1) .GT. QQMIN ) THEN |