| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1586 |
TRBFLX |
_RL VTEMP(irun),VDZETA(irun) |
|
./pkg/fizhi/fizhi_turb.F |
2024 |
TRBFLX |
4 VHZ,VPSIM,VAPSIM,VPSIG,VPSIHG,VTEMP,VDZETA,VDZ0,VDPSIM, |
|
./pkg/fizhi/fizhi_turb.F |
2775 |
SFCFLX |
7 VHZ,VPSIM,VAPSIM,VPSIG,VPSIHG,VTEMP,VDZETA,VDZ0,VDPSIM, |
|
./pkg/fizhi/fizhi_turb.F |
2840 |
SFCFLX |
_RL VTEMP(irun),VDZETA(irun),VDZ0(irun),VDPSIM(irun) |
|
./pkg/fizhi/fizhi_turb.F |
2934 |
SFCFLX |
4 VTEMP,VTEMP,1,.TRUE.,IRUN,VDZETA, |
|
./pkg/fizhi/fizhi_turb.F |
3006 |
SFCFLX |
4 VYY,VYY0,2,LWATER,IRUN,VDZETA, |
|
./pkg/fizhi/fizhi_turb.F |
3014 |
SFCFLX |
VZETA(I) = VZETA(I) + VZETAL(I) * VDZETA(I) |
|
./pkg/fizhi/fizhi_turb.F |
3066 |
SFCFLX |
4 VYY,VYY0,ITYPE,LWATER,IRUN,VDZETA, |
|
./pkg/fizhi/fizhi_turb.F |
3083 |
SFCFLX |
VZETA(I) = VZETA(I) * ( 1. + VDZETA(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
4650 |
LINADJ |
2 VDZETA,VDZ0,VDPSIM,VDPSIH,INTRIB, |
|
./pkg/fizhi/fizhi_turb.F |
4704 |
LINADJ |
_RL VDZETA(IRUN),VDZ0(IRUN),VDPSIM(IRUN) |
|
./pkg/fizhi/fizhi_turb.F |
4839 |
LINADJ |
VDZETA1(I) = VDZETA(I) |
|
./pkg/fizhi/fizhi_turb.F |
4854 |
LINADJ |
VDZETA(I) = VXNUM(I) / VDEN(I) |
|
./pkg/fizhi/fizhi_turb.F |
4859 |
LINADJ |
IF ( (VRIB2(I).EQ.0.) .OR. (VDZETA(I).LE.-1.) ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4864 |
LINADJ |
IF ( VINT1(I).EQ.1 ) VDZETA(I) = VDZETA1(I) |
|
./pkg/fizhi/fizhi_turb.F |
4869 |
LINADJ |
VDZETA2(I) = VDZETA(I) + VDZETA1(I) |
|
./pkg/fizhi/fizhi_turb.F |
4875 |
LINADJ |
IF(VINT1(I).EQ.1)VDZETA(I)=VXNUM1(I)*VRIB2(I) - 1. - VDZETA1(I) |
|
./pkg/fizhi/fizhi_turb.F |
4886 |
LINADJ |
VDZ0(I) = VDZ0(I) - VZCOEF2(I) * VDZETA(I) |
|
./pkg/fizhi/fizhi_turb.F |
4900 |
LINADJ |
1 VZCOEF1(I) * ( VWS2(I) - VWS1(I) ) - VZCOEF2(I) * VDZETA(I) |
|
./pkg/fizhi/fizhi_turb.F |
4917 |
LINADJ |
VDPSIM(I) = VDX(I) * VDZETA(I) |
|
./pkg/fizhi/fizhi_turb.F |
4918 |
LINADJ |
VDPSIH(I) = VDY(I) * VDZETA(I) |
|
./pkg/fizhi/fizhi_turb.F |
4953 |
LINADJ |
VDZETA(I) = VDZETA1(I) + VDZETA(I) |