| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
2771 |
SFCFLX |
3 VUSTAR,VXX,VYY,VCU,VCT,VRIB,VZETA,VWS, |
|
./pkg/fizhi/fizhi_turb.F |
2834 |
SFCFLX |
_RL VZETA(IRUN),VWS(IRUN) |
|
./pkg/fizhi/fizhi_turb.F |
2960 |
SFCFLX |
VZETA(I) = VK2 * VRIB(I) / (VCU(I) * VCU(I) * VPSIHG(I)) |
|
./pkg/fizhi/fizhi_turb.F |
2968 |
SFCFLX |
CALL PSI (VZETA,VZH,VPSIM, |
|
./pkg/fizhi/fizhi_turb.F |
2978 |
SFCFLX |
VZETA(I) = VK2 * VRIB(I) / (VCU(I) * VCU(I) * VPSIHG(I)) |
|
./pkg/fizhi/fizhi_turb.F |
3014 |
SFCFLX |
VZETA(I) = VZETA(I) + VZETAL(I) * VDZETA(I) |
|
./pkg/fizhi/fizhi_turb.F |
3015 |
SFCFLX |
IF (IVBITRIB(I).EQ.1 )VZETA(I) = |
|
./pkg/fizhi/fizhi_turb.F |
3038 |
SFCFLX |
CALL PSI (VZETA,VZH,VPSIM, |
|
./pkg/fizhi/fizhi_turb.F |
3055 |
SFCFLX |
VRIB1(I) = VAPSIM(I) * VAPSIM(I) * VPSIHG(I) * VZETA(I) |
|
./pkg/fizhi/fizhi_turb.F |
3077 |
SFCFLX |
VZETAL(I) = VZETA(I) |
|
./pkg/fizhi/fizhi_turb.F |
3083 |
SFCFLX |
VZETA(I) = VZETA(I) * ( 1. + VDZETA(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3084 |
SFCFLX |
IF (IVBITRIB(I).EQ.1 ) VZETA(I) = |
|
./pkg/fizhi/fizhi_turb.F |
3128 |
SFCFLX |
VTEMP(I) = 10. * VAHS(I) * VZETA(I) |