| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
2320 |
SFCFLX |
1 VSH2,VPK,VPKE,VPE,VZ0,IVWATER,VHS, |
|
./pkg/fizhi/fizhi_turb.F |
2376 |
SFCFLX |
_RL VZ0(IRUN),VHS(IRUN),VAHS(IRUN) |
|
./pkg/fizhi/fizhi_turb.F |
2448 |
SFCFLX |
IF (IVWATER(I).EQ.1) VZ0(I) = 0.0003 |
|
./pkg/fizhi/fizhi_turb.F |
2459 |
SFCFLX |
VHZ(I) = VHS(I) / VZ0(I) |
|
./pkg/fizhi/fizhi_turb.F |
2479 |
SFCFLX |
1 VWS,VZ0,VUSTAR,IVWATER, |
|
./pkg/fizhi/fizhi_turb.F |
2491 |
SFCFLX |
VZ0(I) = VZ0(I) + VDZ0(I) |
|
./pkg/fizhi/fizhi_turb.F |
2494 |
SFCFLX |
IF ( VZ0(I) .LE. Z0MIN ) VZ0(I) = Z0MIN |
|
./pkg/fizhi/fizhi_turb.F |
2514 |
SFCFLX |
VZH(I) = VZ0(I) * VAHS(I) |
|
./pkg/fizhi/fizhi_turb.F |
2537 |
SFCFLX |
VZ0(I) = VTEMP(I) |
|
./pkg/fizhi/fizhi_turb.F |
2538 |
SFCFLX |
IF ( VZ0(I) .LE. Z0MIN ) VZ0(I) = Z0MIN |
|
./pkg/fizhi/fizhi_turb.F |
2551 |
SFCFLX |
1 VWS,VZ0,VUSTAR,IVWATER, |
|
./pkg/fizhi/fizhi_turb.F |
2570 |
SFCFLX |
VZ0(I) = VZ0(I) + VZ0L(I) * VDZ0(I) |
|
./pkg/fizhi/fizhi_turb.F |
2571 |
SFCFLX |
IF (VZ0(I) .LE. Z0MIN ) VZ0(I) = Z0MIN |
|
./pkg/fizhi/fizhi_turb.F |
2584 |
SFCFLX |
VZH(I) = VZ0(I) * VAHS(I) |
|
./pkg/fizhi/fizhi_turb.F |
2611 |
SFCFLX |
1 VWS,VZ0,VUSTAR,IVWATER, |
|
./pkg/fizhi/fizhi_turb.F |
2626 |
SFCFLX |
VZ0L(I) = VZ0(I) |
|
./pkg/fizhi/fizhi_turb.F |
2639 |
SFCFLX |
VZ0(I) = VZ0(I) * ( 1. + VDZ0(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
2640 |
SFCFLX |
IF (VZ0(I) .LE. Z0MIN ) VZ0(I) = Z0MIN |
|
./pkg/fizhi/fizhi_turb.F |
2677 |
SFCFLX |
VZH(I) = VZ0(I) * 0.1 |