| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
3706 |
TRBL20 |
SUBROUTINE TRBL20 (RI,STRT,DW2,XL,ZKM,ZKH,QE,QQE,INTSTB,NLEV, |
|
./pkg/fizhi/fizhi_turb.F |
3733 |
TRBL20 |
_RL XL(irun*NLEV,1),ZKM(irun*NLEV,1), ZKH(irun*NLEV,1) |
|
./pkg/fizhi/fizhi_turb.F |
3784 |
TRBL20 |
ZKH(I,1) = ( RFC-RF(I,1) ) / (1.-RF(I,1)) |
|
./pkg/fizhi/fizhi_turb.F |
3786 |
TRBL20 |
ZKM(I,1) = ZKH(I,1)*ZKM(I,1) / (RF2-RF(I,1)) |
|
./pkg/fizhi/fizhi_turb.F |
3787 |
TRBL20 |
ZKH(I,1) = CH *ZKH(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
3788 |
TRBL20 |
QE(I,1) = ZKM(I,1)*DW2(I,1) - ZKH(I,1)*STRT(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
3808 |
TRBL25 |
SUBROUTINE TRBL25(Q,XL,STRT,DW2,INTSTB,INTQ,ZKM,ZKH,P3,NLEV, |
|
./pkg/fizhi/fizhi_turb.F |
3836 |
TRBL25 |
_RL ZKM(irun*NLEV,1),ZKH(irun*NLEV,1),P3(irun*NLEV,1) |
|
./pkg/fizhi/fizhi_turb.F |
3875 |
TRBL25 |
ZKH(I,1) = (F4(I,1) * F2(I,1)) |
|
./pkg/fizhi/fizhi_turb.F |
3877 |
TRBL25 |
ZKH(I,1) = (F2(I,1) + A3*DW2(I,1)) |
|
./pkg/fizhi/fizhi_turb.F |
3878 |
TRBL25 |
& / ZKH(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
3879 |
TRBL25 |
ZKM(I,1) = A1 * (F3(I,1)*ZKH(I,1)+A5) |
|
./pkg/fizhi/fizhi_turb.F |
3881 |
TRBL25 |
ZKH(I,1) = A2 * ZKH(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
3882 |
TRBL25 |
P3(I,1) = ZKH(I,1)*STRT(I,1) + B3 |