| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1569 |
TRBFLX |
_RL VAPSIHG(irun),VRIB1(irun),VWS1(irun) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1899 |
TRBFLX |
5 VDPSIH,VZH,VXX0,VYY0,VAPSIHG,VRIB1,VWS1,VPSIH, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2389 |
SFCFLX |
8 VDPSIH,VZH,VXX0,VYY0,VAPSIHG,VRIB1,VWS1,VPSIH,VZETAL, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2455 |
SFCFLX |
_RL VAPSIHG(irun),VRIB1(irun),VWS1(irun) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2615 |
SFCFLX |
CALL LINADJ(NN,VRIB1,VRIB,VWS1, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2668 |
SFCFLX |
VRIB1(I) = VAPSIM(I) * VAPSIM(I) * VPSIHG(I) * VZETA(I) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2675 |
SFCFLX |
CALL LINADJ(NN,VRIB1,VRIB,VWS, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2730 |
SFCFLX |
VRIB1(I) = VRIB(I) |
|
./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 |
4241 |
LINADJ |
IF (VRIB1(I).EQ.0.) THEN |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
4246 |
LINADJ |
IF ( INTRIB(I).EQ.0 ) VXNUM1(I) = 1. / VRIB1(I) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
4290 |
LINADJ |
VXNUM(I) = VRIB2(I) - VRIB1(I) |
|
./pkg/fizhi/fizhi_turb.F |
1529 |
TRBFLX |
_RL VAPSIHG(irun),VRIB1(irun),VWS1(irun) |
|
./pkg/fizhi/fizhi_turb.F |
1859 |
TRBFLX |
5 VDPSIH,VZH,VXX0,VYY0,VAPSIHG,VRIB1,VWS1,VPSIH, |
|
./pkg/fizhi/fizhi_turb.F |
2350 |
SFCFLX |
8 VDPSIH,VZH,VXX0,VYY0,VAPSIHG,VRIB1,VWS1,VPSIH,VZETAL, |
|
./pkg/fizhi/fizhi_turb.F |
2416 |
SFCFLX |
_RL VAPSIHG(irun),VRIB1(irun),VWS1(irun) |
|
./pkg/fizhi/fizhi_turb.F |
2576 |
SFCFLX |
CALL LINADJ(NN,VRIB1,VRIB,VWS1, |
|
./pkg/fizhi/fizhi_turb.F |
2629 |
SFCFLX |
VRIB1(I) = VAPSIM(I) * VAPSIM(I) * VPSIHG(I) * VZETA(I) |
|
./pkg/fizhi/fizhi_turb.F |
2636 |
SFCFLX |
CALL LINADJ(NN,VRIB1,VRIB,VWS, |
|
./pkg/fizhi/fizhi_turb.F |
2691 |
SFCFLX |
VRIB1(I) = VRIB(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 |
4202 |
LINADJ |
IF (VRIB1(I).EQ.0.) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4207 |
LINADJ |
IF ( INTRIB(I).EQ.0 ) VXNUM1(I) = 1. / VRIB1(I) |
|
./pkg/fizhi/fizhi_turb.F |
4251 |
LINADJ |
VXNUM(I) = VRIB2(I) - VRIB1(I) |