File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_turb.F |
1400 |
TRBFLX |
_RL AA(irun,NLEV),BB(irun,NLEV),SSDEV(irun,NLEV) |
./pkg/fizhi/fizhi_turb.F |
1728 |
TRBFLX |
SSDEV(I,NLEV)=CT(I)*(AA(I,NLEV)*DSH(I,NLEV) |
./pkg/fizhi/fizhi_turb.F |
1734 |
TRBFLX |
SSDEV(I,NLEV) = B2*YY(I)*SSDEV(I,NLEV)*SSDEV(I,NLEV)/QBYU(I) |
./pkg/fizhi/fizhi_turb.F |
1735 |
TRBFLX |
SVAR(I,NLEV) = SQRT(SSDEV(I,NLEV)) |
./pkg/fizhi/fizhi_turb.F |
1834 |
TRBFLX |
SSDEV(I,1) = XL(I,1)*(AA(I,1)*DSH(I,1)- |
./pkg/fizhi/fizhi_turb.F |
1836 |
TRBFLX |
SSDEV(I,1) = B2 * KHSAVE(I,1) * SSDEV(I,1) * SSDEV(I,1) |
./pkg/fizhi/fizhi_turb.F |
1837 |
TRBFLX |
SVAR(I,1) = SQRT(SSDEV(I,1)) |
./pkg/fizhi/fizhi_turb.F |
1843 |
TRBFLX |
SSDEV(I,L) = XL(I,L-1)*(AA(I,L)*DSH(I,L-1)- |
./pkg/fizhi/fizhi_turb.F |
1845 |
TRBFLX |
SSDEV(I,L) = B2 * KHSAVE(I,L-1) * SSDEV(I,L-1) * SSDEV(I,L-1) |
./pkg/fizhi/fizhi_turb.F |
1846 |
TRBFLX |
SVAR(I,L) = SQRT(SSDEV(I,L)) |
./pkg/fizhi/fizhi_turb.F |
1848 |
TRBFLX |
SSDEV(I,L) = XL(I,L)*(AA(I,L)*DSH(I,L)- |
./pkg/fizhi/fizhi_turb.F |
1850 |
TRBFLX |
SSDEV(I,L) = B2 * KHSAVE(I,L) * SSDEV(I,L) * SSDEV(I,L) |
./pkg/fizhi/fizhi_turb.F |
1851 |
TRBFLX |
TEMP(I,L) = SQRT(SSDEV(I,L)) |