| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1573 |
TRBFLX |
_RL FCC(irun,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
1990 |
TRBFLX |
FCC(I,NLEV) = (1./2.) * ( 1. + ERRF( P5SR*Q1M(I,NLEV) ) ) |
|
./pkg/fizhi/fizhi_turb.F |
1991 |
TRBFLX |
SHL(I,NLEV) = FCC(I,NLEV) * SBAR(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
2000 |
TRBFLX |
BETAT1(I,NLEV) = BETAT(I,NLEV) - BB(I,NLEV)*FCC(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
2002 |
TRBFLX |
BETAW1(I,NLEV) = BETAW(I,NLEV) + AA(I,NLEV) * FCC(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
2161 |
TRBFLX |
FCC(I,L) = (1./2.) * ( 1. + ERRF( P5SR*Q1M(I,L) ) ) |
|
./pkg/fizhi/fizhi_turb.F |
2162 |
TRBFLX |
SHL(I,L) = FCC(I,L) * SBAR(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2173 |
TRBFLX |
1 BB(I,L)*plk(i,L) * FCC(I,L) * BETAL(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2174 |
TRBFLX |
BETAW1(I,L) = BETAW(I,L) + AA(I,L) * FCC(I,L) * BETAL(I,L) |