| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
3475 |
TRBLEN |
LMIN1 = LMIN - 1 |
|
./pkg/fizhi/fizhi_turb.F |
3476 |
TRBLEN |
IF(LMIN1.EQ.0) LMIN1 = 1 |
|
./pkg/fizhi/fizhi_turb.F |
3477 |
TRBLEN |
NLEVML = NLEV - LMIN1 |
|
./pkg/fizhi/fizhi_turb.F |
3479 |
TRBLEN |
CALL TRBITP ( STBFCN(1,LMIN1),INT2(1,LMIN1),DTHV(1,LMIN1), |
|
./pkg/fizhi/fizhi_turb.F |
3480 |
TRBLEN |
. DPK(1,LMIN1), DU(1,LMIN1), DV(1,LMIN1), |
|
./pkg/fizhi/fizhi_turb.F |
3481 |
TRBLEN |
. DZITRP(1,LMIN1), NLEVML, |
|
./pkg/fizhi/fizhi_turb.F |
3483 |
TRBLEN |
LP1 = LMIN1 + 1 |
|
./pkg/fizhi/fizhi_turb.F |
3486 |
TRBLEN |
INT2(I,LMIN1) = 0 |
|
./pkg/fizhi/fizhi_turb.F |
3487 |
TRBLEN |
IF( INT1(I,LMIN1).EQ.1 .OR. INT1(I,LP1).EQ.1 ) INT2(I,LMIN1) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
3488 |
TRBLEN |
IF( INT2(I,LMIN1).EQ.1 ) |
|
./pkg/fizhi/fizhi_turb.F |
3489 |
TRBLEN |
. XL0(I,LMIN1) = (0.5+DZITRP(I,LMIN1)) * DZ3(I,LP1) |
|
./pkg/fizhi/fizhi_turb.F |
3496 |
TRBLEN |
IF( INT2(I,LMIN1).EQ.1 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
3497 |
TRBLEN |
XL0(I,LP1) = XL0(I,LP1) + ( (0.5-DZITRP(I,LMIN1)) * DZ3(I,LP1) ) |