| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1403 |
TRBFLX |
_RL FCC(irun,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
1738 |
TRBFLX |
FCC(I,NLEV) = (1./2.) * ( 1. + ERRF( P5SR*Q1M(I,NLEV) ) ) |
|
./pkg/fizhi/fizhi_turb.F |
1739 |
TRBFLX |
SHL(I,NLEV) = FCC(I,NLEV) * SBAR(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
1748 |
TRBFLX |
BETAT1(I,NLEV) = BETAT(I,NLEV) - BB(I,NLEV)*FCC(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
1750 |
TRBFLX |
BETAW1(I,NLEV) = BETAW(I,NLEV) + AA(I,NLEV) * FCC(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
1859 |
TRBFLX |
FCC(I,L) = (1./2.) * ( 1. + ERRF( P5SR*Q1M(I,L) ) ) |
|
./pkg/fizhi/fizhi_turb.F |
1860 |
TRBFLX |
SHL(I,L) = FCC(I,L) * SBAR(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
1871 |
TRBFLX |
1 BB(I,L)*plk(i,L) * FCC(I,L) * BETAL(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
1872 |
TRBFLX |
BETAW1(I,L) = BETAW(I,L) + AA(I,L) * FCC(I,L) * BETAL(I,L) |