| 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 |
2377 |
SFCFLX |
integer IVWATER(IRUN) |
|
./pkg/fizhi/fizhi_turb.F |
2441 |
SFCFLX |
IF (IVWATER(I).EQ.1) IWATER = IWATER + 1 |
|
./pkg/fizhi/fizhi_turb.F |
2448 |
SFCFLX |
IF (IVWATER(I).EQ.1) VZ0(I) = 0.0003 |
|
./pkg/fizhi/fizhi_turb.F |
2479 |
SFCFLX |
1 VWS,VZ0,VUSTAR,IVWATER, |
|
./pkg/fizhi/fizhi_turb.F |
2489 |
SFCFLX |
IF ( IVWATER(I).EQ.1 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
2493 |
SFCFLX |
IF ( IVWATER(I).EQ.1) THEN |
|
./pkg/fizhi/fizhi_turb.F |
2532 |
SFCFLX |
IF (IVWATER(I).EQ.1) VUSTAR(I) = VCU(I) * VWS(I) |
|
./pkg/fizhi/fizhi_turb.F |
2534 |
SFCFLX |
CALL ZCSUB ( VUSTAR,VHZ,IVWATER,.FALSE.,IRUN,VTEMP) |
|
./pkg/fizhi/fizhi_turb.F |
2536 |
SFCFLX |
IF (IVWATER(I).EQ.1 ) then |
|
./pkg/fizhi/fizhi_turb.F |
2551 |
SFCFLX |
1 VWS,VZ0,VUSTAR,IVWATER, |
|
./pkg/fizhi/fizhi_turb.F |
2569 |
SFCFLX |
IF (IVWATER(I).EQ.1 ) then |
|
./pkg/fizhi/fizhi_turb.F |
2611 |
SFCFLX |
1 VWS,VZ0,VUSTAR,IVWATER, |
|
./pkg/fizhi/fizhi_turb.F |
2638 |
SFCFLX |
IF (IVWATER(I).EQ.1 ) then |