| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1420 |
TRBFLX |
_RL VAPSIHG(irun),VRIB1(irun),VWS1(irun) |
|
./pkg/fizhi/fizhi_turb.F |
1773 |
TRBFLX |
5 VDPSIH,VZH,VXX0,VYY0,VAPSIHG,VRIB1,VWS1,VPSIH, |
|
./pkg/fizhi/fizhi_turb.F |
2327 |
SFCFLX |
8 VDPSIH,VZH,VXX0,VYY0,VAPSIHG,VRIB1,VWS1,VPSIH,VZETAL, |
|
./pkg/fizhi/fizhi_turb.F |
2390 |
SFCFLX |
_RL VAPSIHG(irun),VRIB1(irun),VWS1(irun) |
|
./pkg/fizhi/fizhi_turb.F |
2550 |
SFCFLX |
CALL LINADJ(NN,VRIB1,VRIB,VWS1, |
|
./pkg/fizhi/fizhi_turb.F |
2603 |
SFCFLX |
VRIB1(I) = VAPSIM(I) * VAPSIM(I) * VPSIHG(I) * VZETA(I) |
|
./pkg/fizhi/fizhi_turb.F |
2610 |
SFCFLX |
CALL LINADJ(NN,VRIB1,VRIB,VWS, |
|
./pkg/fizhi/fizhi_turb.F |
2665 |
SFCFLX |
VRIB1(I) = VRIB(I) |
|
./pkg/fizhi/fizhi_turb.F |
4083 |
LINADJ |
SUBROUTINE LINADJ ( NN,VRIB1,VRIB2,VWS1,VWS2,VZ1,VUSTAR,IWATER, |
|
./pkg/fizhi/fizhi_turb.F |
4128 |
LINADJ |
_RL VRIB1(IRUN),VRIB2(IRUN) |
|
./pkg/fizhi/fizhi_turb.F |
4213 |
LINADJ |
IF (VRIB1(I).EQ.0.) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4218 |
LINADJ |
IF ( INTRIB(I).EQ.0 ) VXNUM1(I) = 1. / VRIB1(I) |
|
./pkg/fizhi/fizhi_turb.F |
4262 |
LINADJ |
VXNUM(I) = VRIB2(I) - VRIB1(I) |