| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
4286 |
TRBL20 |
_RL EE(irun*(nlay-1),1),RF(irun*(nlay-1),1) |
|
./pkg/fizhi/fizhi_turb.F |
4319 |
TRBL20 |
RF(I,1) = EE(I,1)* EE(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
4320 |
TRBL20 |
RF(I,1) = RF(I,1)- D3*RI(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
4321 |
TRBL20 |
RF(I,1) = SQRT( RF(I,1) ) |
|
./pkg/fizhi/fizhi_turb.F |
4322 |
TRBL20 |
RF(I,1) = EE(I,1) - RF(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
4325 |
TRBL20 |
RF(I,1) = D3B2*RI(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
4333 |
TRBL20 |
IF( RI(I,1).LT.RICR .AND. RF(I,1).LT.RFC ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4334 |
TRBL20 |
ZKH(I,1) = ( RFC-RF(I,1) ) / (1.-RF(I,1)) |
|
./pkg/fizhi/fizhi_turb.F |
4335 |
TRBL20 |
ZKM(I,1) = CM * (RF1-RF(I,1)) |
|
./pkg/fizhi/fizhi_turb.F |
4336 |
TRBL20 |
ZKM(I,1) = ZKH(I,1)*ZKM(I,1) / (RF2-RF(I,1)) |