| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1414 |
TRBFLX |
_RL VPSIM(irun),VAPSIM(irun) |
|
./pkg/fizhi/fizhi_turb.F |
1772 |
TRBFLX |
4 VHZ,VPSIM,VAPSIM,VPSIG,VPSIHG,VTEMP,VDZETA,VDZ0,VDPSIM, |
|
./pkg/fizhi/fizhi_turb.F |
2326 |
SFCFLX |
7 VHZ,VPSIM,VAPSIM,VPSIG,VPSIHG,VTEMP,VDZETA,VDZ0,VDPSIM, |
|
./pkg/fizhi/fizhi_turb.F |
2387 |
SFCFLX |
_RL VHZ(irun),VPSIM(irun),VAPSIM(irun),VPSIG(irun),VPSIHG(irun) |
|
./pkg/fizhi/fizhi_turb.F |
2461 |
SFCFLX |
VAPSIM(I) = 1. / VPSIM(I) |
|
./pkg/fizhi/fizhi_turb.F |
2462 |
SFCFLX |
VCU(I) = VK * VAPSIM(I) |
|
./pkg/fizhi/fizhi_turb.F |
2480 |
SFCFLX |
2 VAPSIM,VTEMP,VTEMP, |
|
./pkg/fizhi/fizhi_turb.F |
2490 |
SFCFLX |
VCU(I) = VCU(I) * (1. - VDPSIM(I)*VAPSIM(I)) |
|
./pkg/fizhi/fizhi_turb.F |
2552 |
SFCFLX |
2 VAPSIM,VAPSIHG,VPSIH, |
|
./pkg/fizhi/fizhi_turb.F |
2601 |
SFCFLX |
VAPSIM(I) = VCU(I) * RVK |
|
./pkg/fizhi/fizhi_turb.F |
2603 |
SFCFLX |
VRIB1(I) = VAPSIM(I) * VAPSIM(I) * VPSIHG(I) * VZETA(I) |
|
./pkg/fizhi/fizhi_turb.F |
2612 |
SFCFLX |
2 VAPSIM,VAPSIHG,VPSIH, |
|
./pkg/fizhi/fizhi_turb.F |
4084 |
LINADJ |
1 VAPSIM, VAPSIHG,VPSIH,VPSIG,VX,VX0,VY,VY0,ITYPE,LWATER,IRUN, |
|
./pkg/fizhi/fizhi_turb.F |
4131 |
LINADJ |
_RL VAPSIM(IRUN),VAPSIHG(IRUN) |
|
./pkg/fizhi/fizhi_turb.F |
4170 |
LINADJ |
IF (IWATER(I).EQ.1) VX0PSIM(I) = VAPSIM(I) |
|
./pkg/fizhi/fizhi_turb.F |
4175 |
LINADJ |
VX0PSIM(I) = VX0(I) * VAPSIM(I) |
|
./pkg/fizhi/fizhi_turb.F |
4223 |
LINADJ |
VDXPSIM(I) = VDX(I) * VAPSIM(I) |
|
./pkg/fizhi/fizhi_turb.F |
4362 |
LINADJ |
VDPSIMC(I) = -0.9 - VDPSIM(I) * VAPSIM(I) |