| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1402 |
TRBFLX |
_RL SVAR(irun,NLEV),Q1M(irun,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
1735 |
TRBFLX |
SVAR(I,NLEV) = SQRT(SSDEV(I,NLEV)) |
|
./pkg/fizhi/fizhi_turb.F |
1736 |
TRBFLX |
IF ( SVAR(I,NLEV).LT.Z1PEM25) SVAR(I,NLEV) = Z1PEM25 |
|
./pkg/fizhi/fizhi_turb.F |
1737 |
TRBFLX |
Q1M(I,NLEV) = SBAR(I,NLEV) / SVAR(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
1742 |
TRBFLX |
1 SHL(I,NLEV) = SHL(I,NLEV)+RSQ2PI*SVAR(I,NLEV)*EXP(-ARG(I,NLEV)) |
|
./pkg/fizhi/fizhi_turb.F |
1837 |
TRBFLX |
SVAR(I,1) = SQRT(SSDEV(I,1)) |
|
./pkg/fizhi/fizhi_turb.F |
1838 |
TRBFLX |
IF ( SVAR(I,1).LT.Z1PEM25) SVAR(I,1) = Z1PEM25 |
|
./pkg/fizhi/fizhi_turb.F |
1846 |
TRBFLX |
SVAR(I,L) = SQRT(SSDEV(I,L)) |
|
./pkg/fizhi/fizhi_turb.F |
1852 |
TRBFLX |
SVAR(I,L) = (1./2.) * (SVAR(I,L) + TEMP(I,L)) |
|
./pkg/fizhi/fizhi_turb.F |
1853 |
TRBFLX |
IF ( SVAR(I,L).LT.Z1PEM25) SVAR(I,L) = Z1PEM25 |
|
./pkg/fizhi/fizhi_turb.F |
1858 |
TRBFLX |
Q1M(I,L) = SBAR(I,L) / SVAR(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
1863 |
TRBFLX |
1 SHL(I,L) = SHL(I,L)+RSQ2PI*SVAR(I,L)*EXP(-ARG(I,L)) |