| 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 |
2460 |
SFCFLX |
VPSIM(I) = LOG( VHZ(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
2461 |
SFCFLX |
VAPSIM(I) = 1. / VPSIM(I) |
|
./pkg/fizhi/fizhi_turb.F |
2469 |
SFCFLX |
VPSIHG(I) = VPSIM(I) + VPSIG(I) |
|
./pkg/fizhi/fizhi_turb.F |
2500 |
SFCFLX |
VPSIHG(I) = VPSIM(I) + VDPSIH(I) + VPSIG(I) |
|
./pkg/fizhi/fizhi_turb.F |
2516 |
SFCFLX |
CALL PSI (VZETA,VZH,VPSIM, |
|
./pkg/fizhi/fizhi_turb.F |
2520 |
SFCFLX |
VCU(I) = VK / VPSIM(I) |
|
./pkg/fizhi/fizhi_turb.F |
2525 |
SFCFLX |
VPSIHG(I) = VPSIM(I) + VPSIG(I) |
|
./pkg/fizhi/fizhi_turb.F |
2564 |
SFCFLX |
1 VPSIM(I) * VPSIM(I) * VRIB(I) * VCT(I) * RVK |
|
./pkg/fizhi/fizhi_turb.F |
2586 |
SFCFLX |
CALL PSI (VZETA,VZH,VPSIM, |
|
./pkg/fizhi/fizhi_turb.F |
2590 |
SFCFLX |
VCU(I) = VK / VPSIM(I) |
|
./pkg/fizhi/fizhi_turb.F |
2633 |
SFCFLX |
1 VPSIM(I) * VPSIM(I) * VRIB(I) * VAPSIHG(I) |
|
./pkg/fizhi/fizhi_turb.F |
2648 |
SFCFLX |
VPSIM(I) = VPSIM(I) + VDPSIM(I) |
|
./pkg/fizhi/fizhi_turb.F |
2649 |
SFCFLX |
VCU(I) = VK / VPSIM(I) |
|
./pkg/fizhi/fizhi_turb.F |
3035 |
PSI |
SUBROUTINE PSI(VZZ,VZH,VPSIM,VPSIH,IRUN,VX,VXS,VY,VYS,IFLAG) |
|
./pkg/fizhi/fizhi_turb.F |
3058 |
PSI |
_RL VZZ(IRUN),VZH(IRUN),VPSIM(IRUN),VPSIH(IRUN), |
|
./pkg/fizhi/fizhi_turb.F |
3092 |
PSI |
VPSIM(I) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
3165 |
PSI |
VPSIM(I) = PSI2(indx) |
|
./pkg/fizhi/fizhi_turb.F |
3293 |
PSI |
VPSIM(I) = PSI2(indx) |