File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_turb.F |
1425 |
TRBFLX |
_RL VPSIGB2(irun),VDX(irun),VDXPSIM(irun),VDY(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 |
2394 |
SFCFLX |
_RL VPSIGB2(irun),VDX(irun),VDXPSIM(irun),VDY(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 |
4140 |
LINADJ |
_RL VPSIGB2(irun),VDX(irun),VDXPSIM(irun),VDY(irun) |
./pkg/fizhi/fizhi_turb.F |
4219 |
LINADJ |
VPSIGB2(I) = 0. |
./pkg/fizhi/fizhi_turb.F |
4220 |
LINADJ |
if(vpsig(i).gt.0.)VPSIGB2(I) = |
./pkg/fizhi/fizhi_turb.F |
4225 |
LINADJ |
VXNUM3(I) = - VPSIGB2(I) |
./pkg/fizhi/fizhi_turb.F |
4231 |
LINADJ |
VXNUM3(I) = VXNUM3(I) + VG(I) * ( VY0(I) - VPSIGB2(I) ) |
./pkg/fizhi/fizhi_turb.F |
4232 |
LINADJ |
VXNUM2(I) = VY0(I) - VPSIGB2(I) - VX0PSIM(I) * VPSIGB2(I) |