| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1374 |
TRBFLX |
_RL DW2(irun,nlev), RI(irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1899 |
TRBFLX |
RI(I,L) = STRT(I,L) / DW2(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
1907 |
TRBFLX |
SRI(I,L) = RI(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
1959 |
TRBFLX |
CALL TRBL20(RI(1,LMIN),STRT(1,LMIN),DW2(1,LMIN),XL(1,LMIN), |
|
./pkg/fizhi/fizhi_turb.F |
2057 |
TRBFLX |
RIINIT(I,L) = RI(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
3706 |
TRBL20 |
SUBROUTINE TRBL20 (RI,STRT,DW2,XL,ZKM,ZKH,QE,QQE,INTSTB,NLEV, |
|
./pkg/fizhi/fizhi_turb.F |
3732 |
TRBL20 |
_RL RI(irun*NLEV,1),STRT(irun*NLEV,1),DW2(irun*NLEV,1) |
|
./pkg/fizhi/fizhi_turb.F |
3768 |
TRBL20 |
EE(I,1) = D1HALF * RI(I,1) + D2HALF |
|
./pkg/fizhi/fizhi_turb.F |
3770 |
TRBL20 |
RF(I,1) = RF(I,1)- D3*RI(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
3774 |
TRBL20 |
IF( RI(I,1).LE.1.e-4 .AND. RI(I,1).GE.-1.e-4 ) THEN |
|
./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 |