| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
2322 |
SFCFLX |
3 VUSTAR,VXX,VYY,VCU,VCT,VRIB,VZETA,VWS, |
|
./pkg/fizhi/fizhi_turb.F |
2380 |
SFCFLX |
_RL VKM(IRUN),VKH(IRUN),VUSTAR(IRUN),VXX(IRUN) |
|
./pkg/fizhi/fizhi_turb.F |
2463 |
SFCFLX |
VUSTAR(I) = VCU(I) * VWS(I) |
|
./pkg/fizhi/fizhi_turb.F |
2465 |
SFCFLX |
VPSIG(I) = VH0(I) * VUSTAR(I) - USTH0S |
|
./pkg/fizhi/fizhi_turb.F |
2479 |
SFCFLX |
1 VWS,VZ0,VUSTAR,IVWATER, |
|
./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 |
2551 |
SFCFLX |
1 VWS,VZ0,VUSTAR,IVWATER, |
|
./pkg/fizhi/fizhi_turb.F |
2591 |
SFCFLX |
VUSTAR(I) = VCU(I) * VWS(I) |
|
./pkg/fizhi/fizhi_turb.F |
2593 |
SFCFLX |
VPSIG(I) = VH0(I) * VUSTAR(I) - USTH0S |
|
./pkg/fizhi/fizhi_turb.F |
2611 |
SFCFLX |
1 VWS,VZ0,VUSTAR,IVWATER, |
|
./pkg/fizhi/fizhi_turb.F |
2650 |
SFCFLX |
VUSTAR(I) = VCU(I) * VWS(I) |
|
./pkg/fizhi/fizhi_turb.F |
2652 |
SFCFLX |
VPSIG(I) = VH0(I) * VUSTAR(I) - USTH0S |
|
./pkg/fizhi/fizhi_turb.F |
2732 |
SFCFLX |
VKH(I) = VUSTAR(I) * VCT(I) |
|
./pkg/fizhi/fizhi_turb.F |
2733 |
SFCFLX |
VKM(I) = VUSTAR(I) * VCU(I) |
|
./pkg/fizhi/fizhi_turb.F |
4083 |
LINADJ |
SUBROUTINE LINADJ ( NN,VRIB1,VRIB2,VWS1,VWS2,VZ1,VUSTAR,IWATER, |
|
./pkg/fizhi/fizhi_turb.F |
4129 |
LINADJ |
_RL VWS1(IRUN),VWS2(IRUN),VZ1(IRUN),VUSTAR(IRUN) |
|
./pkg/fizhi/fizhi_turb.F |
4188 |
LINADJ |
CALL ZCSUB ( VUSTAR,VDZSEA,IWATER,.TRUE.,IRUN,VZ2) |
|
./pkg/fizhi/fizhi_turb.F |
4397 |
ZCSUB |
SUBROUTINE ZCSUB (VUSTAR,VDZSEA,IWATER,LDZSEA,IRUN,VZSEA) |
|
./pkg/fizhi/fizhi_turb.F |
4422 |
ZCSUB |
_RL VZSEA(IRUN),VUSTAR(IRUN),VDZSEA(IRUN) |
|
./pkg/fizhi/fizhi_turb.F |
4450 |
ZCSUB |
IF(VUSTAR(I) .LT. 1.e-6)THEN |
|
./pkg/fizhi/fizhi_turb.F |
4457 |
ZCSUB |
IF(INT3(I).EQ.1) VUSTAR(I) = 1.e-6 |
|
./pkg/fizhi/fizhi_turb.F |
4465 |
ZCSUB |
IF( (VUSTAR(I) .GT. USTMX1) .AND. (IWATER(I).EQ.1) ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4472 |
ZCSUB |
IF(VUSTAR(I) .GT. USTMX2) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4479 |
ZCSUB |
IF(VUSTAR(I) .GE. USTMX3) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4500 |
ZCSUB |
VDZSEA(I) = ( AA(I,4) + AA(I,5) * VUSTAR(I) ) * VUSTAR(I) |
|
./pkg/fizhi/fizhi_turb.F |
4501 |
ZCSUB |
VZSEA(I) = AA(I,2) + ( AA(I,3) + VDZSEA(I) ) * VUSTAR(I) |
|
./pkg/fizhi/fizhi_turb.F |
4502 |
ZCSUB |
TEMP(I) = AA(I,1) / VUSTAR(I) |
|
./pkg/fizhi/fizhi_turb.F |
4512 |
ZCSUB |
VDZSEA(I) = 3. * VDZSEA(I) -(AA(I,4)*VUSTAR(I) - AA(I,3)) |
|
./pkg/fizhi/fizhi_turb.F |
4513 |
ZCSUB |
VDZSEA(I) = VDZSEA(I) * VUSTAR(I) - TEMP(I) |