| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
3734 |
TRBL20 |
_RL EE(irun,nlay-1),RF(irun,nlay-1) |
|
./pkg/fizhi/fizhi_turb.F |
3767 |
TRBL20 |
RF(I,1) = EE(I,1)* EE(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
3768 |
TRBL20 |
RF(I,1) = RF(I,1)- D3*RI(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
3769 |
TRBL20 |
RF(I,1) = SQRT( RF(I,1) ) |
|
./pkg/fizhi/fizhi_turb.F |
3770 |
TRBL20 |
RF(I,1) = EE(I,1) - RF(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
3773 |
TRBL20 |
RF(I,1) = D3B2*RI(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
3781 |
TRBL20 |
IF( RI(I,1).LT.RICR .AND. RF(I,1).LT.RFC ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
3782 |
TRBL20 |
ZKH(I,1) = ( RFC-RF(I,1) ) / (1.-RF(I,1)) |
|
./pkg/fizhi/fizhi_turb.F |
3783 |
TRBL20 |
ZKM(I,1) = CM * (RF1-RF(I,1)) |
|
./pkg/fizhi/fizhi_turb.F |
3784 |
TRBL20 |
ZKM(I,1) = ZKH(I,1)*ZKM(I,1) / (RF2-RF(I,1)) |