| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
3549 |
TRBLEN |
ISTLMQ = irun * LMINQ1 |
|
./pkg/fizhi/fizhi_turb.F |
3595 |
TRBLEN |
ISTNMQ = irun * (NLEV-LMINQ1) |
|
./pkg/fizhi/fizhi_turb.F |
3597 |
TRBLEN |
Q1(I,LMINQ1) = Q(I,LMINQ1) |
|
./pkg/fizhi/fizhi_turb.F |
3598 |
TRBLEN |
INT1(I,LMINQ1) = 0 |
|
./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 |
3600 |
TRBLEN |
IF( INT1(I,LMINQ1).EQ.1 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
3601 |
TRBLEN |
XL0(I,LMINQ1) = XL0(I,LMINQ1+1) |
|
./pkg/fizhi/fizhi_turb.F |
3602 |
TRBLEN |
Q1(I,LMINQ1) = Q(I,LMINQ1+1) |
|
./pkg/fizhi/fizhi_turb.F |
3607 |
TRBLEN |
QXLM(I,LMINQ1) = XL0(I,LMINQ1)*VKZM(I,LMINQ1) |
|
./pkg/fizhi/fizhi_turb.F |
3608 |
TRBLEN |
. / ( XL0(I,LMINQ1)+VKZM(I,LMINQ1) ) |
|
./pkg/fizhi/fizhi_turb.F |
3609 |
TRBLEN |
QXLM(I,LMINQ1) = CLMT53 * Q1(I,LMINQ1)*QXLM(I,LMINQ1) |