| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
2769 |
SFCFLX |
1 VSH2,VPK,VPKE,VPE,VZ0,IVWATER,VHS, |
|
./pkg/fizhi/fizhi_turb.F |
2829 |
SFCFLX |
integer IVWATER(IRUN) |
|
./pkg/fizhi/fizhi_turb.F |
2893 |
SFCFLX |
IF (IVWATER(I).EQ.1) IWATER = IWATER + 1 |
|
./pkg/fizhi/fizhi_turb.F |
2900 |
SFCFLX |
IF (IVWATER(I).EQ.1) VZ0(I) = 0.0003 |
|
./pkg/fizhi/fizhi_turb.F |
2931 |
SFCFLX |
1 VWS,VZ0,VUSTAR,IVWATER, |
|
./pkg/fizhi/fizhi_turb.F |
2941 |
SFCFLX |
IF ( IVWATER(I).EQ.1 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
2945 |
SFCFLX |
IF ( IVWATER(I).EQ.1) THEN |
|
./pkg/fizhi/fizhi_turb.F |
2984 |
SFCFLX |
IF (IVWATER(I).EQ.1) VUSTAR(I) = VCU(I) * VWS(I) |
|
./pkg/fizhi/fizhi_turb.F |
2986 |
SFCFLX |
CALL ZCSUB ( VUSTAR,VHZ,IVWATER,.FALSE.,IRUN,VTEMP) |
|
./pkg/fizhi/fizhi_turb.F |
2988 |
SFCFLX |
IF (IVWATER(I).EQ.1 ) then |
|
./pkg/fizhi/fizhi_turb.F |
3003 |
SFCFLX |
1 VWS,VZ0,VUSTAR,IVWATER, |
|
./pkg/fizhi/fizhi_turb.F |
3021 |
SFCFLX |
IF (IVWATER(I).EQ.1 ) then |
|
./pkg/fizhi/fizhi_turb.F |
3063 |
SFCFLX |
1 VWS,VZ0,VUSTAR,IVWATER, |
|
./pkg/fizhi/fizhi_turb.F |
3090 |
SFCFLX |
IF (IVWATER(I).EQ.1 ) then |