| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1416 |
TRBFLX |
_RL VTEMP(irun),VDZETA(irun) |
|
./pkg/fizhi/fizhi_turb.F |
1772 |
TRBFLX |
4 VHZ,VPSIM,VAPSIM,VPSIG,VPSIHG,VTEMP,VDZETA,VDZ0,VDPSIM, |
|
./pkg/fizhi/fizhi_turb.F |
2326 |
SFCFLX |
7 VHZ,VPSIM,VAPSIM,VPSIG,VPSIHG,VTEMP,VDZETA,VDZ0,VDPSIM, |
|
./pkg/fizhi/fizhi_turb.F |
2388 |
SFCFLX |
_RL VTEMP(irun),VDZETA(irun),VDZ0(irun),VDPSIM(irun) |
|
./pkg/fizhi/fizhi_turb.F |
2482 |
SFCFLX |
4 VTEMP,VTEMP,1,.TRUE.,IRUN,VDZETA, |
|
./pkg/fizhi/fizhi_turb.F |
2554 |
SFCFLX |
4 VYY,VYY0,2,LWATER,IRUN,VDZETA, |
|
./pkg/fizhi/fizhi_turb.F |
2562 |
SFCFLX |
VZETA(I) = VZETA(I) + VZETAL(I) * VDZETA(I) |
|
./pkg/fizhi/fizhi_turb.F |
2614 |
SFCFLX |
4 VYY,VYY0,ITYPE,LWATER,IRUN,VDZETA, |
|
./pkg/fizhi/fizhi_turb.F |
2631 |
SFCFLX |
VZETA(I) = VZETA(I) * ( 1. + VDZETA(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
4085 |
LINADJ |
2 VDZETA,VDZ0,VDPSIM,VDPSIH,INTRIB, |
|
./pkg/fizhi/fizhi_turb.F |
4135 |
LINADJ |
_RL VDZETA(IRUN),VDZ0(IRUN),VDPSIM(IRUN) |
|
./pkg/fizhi/fizhi_turb.F |
4270 |
LINADJ |
VDZETA1(I) = VDZETA(I) |
|
./pkg/fizhi/fizhi_turb.F |
4285 |
LINADJ |
VDZETA(I) = VXNUM(I) / VDEN(I) |
|
./pkg/fizhi/fizhi_turb.F |
4290 |
LINADJ |
IF ( (VRIB2(I).EQ.0.) .OR. (VDZETA(I).LE.-1.) ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4295 |
LINADJ |
IF ( VINT1(I).EQ.1 ) VDZETA(I) = VDZETA1(I) |
|
./pkg/fizhi/fizhi_turb.F |
4300 |
LINADJ |
VDZETA2(I) = VDZETA(I) + VDZETA1(I) |
|
./pkg/fizhi/fizhi_turb.F |
4306 |
LINADJ |
IF(VINT1(I).EQ.1)VDZETA(I)=VXNUM1(I)*VRIB2(I) - 1. - VDZETA1(I) |
|
./pkg/fizhi/fizhi_turb.F |
4316 |
LINADJ |
VDZ0(I) = VDZ0(I) - VZCOEF2(I) * VDZETA(I) |
|
./pkg/fizhi/fizhi_turb.F |
4330 |
LINADJ |
1 VZCOEF1(I) * ( VWS2(I) - VWS1(I) ) - VZCOEF2(I) * VDZETA(I) |
|
./pkg/fizhi/fizhi_turb.F |
4347 |
LINADJ |
VDPSIM(I) = VDX(I) * VDZETA(I) |
|
./pkg/fizhi/fizhi_turb.F |
4348 |
LINADJ |
VDPSIH(I) = VDY(I) * VDZETA(I) |
|
./pkg/fizhi/fizhi_turb.F |
4383 |
LINADJ |
VDZETA(I) = VDZETA1(I) + VDZETA(I) |