File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_turb.F |
1427 |
TRBFLX |
_RL VXNUM(irun),VDZETA1(irun),VDZETA2(irun) |
./pkg/fizhi/fizhi_turb.F |
1776 |
TRBFLX |
2 VDXPSIM,VDY,VXNUM2,VDEN,VAWS1,VXNUM3,VXNUM,VDZETA1,VDZETA2, |
./pkg/fizhi/fizhi_turb.F |
2330 |
SFCFLX |
4 VDXPSIM,VDY,VXNUM2,VDEN,VAWS1,VXNUM3,VXNUM,VDZETA1,VDZETA2, |
./pkg/fizhi/fizhi_turb.F |
2396 |
SFCFLX |
_RL VXNUM(irun),VDZETA1(irun),VDZETA2(irun) |
./pkg/fizhi/fizhi_turb.F |
2486 |
SFCFLX |
4 VDXPSIM,VDY,VXNUM2,VDEN,VAWS1,VXNUM3,VXNUM,VDZETA1,VDZETA2, |
./pkg/fizhi/fizhi_turb.F |
2558 |
SFCFLX |
4 VDXPSIM,VDY,VXNUM2,VDEN,VAWS1,VXNUM3,VXNUM,VDZETA1,VDZETA2, |
./pkg/fizhi/fizhi_turb.F |
2618 |
SFCFLX |
4 VDXPSIM,VDY,VXNUM2,VDEN,VAWS1,VXNUM3,VXNUM,VDZETA1,VDZETA2, |
./pkg/fizhi/fizhi_turb.F |
4087 |
LINADJ |
4 VDXPSIM,VDY,VXNUM2,VDEN,VAWS1,VXNUM3,VXNUM,VDZETA1,VDZETA2, |
./pkg/fizhi/fizhi_turb.F |
4142 |
LINADJ |
_RL VXNUM(irun),VDZETA1(irun),VDZETA2(irun) |
./pkg/fizhi/fizhi_turb.F |
4262 |
LINADJ |
VXNUM(I) = VRIB2(I) - VRIB1(I) |
./pkg/fizhi/fizhi_turb.F |
4263 |
LINADJ |
IF( (VX0(I).GT.XX0MAX).AND.(VXNUM(I).GE.0.) )VXNUM(I) = 0. |
./pkg/fizhi/fizhi_turb.F |
4264 |
LINADJ |
VXNUM(I) = VXNUM1(I) * VXNUM(I) |
./pkg/fizhi/fizhi_turb.F |
4271 |
LINADJ |
VXNUM(I) = VXNUM(I) + VXNUM3(I) * ( VWS2(I) - VWS1(I) ) |
./pkg/fizhi/fizhi_turb.F |
4277 |
LINADJ |
VDZETA1(I) = VXNUM(I) |
./pkg/fizhi/fizhi_turb.F |
4278 |
LINADJ |
IF(LWATER.AND.(IWATER(I).EQ.1)) VXNUM(I) = VXNUM(I) + VXNUM2(I) |
./pkg/fizhi/fizhi_turb.F |
4285 |
LINADJ |
VDZETA(I) = VXNUM(I) / VDEN(I) |