| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1584 |
TRBFLX |
_RL VPSIM(irun),VAPSIM(irun) |
|
./pkg/fizhi/fizhi_turb.F |
2024 |
TRBFLX |
4 VHZ,VPSIM,VAPSIM,VPSIG,VPSIHG,VTEMP,VDZETA,VDZ0,VDPSIM, |
|
./pkg/fizhi/fizhi_turb.F |
2775 |
SFCFLX |
7 VHZ,VPSIM,VAPSIM,VPSIG,VPSIHG,VTEMP,VDZETA,VDZ0,VDPSIM, |
|
./pkg/fizhi/fizhi_turb.F |
2839 |
SFCFLX |
_RL VHZ(irun),VPSIM(irun),VAPSIM(irun),VPSIG(irun),VPSIHG(irun) |
|
./pkg/fizhi/fizhi_turb.F |
2913 |
SFCFLX |
VAPSIM(I) = 1. / VPSIM(I) |
|
./pkg/fizhi/fizhi_turb.F |
2914 |
SFCFLX |
VCU(I) = VK * VAPSIM(I) |
|
./pkg/fizhi/fizhi_turb.F |
2932 |
SFCFLX |
2 VAPSIM,VTEMP,VTEMP, |
|
./pkg/fizhi/fizhi_turb.F |
2942 |
SFCFLX |
VCU(I) = VCU(I) * (1. - VDPSIM(I)*VAPSIM(I)) |
|
./pkg/fizhi/fizhi_turb.F |
3004 |
SFCFLX |
2 VAPSIM,VAPSIHG,VPSIH, |
|
./pkg/fizhi/fizhi_turb.F |
3053 |
SFCFLX |
VAPSIM(I) = VCU(I) * RVK |
|
./pkg/fizhi/fizhi_turb.F |
3055 |
SFCFLX |
VRIB1(I) = VAPSIM(I) * VAPSIM(I) * VPSIHG(I) * VZETA(I) |
|
./pkg/fizhi/fizhi_turb.F |
3064 |
SFCFLX |
2 VAPSIM,VAPSIHG,VPSIH, |
|
./pkg/fizhi/fizhi_turb.F |
4649 |
LINADJ |
1 VAPSIM, VAPSIHG,VPSIH,VPSIG,VX,VX0,VY,VY0,ITYPE,LWATER,IRUN, |
|
./pkg/fizhi/fizhi_turb.F |
4700 |
LINADJ |
_RL VAPSIM(IRUN),VAPSIHG(IRUN) |
|
./pkg/fizhi/fizhi_turb.F |
4739 |
LINADJ |
IF (IWATER(I).EQ.1) VX0PSIM(I) = VAPSIM(I) |
|
./pkg/fizhi/fizhi_turb.F |
4744 |
LINADJ |
VX0PSIM(I) = VX0(I) * VAPSIM(I) |
|
./pkg/fizhi/fizhi_turb.F |
4792 |
LINADJ |
VDXPSIM(I) = VDX(I) * VAPSIM(I) |
|
./pkg/fizhi/fizhi_turb.F |
4932 |
LINADJ |
VDPSIMC(I) = -0.9 - VDPSIM(I) * VAPSIM(I) |