| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1523 |
TRBFLX |
_RL DW2(irun,nlev), RI(irun,nlev) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2010 |
TRBFLX |
RI(I,1) = STRT(I,1) / DW2(I,1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2016 |
TRBFLX |
SRI(I,1) = RI(I,1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2071 |
TRBFLX |
CALL TRBL20(RI(1,LMIN),STRT(1,LMIN),DW2(1,LMIN),XL(1,LMIN), |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2158 |
TRBFLX |
RIINIT(I,1) = RI(I,1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3739 |
TRBL20 |
SUBROUTINE TRBL20 (RI,STRT,DW2,XL,ZKM,ZKH,QE,QQE,INTSTB,NLEV, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3769 |
TRBL20 |
_RL RI(irun,NLEV),STRT(irun,NLEV),DW2(irun,NLEV) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3805 |
TRBL20 |
EE(I,1) = D1HALF * RI(I,1) + D2HALF |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3807 |
TRBL20 |
RF(I,1) = RF(I,1)- D3*RI(I,1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3811 |
TRBL20 |
IF( RI(I,1).LE.1.e-4 .AND. RI(I,1).GE.-1.e-4 ) THEN |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3812 |
TRBL20 |
RF(I,1) = D3B2*RI(I,1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3820 |
TRBL20 |
IF( RI(I,1).LT.RICR .AND. RF(I,1).LT.RFC ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
1483 |
TRBFLX |
_RL DW2(irun,nlev), RI(irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1970 |
TRBFLX |
RI(I,1) = STRT(I,1) / DW2(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
1976 |
TRBFLX |
SRI(I,1) = RI(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
2031 |
TRBFLX |
CALL TRBL20(RI(1,LMIN),STRT(1,LMIN),DW2(1,LMIN),XL(1,LMIN), |
|
./pkg/fizhi/fizhi_turb.F |
2118 |
TRBFLX |
RIINIT(I,1) = RI(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
3700 |
TRBL20 |
SUBROUTINE TRBL20 (RI,STRT,DW2,XL,ZKM,ZKH,QE,QQE,INTSTB,NLEV, |
|
./pkg/fizhi/fizhi_turb.F |
3730 |
TRBL20 |
_RL RI(irun,NLEV),STRT(irun,NLEV),DW2(irun,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
3766 |
TRBL20 |
EE(I,1) = D1HALF * RI(I,1) + D2HALF |
|
./pkg/fizhi/fizhi_turb.F |
3768 |
TRBL20 |
RF(I,1) = RF(I,1)- D3*RI(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
3772 |
TRBL20 |
IF( RI(I,1).LE.1.e-4 .AND. RI(I,1).GE.-1.e-4 ) THEN |
|
./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 |