| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2384 |
SFCFLX |
3 VUSTAR,VXX,VYY,VCU,VCT,VRIB,VZETA,VWS, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2447 |
SFCFLX |
_RL VZETA(IRUN),VWS(IRUN) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2492 |
SFCFLX |
VWS(I) = VUS(I) * VUS(I) + VVS(I) * VVS(I) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2493 |
SFCFLX |
IF ( VWS(I) .LE. 1.e-4) VWS(I) = 1.e-4 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2495 |
SFCFLX |
1 (VTHV1(I) - VTHV2(I)) / VWS(I) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2496 |
SFCFLX |
VWS(I) = SQRT( VWS(I) ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2528 |
SFCFLX |
VUSTAR(I) = VCU(I) * VWS(I) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2543 |
SFCFLX |
CALL LINADJ(NN,VRIB,VRIB,VWS, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2544 |
SFCFLX |
1 VWS,VZ0,VUSTAR,IVWATER, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2561 |
SFCFLX |
VPSIG(I) = VH0(I) * VCU(I) * VWS(I) - USTH0S |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2586 |
SFCFLX |
VPSIG(I) = VH0(I) * VCU(I) * VWS(I) - USTH0S |
|
./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 |
2616 |
SFCFLX |
1 VWS,VZ0,VUSTAR,IVWATER, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2656 |
SFCFLX |
VUSTAR(I) = VCU(I) * VWS(I) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2675 |
SFCFLX |
CALL LINADJ(NN,VRIB1,VRIB,VWS, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2676 |
SFCFLX |
1 VWS,VZ0,VUSTAR,IVWATER, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2715 |
SFCFLX |
VUSTAR(I) = VCU(I) * VWS(I) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2731 |
SFCFLX |
VWS1(I) = VWS(I) |
|
./pkg/fizhi/fizhi_turb.F |
2345 |
SFCFLX |
3 VUSTAR,VXX,VYY,VCU,VCT,VRIB,VZETA,VWS, |
|
./pkg/fizhi/fizhi_turb.F |
2408 |
SFCFLX |
_RL VZETA(IRUN),VWS(IRUN) |
|
./pkg/fizhi/fizhi_turb.F |
2453 |
SFCFLX |
VWS(I) = VUS(I) * VUS(I) + VVS(I) * VVS(I) |
|
./pkg/fizhi/fizhi_turb.F |
2454 |
SFCFLX |
IF ( VWS(I) .LE. 1.e-4) VWS(I) = 1.e-4 |
|
./pkg/fizhi/fizhi_turb.F |
2456 |
SFCFLX |
1 (VTHV1(I) - VTHV2(I)) / VWS(I) |
|
./pkg/fizhi/fizhi_turb.F |
2457 |
SFCFLX |
VWS(I) = SQRT( VWS(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
2489 |
SFCFLX |
VUSTAR(I) = VCU(I) * VWS(I) |
|
./pkg/fizhi/fizhi_turb.F |
2504 |
SFCFLX |
CALL LINADJ(NN,VRIB,VRIB,VWS, |
|
./pkg/fizhi/fizhi_turb.F |
2505 |
SFCFLX |
1 VWS,VZ0,VUSTAR,IVWATER, |
|
./pkg/fizhi/fizhi_turb.F |
2522 |
SFCFLX |
VPSIG(I) = VH0(I) * VCU(I) * VWS(I) - USTH0S |
|
./pkg/fizhi/fizhi_turb.F |
2547 |
SFCFLX |
VPSIG(I) = VH0(I) * VCU(I) * VWS(I) - USTH0S |
|
./pkg/fizhi/fizhi_turb.F |
2558 |
SFCFLX |
IF (IVWATER(I).EQ.1) VUSTAR(I) = VCU(I) * VWS(I) |
|
./pkg/fizhi/fizhi_turb.F |
2577 |
SFCFLX |
1 VWS,VZ0,VUSTAR,IVWATER, |
|
./pkg/fizhi/fizhi_turb.F |
2617 |
SFCFLX |
VUSTAR(I) = VCU(I) * VWS(I) |
|
./pkg/fizhi/fizhi_turb.F |
2636 |
SFCFLX |
CALL LINADJ(NN,VRIB1,VRIB,VWS, |
|
./pkg/fizhi/fizhi_turb.F |
2637 |
SFCFLX |
1 VWS,VZ0,VUSTAR,IVWATER, |
|
./pkg/fizhi/fizhi_turb.F |
2676 |
SFCFLX |
VUSTAR(I) = VCU(I) * VWS(I) |
|
./pkg/fizhi/fizhi_turb.F |
2692 |
SFCFLX |
VWS1(I) = VWS(I) |