File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_turb.F |
1424 |
TRBFLX |
_RL VZ2(irun),VDZSEA(irun),VAZ0(irun),VXNUM1(irun) |
./pkg/fizhi/fizhi_turb.F |
1775 |
TRBFLX |
1 VX0PSIM,VG,VG0,VR1MG0,VZ2,VDZSEA,VAZ0,VXNUM1,VPSIGB2,VDX, |
./pkg/fizhi/fizhi_turb.F |
2329 |
SFCFLX |
3 VX0PSIM,VG,VG0,VR1MG0,VZ2,VDZSEA,VAZ0,VXNUM1,VPSIGB2,VDX, |
./pkg/fizhi/fizhi_turb.F |
2393 |
SFCFLX |
_RL VZ2(irun),VDZSEA(irun),VAZ0(irun),VXNUM1(irun) |
./pkg/fizhi/fizhi_turb.F |
2485 |
SFCFLX |
3 VX0PSIM,VG,VG0,VR1MG0,VZ2,VDZSEA,VAZ0,VXNUM1,VPSIGB2,VDX, |
./pkg/fizhi/fizhi_turb.F |
2557 |
SFCFLX |
3 VX0PSIM,VG,VG0,VR1MG0,VZ2,VDZSEA,VAZ0,VXNUM1,VPSIGB2,VDX, |
./pkg/fizhi/fizhi_turb.F |
2617 |
SFCFLX |
3 VX0PSIM,VG,VG0,VR1MG0,VZ2,VDZSEA,VAZ0,VXNUM1,VPSIGB2,VDX, |
./pkg/fizhi/fizhi_turb.F |
4086 |
LINADJ |
3 VX0PSIM,VG,VG0,VR1MG0,VZ2,VDZSEA,VAZ0,VXNUM1,VPSIGB2,VDX, |
./pkg/fizhi/fizhi_turb.F |
4139 |
LINADJ |
_RL VZ2(irun),VDZSEA(irun),VAZ0(irun),VXNUM1(irun) |
./pkg/fizhi/fizhi_turb.F |
4212 |
LINADJ |
VXNUM1(I) = 0. |
./pkg/fizhi/fizhi_turb.F |
4218 |
LINADJ |
IF ( INTRIB(I).EQ.0 ) VXNUM1(I) = 1. / VRIB1(I) |
./pkg/fizhi/fizhi_turb.F |
4264 |
LINADJ |
VXNUM(I) = VXNUM1(I) * VXNUM(I) |
./pkg/fizhi/fizhi_turb.F |
4306 |
LINADJ |
IF(VINT1(I).EQ.1)VDZETA(I)=VXNUM1(I)*VRIB2(I) - 1. - VDZETA1(I) |