File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_turb.F |
1402 |
TRBFLX |
_RL SVAR(irun,NLEV),Q1M(irun,NLEV) |
./pkg/fizhi/fizhi_turb.F |
1737 |
TRBFLX |
Q1M(I,NLEV) = SBAR(I,NLEV) / SVAR(I,NLEV) |
./pkg/fizhi/fizhi_turb.F |
1738 |
TRBFLX |
FCC(I,NLEV) = (1./2.) * ( 1. + ERRF( P5SR*Q1M(I,NLEV) ) ) |
./pkg/fizhi/fizhi_turb.F |
1740 |
TRBFLX |
ARG(I,NLEV) = (1./2.)*Q1M(I,NLEV)*Q1M(I,NLEV) |
./pkg/fizhi/fizhi_turb.F |
1858 |
TRBFLX |
Q1M(I,L) = SBAR(I,L) / SVAR(I,L) |
./pkg/fizhi/fizhi_turb.F |
1859 |
TRBFLX |
FCC(I,L) = (1./2.) * ( 1. + ERRF( P5SR*Q1M(I,L) ) ) |
./pkg/fizhi/fizhi_turb.F |
1861 |
TRBFLX |
ARG(I,L) = (1./2.)*Q1M(I,L)*Q1M(I,L) |