File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_turb.F |
1421 |
TRBFLX |
_RL VPSIH(irun),VZETAL(irun) |
./pkg/fizhi/fizhi_turb.F |
1773 |
TRBFLX |
5 VDPSIH,VZH,VXX0,VYY0,VAPSIHG,VRIB1,VWS1,VPSIH, |
./pkg/fizhi/fizhi_turb.F |
2327 |
SFCFLX |
8 VDPSIH,VZH,VXX0,VYY0,VAPSIHG,VRIB1,VWS1,VPSIH,VZETAL, |
./pkg/fizhi/fizhi_turb.F |
2391 |
SFCFLX |
_RL VPSIH(irun),VZETAL(irun),VZ0L(irun),VPSIH2(irun),VH0(irun) |
./pkg/fizhi/fizhi_turb.F |
2552 |
SFCFLX |
2 VAPSIM,VAPSIHG,VPSIH, |
./pkg/fizhi/fizhi_turb.F |
2587 |
SFCFLX |
1 VPSIH,IRUN,VXX,VXX0,VYY, |
./pkg/fizhi/fizhi_turb.F |
2597 |
SFCFLX |
VPSIHG(I) = VPSIH(I) + VPSIG(I) |
./pkg/fizhi/fizhi_turb.F |
2612 |
SFCFLX |
2 VAPSIM,VAPSIHG,VPSIH, |
./pkg/fizhi/fizhi_turb.F |
2656 |
SFCFLX |
VPSIHG(I) = VPSIH(I) + VDPSIH(I) + VPSIG(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 |
3093 |
PSI |
VPSIH(I) = 0. |
./pkg/fizhi/fizhi_turb.F |
3198 |
PSI |
VPSIH(I) = PSI2(indx) |
./pkg/fizhi/fizhi_turb.F |
3325 |
PSI |
VPSIH(I) = PSI2(indx) |
./pkg/fizhi/fizhi_turb.F |
4084 |
LINADJ |
1 VAPSIM, VAPSIHG,VPSIH,VPSIG,VX,VX0,VY,VY0,ITYPE,LWATER,IRUN, |
./pkg/fizhi/fizhi_turb.F |
4132 |
LINADJ |
_RL VPSIH(IRUN),VPSIG(IRUN),VX(IRUN) |
./pkg/fizhi/fizhi_turb.F |
4363 |
LINADJ |
VDPSIHC(I) = -0.9 * VPSIH(I) - VDPSIH(I) |