File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_turb.F |
2345 |
SFCFLX |
3 VUSTAR,VXX,VYY,VCU,VCT,VRIB,VZETA,VWS, |
./pkg/fizhi/fizhi_turb.F |
2408 |
SFCFLX |
_RL VZETA(IRUN),VWS(IRUN) |
./pkg/fizhi/fizhi_turb.F |
2534 |
SFCFLX |
VZETA(I) = VK2 * VRIB(I) / (VCU(I) * VCU(I) * VPSIHG(I)) |
./pkg/fizhi/fizhi_turb.F |
2542 |
SFCFLX |
CALL PSI (VZETA,VZH,VPSIM, |
./pkg/fizhi/fizhi_turb.F |
2552 |
SFCFLX |
VZETA(I) = VK2 * VRIB(I) / (VCU(I) * VCU(I) * VPSIHG(I)) |
./pkg/fizhi/fizhi_turb.F |
2588 |
SFCFLX |
VZETA(I) = VZETA(I) + VZETAL(I) * VDZETA(I) |
./pkg/fizhi/fizhi_turb.F |
2589 |
SFCFLX |
IF (IVBITRIB(I).EQ.1 )VZETA(I) = |
./pkg/fizhi/fizhi_turb.F |
2612 |
SFCFLX |
CALL PSI (VZETA,VZH,VPSIM, |
./pkg/fizhi/fizhi_turb.F |
2629 |
SFCFLX |
VRIB1(I) = VAPSIM(I) * VAPSIM(I) * VPSIHG(I) * VZETA(I) |
./pkg/fizhi/fizhi_turb.F |
2651 |
SFCFLX |
VZETAL(I) = VZETA(I) |
./pkg/fizhi/fizhi_turb.F |
2657 |
SFCFLX |
VZETA(I) = VZETA(I) * ( 1. + VDZETA(I) ) |
./pkg/fizhi/fizhi_turb.F |
2658 |
SFCFLX |
IF (IVBITRIB(I).EQ.1 ) VZETA(I) = |
./pkg/fizhi/fizhi_turb.F |
2702 |
SFCFLX |
VTEMP(I) = 10. * VAHS(I) * VZETA(I) |