| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
4107 |
LINADJ |
SUBROUTINE LINADJ ( NN,VRIB1,VRIB2,VWS1,VWS2,VZ1,VUSTAR,IWATER, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
4156 |
LINADJ |
_RL VRIB1(IRUN),VRIB2(IRUN) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
4290 |
LINADJ |
VXNUM(I) = VRIB2(I) - VRIB1(I) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
4318 |
LINADJ |
IF ( (VRIB2(I).EQ.0.) .OR. (VDZETA(I).LE.-1.) ) THEN |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
4329 |
LINADJ |
IF ( (VRIB2(I).EQ.0.) .OR. (VDZETA2(I).LE.-1.) ) THEN |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
4334 |
LINADJ |
IF(VINT1(I).EQ.1)VDZETA(I)=VXNUM1(I)*VRIB2(I) - 1. - VDZETA1(I) |
|
./pkg/fizhi/fizhi_turb.F |
4068 |
LINADJ |
SUBROUTINE LINADJ ( NN,VRIB1,VRIB2,VWS1,VWS2,VZ1,VUSTAR,IWATER, |
|
./pkg/fizhi/fizhi_turb.F |
4117 |
LINADJ |
_RL VRIB1(IRUN),VRIB2(IRUN) |
|
./pkg/fizhi/fizhi_turb.F |
4251 |
LINADJ |
VXNUM(I) = VRIB2(I) - VRIB1(I) |
|
./pkg/fizhi/fizhi_turb.F |
4279 |
LINADJ |
IF ( (VRIB2(I).EQ.0.) .OR. (VDZETA(I).LE.-1.) ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4290 |
LINADJ |
IF ( (VRIB2(I).EQ.0.) .OR. (VDZETA2(I).LE.-1.) ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4295 |
LINADJ |
IF(VINT1(I).EQ.1)VDZETA(I)=VXNUM1(I)*VRIB2(I) - 1. - VDZETA1(I) |