| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
2322 |
SFCFLX |
3 VUSTAR,VXX,VYY,VCU,VCT,VRIB,VZETA,VWS, |
|
./pkg/fizhi/fizhi_turb.F |
2382 |
SFCFLX |
_RL VZETA(IRUN),VWS(IRUN) |
|
./pkg/fizhi/fizhi_turb.F |
2508 |
SFCFLX |
VZETA(I) = VK2 * VRIB(I) / (VCU(I) * VCU(I) * VPSIHG(I)) |
|
./pkg/fizhi/fizhi_turb.F |
2516 |
SFCFLX |
CALL PSI (VZETA,VZH,VPSIM, |
|
./pkg/fizhi/fizhi_turb.F |
2526 |
SFCFLX |
VZETA(I) = VK2 * VRIB(I) / (VCU(I) * VCU(I) * VPSIHG(I)) |
|
./pkg/fizhi/fizhi_turb.F |
2562 |
SFCFLX |
VZETA(I) = VZETA(I) + VZETAL(I) * VDZETA(I) |
|
./pkg/fizhi/fizhi_turb.F |
2563 |
SFCFLX |
IF (IVBITRIB(I).EQ.1 )VZETA(I) = |
|
./pkg/fizhi/fizhi_turb.F |
2586 |
SFCFLX |
CALL PSI (VZETA,VZH,VPSIM, |
|
./pkg/fizhi/fizhi_turb.F |
2603 |
SFCFLX |
VRIB1(I) = VAPSIM(I) * VAPSIM(I) * VPSIHG(I) * VZETA(I) |
|
./pkg/fizhi/fizhi_turb.F |
2625 |
SFCFLX |
VZETAL(I) = VZETA(I) |
|
./pkg/fizhi/fizhi_turb.F |
2631 |
SFCFLX |
VZETA(I) = VZETA(I) * ( 1. + VDZETA(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
2632 |
SFCFLX |
IF (IVBITRIB(I).EQ.1 ) VZETA(I) = |
|
./pkg/fizhi/fizhi_turb.F |
2676 |
SFCFLX |
VTEMP(I) = 10. * VAHS(I) * VZETA(I) |