| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1512 |
TRBFLX |
_RL FCC(irun,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
1824 |
TRBFLX |
FCC(I,NLEV) = (1./2.) * ( 1. + ERRF( P5SR*Q1M(I,NLEV) ) ) |
|
./pkg/fizhi/fizhi_turb.F |
1825 |
TRBFLX |
SHL(I,NLEV) = FCC(I,NLEV) * SBAR(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
1834 |
TRBFLX |
BETAT1(I,NLEV) = BETAT(I,NLEV) - BB(I,NLEV)*FCC(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
1836 |
TRBFLX |
BETAW1(I,NLEV) = BETAW(I,NLEV) + AA(I,NLEV) * FCC(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
1934 |
TRBFLX |
FCC(I,1) = (1./2.) * ( 1. + ERRF( P5SR*Q1M(I,1) ) ) |
|
./pkg/fizhi/fizhi_turb.F |
1935 |
TRBFLX |
SHL(I,1) = FCC(I,1) * SBAR(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
1946 |
TRBFLX |
1 BB(I,1)*plk(i,1) * FCC(I,1) * BETAL(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
1947 |
TRBFLX |
BETAW1(I,1) = BETAW(I,1) + AA(I,1) * FCC(I,1) * BETAL(I,1) |