| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1424 |
TRBFLX |
_RL VZ2(irun),VDZSEA(irun),VAZ0(irun),VXNUM1(irun) |
|
./pkg/fizhi/fizhi_turb.F |
1775 |
TRBFLX |
1 VX0PSIM,VG,VG0,VR1MG0,VZ2,VDZSEA,VAZ0,VXNUM1,VPSIGB2,VDX, |
|
./pkg/fizhi/fizhi_turb.F |
2329 |
SFCFLX |
3 VX0PSIM,VG,VG0,VR1MG0,VZ2,VDZSEA,VAZ0,VXNUM1,VPSIGB2,VDX, |
|
./pkg/fizhi/fizhi_turb.F |
2393 |
SFCFLX |
_RL VZ2(irun),VDZSEA(irun),VAZ0(irun),VXNUM1(irun) |
|
./pkg/fizhi/fizhi_turb.F |
2485 |
SFCFLX |
3 VX0PSIM,VG,VG0,VR1MG0,VZ2,VDZSEA,VAZ0,VXNUM1,VPSIGB2,VDX, |
|
./pkg/fizhi/fizhi_turb.F |
2557 |
SFCFLX |
3 VX0PSIM,VG,VG0,VR1MG0,VZ2,VDZSEA,VAZ0,VXNUM1,VPSIGB2,VDX, |
|
./pkg/fizhi/fizhi_turb.F |
2617 |
SFCFLX |
3 VX0PSIM,VG,VG0,VR1MG0,VZ2,VDZSEA,VAZ0,VXNUM1,VPSIGB2,VDX, |
|
./pkg/fizhi/fizhi_turb.F |
4086 |
LINADJ |
3 VX0PSIM,VG,VG0,VR1MG0,VZ2,VDZSEA,VAZ0,VXNUM1,VPSIGB2,VDX, |
|
./pkg/fizhi/fizhi_turb.F |
4139 |
LINADJ |
_RL VZ2(irun),VDZSEA(irun),VAZ0(irun),VXNUM1(irun) |
|
./pkg/fizhi/fizhi_turb.F |
4188 |
LINADJ |
CALL ZCSUB ( VUSTAR,VDZSEA,IWATER,.TRUE.,IRUN,VZ2) |
|
./pkg/fizhi/fizhi_turb.F |
4193 |
LINADJ |
VG(I) = VDZSEA(I) * VAZ0(I) |
|
./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 |
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 |
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) |