| 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 |
2912 |
SFCFLX |
VPSIM(I) = LOG( VHZ(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
2913 |
SFCFLX |
VAPSIM(I) = 1. / VPSIM(I) |
|
./pkg/fizhi/fizhi_turb.F |
2921 |
SFCFLX |
VPSIHG(I) = VPSIM(I) + VPSIG(I) |
|
./pkg/fizhi/fizhi_turb.F |
2952 |
SFCFLX |
VPSIHG(I) = VPSIM(I) + VDPSIH(I) + VPSIG(I) |
|
./pkg/fizhi/fizhi_turb.F |
2968 |
SFCFLX |
CALL PSI (VZETA,VZH,VPSIM, |
|
./pkg/fizhi/fizhi_turb.F |
2972 |
SFCFLX |
VCU(I) = VK / VPSIM(I) |
|
./pkg/fizhi/fizhi_turb.F |
2977 |
SFCFLX |
VPSIHG(I) = VPSIM(I) + VPSIG(I) |
|
./pkg/fizhi/fizhi_turb.F |
3016 |
SFCFLX |
1 VPSIM(I) * VPSIM(I) * VRIB(I) * VCT(I) * RVK |
|
./pkg/fizhi/fizhi_turb.F |
3038 |
SFCFLX |
CALL PSI (VZETA,VZH,VPSIM, |
|
./pkg/fizhi/fizhi_turb.F |
3042 |
SFCFLX |
VCU(I) = VK / VPSIM(I) |
|
./pkg/fizhi/fizhi_turb.F |
3085 |
SFCFLX |
1 VPSIM(I) * VPSIM(I) * VRIB(I) * VAPSIHG(I) |
|
./pkg/fizhi/fizhi_turb.F |
3100 |
SFCFLX |
VPSIM(I) = VPSIM(I) + VDPSIM(I) |
|
./pkg/fizhi/fizhi_turb.F |
3101 |
SFCFLX |
VCU(I) = VK / VPSIM(I) |
|
./pkg/fizhi/fizhi_turb.F |
3484 |
PSI |
SUBROUTINE PSI(VZZ,VZH,VPSIM,VPSIH,IRUN,VX,VXS,VY,VYS,IFLAG) |
|
./pkg/fizhi/fizhi_turb.F |
3510 |
PSI |
_RL VZZ(IRUN),VZH(IRUN),VPSIM(IRUN),VPSIH(IRUN), |
|
./pkg/fizhi/fizhi_turb.F |
3544 |
PSI |
VPSIM(I) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
3617 |
PSI |
VPSIM(I) = PSI2(indx) |
|
./pkg/fizhi/fizhi_turb.F |
3745 |
PSI |
VPSIM(I) = PSI2(indx) |