| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
2322 |
SFCFLX |
3 VUSTAR,VXX,VYY,VCU,VCT,VRIB,VZETA,VWS, |
|
./pkg/fizhi/fizhi_turb.F |
2382 |
SFCFLX |
_RL VZETA(IRUN),VWS(IRUN) |
|
./pkg/fizhi/fizhi_turb.F |
2427 |
SFCFLX |
VWS(I) = VUS(I) * VUS(I) + VVS(I) * VVS(I) |
|
./pkg/fizhi/fizhi_turb.F |
2428 |
SFCFLX |
IF ( VWS(I) .LE. 1.e-4) VWS(I) = 1.e-4 |
|
./pkg/fizhi/fizhi_turb.F |
2430 |
SFCFLX |
1 (VTHV1(I) - VTHV2(I)) / VWS(I) |
|
./pkg/fizhi/fizhi_turb.F |
2431 |
SFCFLX |
VWS(I) = SQRT( VWS(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
2463 |
SFCFLX |
VUSTAR(I) = VCU(I) * VWS(I) |
|
./pkg/fizhi/fizhi_turb.F |
2478 |
SFCFLX |
CALL LINADJ(NN,VRIB,VRIB,VWS, |
|
./pkg/fizhi/fizhi_turb.F |
2479 |
SFCFLX |
1 VWS,VZ0,VUSTAR,IVWATER, |
|
./pkg/fizhi/fizhi_turb.F |
2496 |
SFCFLX |
VPSIG(I) = VH0(I) * VCU(I) * VWS(I) - USTH0S |
|
./pkg/fizhi/fizhi_turb.F |
2521 |
SFCFLX |
VPSIG(I) = VH0(I) * VCU(I) * VWS(I) - USTH0S |
|
./pkg/fizhi/fizhi_turb.F |
2532 |
SFCFLX |
IF (IVWATER(I).EQ.1) VUSTAR(I) = VCU(I) * VWS(I) |
|
./pkg/fizhi/fizhi_turb.F |
2551 |
SFCFLX |
1 VWS,VZ0,VUSTAR,IVWATER, |
|
./pkg/fizhi/fizhi_turb.F |
2591 |
SFCFLX |
VUSTAR(I) = VCU(I) * VWS(I) |
|
./pkg/fizhi/fizhi_turb.F |
2610 |
SFCFLX |
CALL LINADJ(NN,VRIB1,VRIB,VWS, |
|
./pkg/fizhi/fizhi_turb.F |
2611 |
SFCFLX |
1 VWS,VZ0,VUSTAR,IVWATER, |
|
./pkg/fizhi/fizhi_turb.F |
2650 |
SFCFLX |
VUSTAR(I) = VCU(I) * VWS(I) |
|
./pkg/fizhi/fizhi_turb.F |
2666 |
SFCFLX |
VWS1(I) = VWS(I) |