| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1484 |
TRBFLX |
_RL RHOZPK(irun,nlev), Q(irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1778 |
TRBFLX |
Q(I,1) = 2. * QQ(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
1779 |
TRBFLX |
Q(I,1) = SQRT( Q(I,1) ) |
|
./pkg/fizhi/fizhi_turb.F |
1872 |
TRBFLX |
Q(I,NLEV) = QBUSTR * USTAR(I) |
|
./pkg/fizhi/fizhi_turb.F |
1873 |
TRBFLX |
QQ(I,NLEV) = 0.5 * Q(I,NLEV) * Q(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
2006 |
TRBFLX |
Q(I,1) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
2024 |
TRBFLX |
CALL TRBLEN(STRT,DW2,DZ3,Q,VKZE,VKZM,DTHV,DPK,DU,DV,XL,QXLM, |
|
./pkg/fizhi/fizhi_turb.F |
2040 |
TRBFLX |
Q(I,1) = QE(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
2043 |
TRBFLX |
CALL TRBLEN(STRT,DW2,DZ3,Q,VKZE,VKZM,DTHV,DPK,DU,DV,XL,QXLM, |
|
./pkg/fizhi/fizhi_turb.F |
2055 |
TRBFLX |
1 ( Q(I,LMIN) .LE. QE(I,LMIN) ) ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
2063 |
TRBFLX |
TEMP(I,LMIN) = Q(I,LMIN) / QE(I,LMIN) |
|
./pkg/fizhi/fizhi_turb.F |
2071 |
TRBFLX |
Q(I,LMIN) = 0.1 * QE(I,LMIN) |
|
./pkg/fizhi/fizhi_turb.F |
2074 |
TRBFLX |
1 ( QE(I,LMIN) - Q(I,LMIN) ) |
|
./pkg/fizhi/fizhi_turb.F |
2080 |
TRBFLX |
CALL TRBL25(Q(1,LMINQ),XL(1,LMINQ),STRT(1,LMINQ),DW2(1,LMINQ), |
|
./pkg/fizhi/fizhi_turb.F |
2153 |
TRBFLX |
Q(I,LMINQ1) = 2. * QQ(I,LMINQ1) |
|
./pkg/fizhi/fizhi_turb.F |
2154 |
TRBFLX |
Q(I,LMINQ1) = SQRT(Q(I,LMINQ1)) |
|
./pkg/fizhi/fizhi_turb.F |
2155 |
TRBFLX |
XQ(I,LMINQ1) = XL(I,LMINQ1) * Q(I,LMINQ1) |
|
./pkg/fizhi/fizhi_turb.F |
3361 |
TRBLEN |
SUBROUTINE TRBLEN (STRT,DW2,DZ3,Q,VKZE,VKZM,DTHV,DPK,DU,DV,XL, |
|
./pkg/fizhi/fizhi_turb.F |
3405 |
TRBLEN |
_RL Q(irun,NLEV),VKZM(irun,NLEV-1),VKZE(irun,NLEV-1) |
|
./pkg/fizhi/fizhi_turb.F |
3558 |
TRBLEN |
XL0(I,LMINQ) = Q(I,LMINQ) / XL0(I,LMINQ) |
|
./pkg/fizhi/fizhi_turb.F |
3562 |
TRBLEN |
XL0(I,LMINQ) = Q(I,LMINQ) / XL0(I,LMINQ) |
|
./pkg/fizhi/fizhi_turb.F |
3597 |
TRBLEN |
Q1(I,LMINQ1) = Q(I,LMINQ1) |
|
./pkg/fizhi/fizhi_turb.F |
3599 |
TRBLEN |
IF( Q(I,LMINQ1).LE.Q(I,LMINQ1+1) ) INT1(I,LMINQ1) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
3602 |
TRBLEN |
Q1(I,LMINQ1) = Q(I,LMINQ1+1) |
|
./pkg/fizhi/fizhi_turb.F |
3803 |
TRBL25 |
SUBROUTINE TRBL25(Q,XL,STRT,DW2,INTSTB,INTQ,ZKM,ZKH,P3,NLEV, |
|
./pkg/fizhi/fizhi_turb.F |
3833 |
TRBL25 |
_RL Q(irun,NLEV),XL(irun,NLEV),STRT(irun,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
3868 |
TRBL25 |
XQ(I,1) = XL(I,1) / Q(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
3884 |
TRBL25 |
P3(I,1) = P3(I,1)*Q(I,1) |