| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
2771 |
SFCFLX |
3 VUSTAR,VXX,VYY,VCU,VCT,VRIB,VZETA,VWS, |
|
./pkg/fizhi/fizhi_turb.F |
2834 |
SFCFLX |
_RL VZETA(IRUN),VWS(IRUN) |
|
./pkg/fizhi/fizhi_turb.F |
2879 |
SFCFLX |
VWS(I) = VUS(I) * VUS(I) + VVS(I) * VVS(I) |
|
./pkg/fizhi/fizhi_turb.F |
2880 |
SFCFLX |
IF ( VWS(I) .LE. 1.e-4) VWS(I) = 1.e-4 |
|
./pkg/fizhi/fizhi_turb.F |
2882 |
SFCFLX |
1 (VTHV1(I) - VTHV2(I)) / VWS(I) |
|
./pkg/fizhi/fizhi_turb.F |
2883 |
SFCFLX |
VWS(I) = SQRT( VWS(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
2915 |
SFCFLX |
VUSTAR(I) = VCU(I) * VWS(I) |
|
./pkg/fizhi/fizhi_turb.F |
2930 |
SFCFLX |
CALL LINADJ(NN,VRIB,VRIB,VWS, |
|
./pkg/fizhi/fizhi_turb.F |
2931 |
SFCFLX |
1 VWS,VZ0,VUSTAR,IVWATER, |
|
./pkg/fizhi/fizhi_turb.F |
2948 |
SFCFLX |
VPSIG(I) = VH0(I) * VCU(I) * VWS(I) - USTH0S |
|
./pkg/fizhi/fizhi_turb.F |
2973 |
SFCFLX |
VPSIG(I) = VH0(I) * VCU(I) * VWS(I) - USTH0S |
|
./pkg/fizhi/fizhi_turb.F |
2984 |
SFCFLX |
IF (IVWATER(I).EQ.1) VUSTAR(I) = VCU(I) * VWS(I) |
|
./pkg/fizhi/fizhi_turb.F |
3003 |
SFCFLX |
1 VWS,VZ0,VUSTAR,IVWATER, |
|
./pkg/fizhi/fizhi_turb.F |
3043 |
SFCFLX |
VUSTAR(I) = VCU(I) * VWS(I) |
|
./pkg/fizhi/fizhi_turb.F |
3062 |
SFCFLX |
CALL LINADJ(NN,VRIB1,VRIB,VWS, |
|
./pkg/fizhi/fizhi_turb.F |
3063 |
SFCFLX |
1 VWS,VZ0,VUSTAR,IVWATER, |
|
./pkg/fizhi/fizhi_turb.F |
3102 |
SFCFLX |
VUSTAR(I) = VCU(I) * VWS(I) |
|
./pkg/fizhi/fizhi_turb.F |
3118 |
SFCFLX |
VWS1(I) = VWS(I) |