| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1590 |
TRBFLX |
_RL VAPSIHG(irun),VRIB1(irun),VWS1(irun) |
|
./pkg/fizhi/fizhi_turb.F |
2025 |
TRBFLX |
5 VDPSIH,VZH,VXX0,VYY0,VAPSIHG,VRIB1,VWS1,VPSIH, |
|
./pkg/fizhi/fizhi_turb.F |
2776 |
SFCFLX |
8 VDPSIH,VZH,VXX0,VYY0,VAPSIHG,VRIB1,VWS1,VPSIH,VZETAL, |
|
./pkg/fizhi/fizhi_turb.F |
2842 |
SFCFLX |
_RL VAPSIHG(irun),VRIB1(irun),VWS1(irun) |
|
./pkg/fizhi/fizhi_turb.F |
3002 |
SFCFLX |
CALL LINADJ(NN,VRIB1,VRIB,VWS1, |
|
./pkg/fizhi/fizhi_turb.F |
3055 |
SFCFLX |
VRIB1(I) = VAPSIM(I) * VAPSIM(I) * VPSIHG(I) * VZETA(I) |
|
./pkg/fizhi/fizhi_turb.F |
3062 |
SFCFLX |
CALL LINADJ(NN,VRIB1,VRIB,VWS, |
|
./pkg/fizhi/fizhi_turb.F |
3117 |
SFCFLX |
VRIB1(I) = VRIB(I) |
|
./pkg/fizhi/fizhi_turb.F |
4648 |
LINADJ |
SUBROUTINE LINADJ ( NN,VRIB1,VRIB2,VWS1,VWS2,VZ1,VUSTAR,IWATER, |
|
./pkg/fizhi/fizhi_turb.F |
4697 |
LINADJ |
_RL VRIB1(IRUN),VRIB2(IRUN) |
|
./pkg/fizhi/fizhi_turb.F |
4782 |
LINADJ |
IF (VRIB1(I).EQ.0.) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4787 |
LINADJ |
IF ( INTRIB(I).EQ.0 ) VXNUM1(I) = 1. / VRIB1(I) |
|
./pkg/fizhi/fizhi_turb.F |
4831 |
LINADJ |
VXNUM(I) = VRIB2(I) - VRIB1(I) |