| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
3548 |
TRBLEN |
IF(LMINQ.GT.1) THEN |
|
./pkg/fizhi/fizhi_turb.F |
3554 |
TRBLEN |
IF(LMINQ.LT.NLEV) THEN |
|
./pkg/fizhi/fizhi_turb.F |
3555 |
TRBLEN |
ISTNMQ = irun * (NLEV-LMINQ) |
|
./pkg/fizhi/fizhi_turb.F |
3557 |
TRBLEN |
IF( INT1(I,LMINQ).EQ.0 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
3558 |
TRBLEN |
XL0(I,LMINQ) = Q(I,LMINQ) / XL0(I,LMINQ) |
|
./pkg/fizhi/fizhi_turb.F |
3559 |
TRBLEN |
XL0(I,LMINQ) = XL0(I,LMINQ) * XL0(I,LMINQ) + 1.0E-20 |
|
./pkg/fizhi/fizhi_turb.F |
3560 |
TRBLEN |
XL0(I,LMINQ) = STBFCN(I,LMINQ) + XL0(I,LMINQ) |
|
./pkg/fizhi/fizhi_turb.F |
3561 |
TRBLEN |
XL0(I,LMINQ) = SQRT( XL0(I,LMINQ) ) |
|
./pkg/fizhi/fizhi_turb.F |
3562 |
TRBLEN |
XL0(I,LMINQ) = Q(I,LMINQ) / XL0(I,LMINQ) |
|
./pkg/fizhi/fizhi_turb.F |
3564 |
TRBLEN |
INT2(I,LMINQ) = 0 |
|
./pkg/fizhi/fizhi_turb.F |
3565 |
TRBLEN |
IF( XL0(I,LMINQ).LT.XL0MIN ) INT2(I,LMINQ) = 1 |