| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
3736 |
TRBL20 |
_RL EE(irun*(nlay-1),1),RF(irun*(nlay-1),1) |
|
./pkg/fizhi/fizhi_turb.F |
3769 |
TRBL20 |
RF(I,1) = EE(I,1)* EE(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
3770 |
TRBL20 |
RF(I,1) = RF(I,1)- D3*RI(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
3771 |
TRBL20 |
RF(I,1) = SQRT( RF(I,1) ) |
|
./pkg/fizhi/fizhi_turb.F |
3772 |
TRBL20 |
RF(I,1) = EE(I,1) - RF(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
3775 |
TRBL20 |
RF(I,1) = D3B2*RI(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
3783 |
TRBL20 |
IF( RI(I,1).LT.RICR .AND. RF(I,1).LT.RFC ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
3784 |
TRBL20 |
ZKH(I,1) = ( RFC-RF(I,1) ) / (1.-RF(I,1)) |
|
./pkg/fizhi/fizhi_turb.F |
3785 |
TRBL20 |
ZKM(I,1) = CM * (RF1-RF(I,1)) |
|
./pkg/fizhi/fizhi_turb.F |
3786 |
TRBL20 |
ZKM(I,1) = ZKH(I,1)*ZKM(I,1) / (RF2-RF(I,1)) |