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 |
2381 |
SFCFLX |
_RL VYY(IRUN),VCU(IRUN),VCT(IRUN),VRIB(IRUN) |
./pkg/fizhi/fizhi_turb.F |
2429 |
SFCFLX |
VRIB(I) = ( CP * (VPKE(I)-VPK(I)) ) * |
./pkg/fizhi/fizhi_turb.F |
2478 |
SFCFLX |
CALL LINADJ(NN,VRIB,VRIB,VWS, |
./pkg/fizhi/fizhi_turb.F |
2508 |
SFCFLX |
VZETA(I) = VK2 * VRIB(I) / (VCU(I) * VCU(I) * VPSIHG(I)) |
./pkg/fizhi/fizhi_turb.F |
2526 |
SFCFLX |
VZETA(I) = VK2 * VRIB(I) / (VCU(I) * VCU(I) * VPSIHG(I)) |
./pkg/fizhi/fizhi_turb.F |
2550 |
SFCFLX |
CALL LINADJ(NN,VRIB1,VRIB,VWS1, |
./pkg/fizhi/fizhi_turb.F |
2564 |
SFCFLX |
1 VPSIM(I) * VPSIM(I) * VRIB(I) * VCT(I) * RVK |
./pkg/fizhi/fizhi_turb.F |
2610 |
SFCFLX |
CALL LINADJ(NN,VRIB1,VRIB,VWS, |
./pkg/fizhi/fizhi_turb.F |
2633 |
SFCFLX |
1 VPSIM(I) * VPSIM(I) * VRIB(I) * VAPSIHG(I) |
./pkg/fizhi/fizhi_turb.F |
2665 |
SFCFLX |
VRIB1(I) = VRIB(I) |