| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1594 |
TRBFLX |
_RL VZ2(irun),VDZSEA(irun),VAZ0(irun),VXNUM1(irun) |
|
./pkg/fizhi/fizhi_turb.F |
2027 |
TRBFLX |
1 VX0PSIM,VG,VG0,VR1MG0,VZ2,VDZSEA,VAZ0,VXNUM1,VPSIGB2,VDX, |
|
./pkg/fizhi/fizhi_turb.F |
2778 |
SFCFLX |
3 VX0PSIM,VG,VG0,VR1MG0,VZ2,VDZSEA,VAZ0,VXNUM1,VPSIGB2,VDX, |
|
./pkg/fizhi/fizhi_turb.F |
2845 |
SFCFLX |
_RL VZ2(irun),VDZSEA(irun),VAZ0(irun),VXNUM1(irun) |
|
./pkg/fizhi/fizhi_turb.F |
2937 |
SFCFLX |
3 VX0PSIM,VG,VG0,VR1MG0,VZ2,VDZSEA,VAZ0,VXNUM1,VPSIGB2,VDX, |
|
./pkg/fizhi/fizhi_turb.F |
3009 |
SFCFLX |
3 VX0PSIM,VG,VG0,VR1MG0,VZ2,VDZSEA,VAZ0,VXNUM1,VPSIGB2,VDX, |
|
./pkg/fizhi/fizhi_turb.F |
3069 |
SFCFLX |
3 VX0PSIM,VG,VG0,VR1MG0,VZ2,VDZSEA,VAZ0,VXNUM1,VPSIGB2,VDX, |
|
./pkg/fizhi/fizhi_turb.F |
4651 |
LINADJ |
3 VX0PSIM,VG,VG0,VR1MG0,VZ2,VDZSEA,VAZ0,VXNUM1,VPSIGB2,VDX, |
|
./pkg/fizhi/fizhi_turb.F |
4708 |
LINADJ |
_RL VZ2(irun),VDZSEA(irun),VAZ0(irun),VXNUM1(irun) |
|
./pkg/fizhi/fizhi_turb.F |
4757 |
LINADJ |
CALL ZCSUB ( VUSTAR,VDZSEA,IWATER,.TRUE.,IRUN,VZ2) |
|
./pkg/fizhi/fizhi_turb.F |
4762 |
LINADJ |
VG(I) = VDZSEA(I) * VAZ0(I) |
|
./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 |
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 |
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) |