Symbol Description Uses
VUSTAR 62


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 2445 SFCFLX 
      _RL VKM(IRUN),VKH(IRUN),VUSTAR(IRUN),VXX(IRUN)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 2528 SFCFLX 
       VUSTAR(I) = VCU(I) * VWS(I)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 2530 SFCFLX 
       VPSIG(I) = VH0(I) * VUSTAR(I) - USTH0S
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 2544 SFCFLX 
     1  VWS,VZ0,VUSTAR,IVWATER,
./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 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 2658 SFCFLX 
        VPSIG(I) = VH0(I) * VUSTAR(I) - USTH0S
./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 2717 SFCFLX 
         VPSIG(I) = VH0(I) * VUSTAR(I) - USTH0S
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 2797 SFCFLX 
       VKH(I) = VUSTAR(I) * VCT(I)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 2798 SFCFLX 
       VKM(I) = VUSTAR(I) * VCU(I)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 4107 LINADJ 
      SUBROUTINE LINADJ ( NN,VRIB1,VRIB2,VWS1,VWS2,VZ1,VUSTAR,IWATER,
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 4157 LINADJ 
      _RL VWS1(IRUN),VWS2(IRUN),VZ1(IRUN),VUSTAR(IRUN)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 4216 LINADJ 
        CALL ZCSUB ( VUSTAR,VDZSEA,IWATER,.TRUE.,IRUN,VZ2)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 4423 ZCSUB 
      SUBROUTINE ZCSUB (VUSTAR,VDZSEA,IWATER,LDZSEA,IRUN,VZSEA)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 4448 ZCSUB 
      _RL VZSEA(IRUN),VUSTAR(IRUN),VDZSEA(IRUN)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 4476 ZCSUB 
       IF(VUSTAR(I) .LT. 1.e-6)THEN
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 4483 ZCSUB 
       IF(INT3(I).EQ.1) VUSTAR(I) = 1.e-6
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 4491 ZCSUB 
       IF( (VUSTAR(I) .GT. USTMX1) .AND. (IWATER(I).EQ.1) ) THEN
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 4498 ZCSUB 
       IF(VUSTAR(I) .GT. USTMX2) THEN
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 4505 ZCSUB 
       IF(VUSTAR(I) .GE. USTMX3) THEN
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 4526 ZCSUB 
       VDZSEA(I)  =  ( AA(I,4) + AA(I,5) * VUSTAR(I) ) * VUSTAR(I)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 4527 ZCSUB 
       VZSEA(I)  =  AA(I,2) + ( AA(I,3) + VDZSEA(I) ) * VUSTAR(I)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 4528 ZCSUB 
       TEMP(I) = AA(I,1) / VUSTAR(I)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 4538 ZCSUB 
        VDZSEA(I)  =  3. * VDZSEA(I) -(AA(I,4)*VUSTAR(I) - AA(I,3))
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 4539 ZCSUB 
        VDZSEA(I)  =  VDZSEA(I) * VUSTAR(I) - TEMP(I)
./pkg/fizhi/fizhi_turb.F 2345 SFCFLX 
     3      VUSTAR,VXX,VYY,VCU,VCT,VRIB,VZETA,VWS,
./pkg/fizhi/fizhi_turb.F 2406 SFCFLX 
      _RL VKM(IRUN),VKH(IRUN),VUSTAR(IRUN),VXX(IRUN)
./pkg/fizhi/fizhi_turb.F 2489 SFCFLX 
       VUSTAR(I) = VCU(I) * VWS(I)
./pkg/fizhi/fizhi_turb.F 2491 SFCFLX 
       VPSIG(I) = VH0(I) * VUSTAR(I) - USTH0S
./pkg/fizhi/fizhi_turb.F 2505 SFCFLX 
     1  VWS,VZ0,VUSTAR,IVWATER,
./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 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 2619 SFCFLX 
        VPSIG(I) = VH0(I) * VUSTAR(I) - USTH0S
./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 2678 SFCFLX 
         VPSIG(I) = VH0(I) * VUSTAR(I) - USTH0S
./pkg/fizhi/fizhi_turb.F 2758 SFCFLX 
       VKH(I) = VUSTAR(I) * VCT(I)
./pkg/fizhi/fizhi_turb.F 2759 SFCFLX 
       VKM(I) = VUSTAR(I) * VCU(I)
./pkg/fizhi/fizhi_turb.F 4068 LINADJ 
      SUBROUTINE LINADJ ( NN,VRIB1,VRIB2,VWS1,VWS2,VZ1,VUSTAR,IWATER,
./pkg/fizhi/fizhi_turb.F 4118 LINADJ 
      _RL VWS1(IRUN),VWS2(IRUN),VZ1(IRUN),VUSTAR(IRUN)
./pkg/fizhi/fizhi_turb.F 4177 LINADJ 
        CALL ZCSUB ( VUSTAR,VDZSEA,IWATER,.TRUE.,IRUN,VZ2)
./pkg/fizhi/fizhi_turb.F 4384 ZCSUB 
      SUBROUTINE ZCSUB (VUSTAR,VDZSEA,IWATER,LDZSEA,IRUN,VZSEA)
./pkg/fizhi/fizhi_turb.F 4409 ZCSUB 
      _RL VZSEA(IRUN),VUSTAR(IRUN),VDZSEA(IRUN)
./pkg/fizhi/fizhi_turb.F 4437 ZCSUB 
       IF(VUSTAR(I) .LT. 1.e-6)THEN
./pkg/fizhi/fizhi_turb.F 4444 ZCSUB 
       IF(INT3(I).EQ.1) VUSTAR(I) = 1.e-6
./pkg/fizhi/fizhi_turb.F 4452 ZCSUB 
       IF( (VUSTAR(I) .GT. USTMX1) .AND. (IWATER(I).EQ.1) ) THEN
./pkg/fizhi/fizhi_turb.F 4459 ZCSUB 
       IF(VUSTAR(I) .GT. USTMX2) THEN
./pkg/fizhi/fizhi_turb.F 4466 ZCSUB 
       IF(VUSTAR(I) .GE. USTMX3) THEN
./pkg/fizhi/fizhi_turb.F 4487 ZCSUB 
       VDZSEA(I)  =  ( AA(I,4) + AA(I,5) * VUSTAR(I) ) * VUSTAR(I)
./pkg/fizhi/fizhi_turb.F 4488 ZCSUB 
       VZSEA(I)  =  AA(I,2) + ( AA(I,3) + VDZSEA(I) ) * VUSTAR(I)
./pkg/fizhi/fizhi_turb.F 4489 ZCSUB 
       TEMP(I) = AA(I,1) / VUSTAR(I)
./pkg/fizhi/fizhi_turb.F 4499 ZCSUB 
        VDZSEA(I)  =  3. * VDZSEA(I) -(AA(I,4)*VUSTAR(I) - AA(I,3))
./pkg/fizhi/fizhi_turb.F 4500 ZCSUB 
        VDZSEA(I)  =  VDZSEA(I) * VUSTAR(I) - TEMP(I)