| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1551 |
TRBFLX |
_RL SVAR(irun,NLEV),Q1M(irun,NLEV) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1861 |
TRBFLX |
SVAR(I,NLEV) = SQRT(SSDEV(I,NLEV)) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1862 |
TRBFLX |
IF ( SVAR(I,NLEV).LT.Z1PEM25) SVAR(I,NLEV) = Z1PEM25 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1863 |
TRBFLX |
Q1M(I,NLEV) = SBAR(I,NLEV) / SVAR(I,NLEV) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1868 |
TRBFLX |
1 SHL(I,NLEV) = SHL(I,NLEV)+RSQ2PI*SVAR(I,NLEV)*EXP(-ARG(I,NLEV)) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1955 |
TRBFLX |
SVAR(I,1) = SQRT(SSDEV(I,1)) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1956 |
TRBFLX |
IF ( SVAR(I,1).LT.Z1PEM25) SVAR(I,1) = Z1PEM25 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1963 |
TRBFLX |
SVAR(I,2) = SQRT(SSDEV(I,2)) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1969 |
TRBFLX |
SVAR(I,2) = (1./2.) * (SVAR(I,2) + TEMP(I,2)) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1970 |
TRBFLX |
IF ( SVAR(I,2).LT.Z1PEM25) SVAR(I,2) = Z1PEM25 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1973 |
TRBFLX |
Q1M(I,1) = SBAR(I,1) / SVAR(I,1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1978 |
TRBFLX |
1 SHL(I,1) = SHL(I,1)+RSQ2PI*SVAR(I,1)*EXP(-ARG(I,1)) |
|
./pkg/fizhi/fizhi_turb.F |
1511 |
TRBFLX |
_RL SVAR(irun,NLEV),Q1M(irun,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
1821 |
TRBFLX |
SVAR(I,NLEV) = SQRT(SSDEV(I,NLEV)) |
|
./pkg/fizhi/fizhi_turb.F |
1822 |
TRBFLX |
IF ( SVAR(I,NLEV).LT.Z1PEM25) SVAR(I,NLEV) = Z1PEM25 |
|
./pkg/fizhi/fizhi_turb.F |
1823 |
TRBFLX |
Q1M(I,NLEV) = SBAR(I,NLEV) / SVAR(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
1828 |
TRBFLX |
1 SHL(I,NLEV) = SHL(I,NLEV)+RSQ2PI*SVAR(I,NLEV)*EXP(-ARG(I,NLEV)) |
|
./pkg/fizhi/fizhi_turb.F |
1915 |
TRBFLX |
SVAR(I,1) = SQRT(SSDEV(I,1)) |
|
./pkg/fizhi/fizhi_turb.F |
1916 |
TRBFLX |
IF ( SVAR(I,1).LT.Z1PEM25) SVAR(I,1) = Z1PEM25 |
|
./pkg/fizhi/fizhi_turb.F |
1923 |
TRBFLX |
SVAR(I,2) = SQRT(SSDEV(I,2)) |
|
./pkg/fizhi/fizhi_turb.F |
1929 |
TRBFLX |
SVAR(I,2) = (1./2.) * (SVAR(I,2) + TEMP(I,2)) |
|
./pkg/fizhi/fizhi_turb.F |
1930 |
TRBFLX |
IF ( SVAR(I,2).LT.Z1PEM25) SVAR(I,2) = Z1PEM25 |
|
./pkg/fizhi/fizhi_turb.F |
1933 |
TRBFLX |
Q1M(I,1) = SBAR(I,1) / SVAR(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
1938 |
TRBFLX |
1 SHL(I,1) = SHL(I,1)+RSQ2PI*SVAR(I,1)*EXP(-ARG(I,1)) |