| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2382 |
SFCFLX |
1 VSH2,VPK,VPKE,VPE,VZ0,IVWATER,VHS, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2442 |
SFCFLX |
integer IVWATER(IRUN) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2506 |
SFCFLX |
IF (IVWATER(I).EQ.1) IWATER = IWATER + 1 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2513 |
SFCFLX |
IF (IVWATER(I).EQ.1) VZ0(I) = 0.0003 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2544 |
SFCFLX |
1 VWS,VZ0,VUSTAR,IVWATER, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2554 |
SFCFLX |
IF ( IVWATER(I).EQ.1 ) THEN |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2558 |
SFCFLX |
IF ( IVWATER(I).EQ.1) THEN |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2597 |
SFCFLX |
IF (IVWATER(I).EQ.1) VUSTAR(I) = VCU(I) * VWS(I) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2599 |
SFCFLX |
CALL ZCSUB ( VUSTAR,VHZ,IVWATER,.FALSE.,IRUN,VTEMP) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2601 |
SFCFLX |
IF (IVWATER(I).EQ.1 ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2616 |
SFCFLX |
1 VWS,VZ0,VUSTAR,IVWATER, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2634 |
SFCFLX |
IF (IVWATER(I).EQ.1 ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2676 |
SFCFLX |
1 VWS,VZ0,VUSTAR,IVWATER, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2703 |
SFCFLX |
IF (IVWATER(I).EQ.1 ) then |
|
./pkg/fizhi/fizhi_turb.F |
2343 |
SFCFLX |
1 VSH2,VPK,VPKE,VPE,VZ0,IVWATER,VHS, |
|
./pkg/fizhi/fizhi_turb.F |
2403 |
SFCFLX |
integer IVWATER(IRUN) |
|
./pkg/fizhi/fizhi_turb.F |
2467 |
SFCFLX |
IF (IVWATER(I).EQ.1) IWATER = IWATER + 1 |
|
./pkg/fizhi/fizhi_turb.F |
2474 |
SFCFLX |
IF (IVWATER(I).EQ.1) VZ0(I) = 0.0003 |
|
./pkg/fizhi/fizhi_turb.F |
2505 |
SFCFLX |
1 VWS,VZ0,VUSTAR,IVWATER, |
|
./pkg/fizhi/fizhi_turb.F |
2515 |
SFCFLX |
IF ( IVWATER(I).EQ.1 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
2519 |
SFCFLX |
IF ( IVWATER(I).EQ.1) THEN |
|
./pkg/fizhi/fizhi_turb.F |
2558 |
SFCFLX |
IF (IVWATER(I).EQ.1) VUSTAR(I) = VCU(I) * VWS(I) |
|
./pkg/fizhi/fizhi_turb.F |
2560 |
SFCFLX |
CALL ZCSUB ( VUSTAR,VHZ,IVWATER,.FALSE.,IRUN,VTEMP) |
|
./pkg/fizhi/fizhi_turb.F |
2562 |
SFCFLX |
IF (IVWATER(I).EQ.1 ) then |
|
./pkg/fizhi/fizhi_turb.F |
2577 |
SFCFLX |
1 VWS,VZ0,VUSTAR,IVWATER, |
|
./pkg/fizhi/fizhi_turb.F |
2595 |
SFCFLX |
IF (IVWATER(I).EQ.1 ) then |
|
./pkg/fizhi/fizhi_turb.F |
2637 |
SFCFLX |
1 VWS,VZ0,VUSTAR,IVWATER, |
|
./pkg/fizhi/fizhi_turb.F |
2664 |
SFCFLX |
IF (IVWATER(I).EQ.1 ) then |