| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
2771 |
SFCFLX |
3 VUSTAR,VXX,VYY,VCU,VCT,VRIB,VZETA,VWS, |
|
./pkg/fizhi/fizhi_turb.F |
2832 |
SFCFLX |
_RL VKM(IRUN),VKH(IRUN),VUSTAR(IRUN),VXX(IRUN) |
|
./pkg/fizhi/fizhi_turb.F |
2915 |
SFCFLX |
VUSTAR(I) = VCU(I) * VWS(I) |
|
./pkg/fizhi/fizhi_turb.F |
2917 |
SFCFLX |
VPSIG(I) = VH0(I) * VUSTAR(I) - USTH0S |
|
./pkg/fizhi/fizhi_turb.F |
2931 |
SFCFLX |
1 VWS,VZ0,VUSTAR,IVWATER, |
|
./pkg/fizhi/fizhi_turb.F |
2984 |
SFCFLX |
IF (IVWATER(I).EQ.1) VUSTAR(I) = VCU(I) * VWS(I) |
|
./pkg/fizhi/fizhi_turb.F |
2986 |
SFCFLX |
CALL ZCSUB ( VUSTAR,VHZ,IVWATER,.FALSE.,IRUN,VTEMP) |
|
./pkg/fizhi/fizhi_turb.F |
3003 |
SFCFLX |
1 VWS,VZ0,VUSTAR,IVWATER, |
|
./pkg/fizhi/fizhi_turb.F |
3043 |
SFCFLX |
VUSTAR(I) = VCU(I) * VWS(I) |
|
./pkg/fizhi/fizhi_turb.F |
3045 |
SFCFLX |
VPSIG(I) = VH0(I) * VUSTAR(I) - USTH0S |
|
./pkg/fizhi/fizhi_turb.F |
3063 |
SFCFLX |
1 VWS,VZ0,VUSTAR,IVWATER, |
|
./pkg/fizhi/fizhi_turb.F |
3102 |
SFCFLX |
VUSTAR(I) = VCU(I) * VWS(I) |
|
./pkg/fizhi/fizhi_turb.F |
3104 |
SFCFLX |
VPSIG(I) = VH0(I) * VUSTAR(I) - USTH0S |
|
./pkg/fizhi/fizhi_turb.F |
3184 |
SFCFLX |
VKH(I) = VUSTAR(I) * VCT(I) |
|
./pkg/fizhi/fizhi_turb.F |
3185 |
SFCFLX |
VKM(I) = VUSTAR(I) * VCU(I) |
|
./pkg/fizhi/fizhi_turb.F |
4648 |
LINADJ |
SUBROUTINE LINADJ ( NN,VRIB1,VRIB2,VWS1,VWS2,VZ1,VUSTAR,IWATER, |
|
./pkg/fizhi/fizhi_turb.F |
4698 |
LINADJ |
_RL VWS1(IRUN),VWS2(IRUN),VZ1(IRUN),VUSTAR(IRUN) |
|
./pkg/fizhi/fizhi_turb.F |
4757 |
LINADJ |
CALL ZCSUB ( VUSTAR,VDZSEA,IWATER,.TRUE.,IRUN,VZ2) |
|
./pkg/fizhi/fizhi_turb.F |
4964 |
ZCSUB |
SUBROUTINE ZCSUB (VUSTAR,VDZSEA,IWATER,LDZSEA,IRUN,VZSEA) |
|
./pkg/fizhi/fizhi_turb.F |
4989 |
ZCSUB |
_RL VZSEA(IRUN),VUSTAR(IRUN),VDZSEA(IRUN) |
|
./pkg/fizhi/fizhi_turb.F |
5017 |
ZCSUB |
IF(VUSTAR(I) .LT. 1.e-6)THEN |
|
./pkg/fizhi/fizhi_turb.F |
5024 |
ZCSUB |
IF(INT3(I).EQ.1) VUSTAR(I) = 1.e-6 |
|
./pkg/fizhi/fizhi_turb.F |
5032 |
ZCSUB |
IF( (VUSTAR(I) .GT. USTMX1) .AND. (IWATER(I).EQ.1) ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
5039 |
ZCSUB |
IF(VUSTAR(I) .GT. USTMX2) THEN |
|
./pkg/fizhi/fizhi_turb.F |
5046 |
ZCSUB |
IF(VUSTAR(I) .GE. USTMX3) THEN |
|
./pkg/fizhi/fizhi_turb.F |
5067 |
ZCSUB |
VDZSEA(I) = ( AA(I,4) + AA(I,5) * VUSTAR(I) ) * VUSTAR(I) |
|
./pkg/fizhi/fizhi_turb.F |
5068 |
ZCSUB |
VZSEA(I) = AA(I,2) + ( AA(I,3) + VDZSEA(I) ) * VUSTAR(I) |
|
./pkg/fizhi/fizhi_turb.F |
5069 |
ZCSUB |
TEMP(I) = AA(I,1) / VUSTAR(I) |
|
./pkg/fizhi/fizhi_turb.F |
5079 |
ZCSUB |
VDZSEA(I) = 3. * VDZSEA(I) -(AA(I,4)*VUSTAR(I) - AA(I,3)) |
|
./pkg/fizhi/fizhi_turb.F |
5080 |
ZCSUB |
VDZSEA(I) = VDZSEA(I) * VUSTAR(I) - TEMP(I) |