| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1572 |
TRBFLX |
_RL SVAR(irun,NLEV),Q1M(irun,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
1987 |
TRBFLX |
SVAR(I,NLEV) = SQRT(SSDEV(I,NLEV)) |
|
./pkg/fizhi/fizhi_turb.F |
1988 |
TRBFLX |
IF ( SVAR(I,NLEV).LT.Z1PEM25) SVAR(I,NLEV) = Z1PEM25 |
|
./pkg/fizhi/fizhi_turb.F |
1989 |
TRBFLX |
Q1M(I,NLEV) = SBAR(I,NLEV) / SVAR(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
1994 |
TRBFLX |
1 SHL(I,NLEV) = SHL(I,NLEV)+RSQ2PI*SVAR(I,NLEV)*EXP(-ARG(I,NLEV)) |
|
./pkg/fizhi/fizhi_turb.F |
2108 |
TRBFLX |
SVAR(I,1) = SQRT(SSDEV(I,1)) |
|
./pkg/fizhi/fizhi_turb.F |
2109 |
TRBFLX |
IF ( SVAR(I,1).LT.Z1PEM25) SVAR(I,1) = Z1PEM25 |
|
./pkg/fizhi/fizhi_turb.F |
2131 |
TRBFLX |
SVAR(I,L) = SQRT(SSDEV(I,L)) |
|
./pkg/fizhi/fizhi_turb.F |
2137 |
TRBFLX |
SVAR(I,L) = (1./2.) * (SVAR(I,L) + TEMP(I,L)) |
|
./pkg/fizhi/fizhi_turb.F |
2138 |
TRBFLX |
IF ( SVAR(I,L).LT.Z1PEM25) SVAR(I,L) = Z1PEM25 |
|
./pkg/fizhi/fizhi_turb.F |
2160 |
TRBFLX |
Q1M(I,L) = SBAR(I,L) / SVAR(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2165 |
TRBFLX |
1 SHL(I,L) = SHL(I,L)+RSQ2PI*SVAR(I,L)*EXP(-ARG(I,L)) |