| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lsm.F |
703 |
RCUNST |
& DUM2, DUM3, AA, BB, |
|
./pkg/fizhi/fizhi_lsm.F |
736 |
RCUNST |
BB = 0.877 * ( ONE - 2.*AA ) |
|
./pkg/fizhi/fizhi_lsm.F |
737 |
RCUNST |
CC = ( AA + BB*SUNANG(ChNo) ) / SUNANG(ChNo) |
|
./pkg/fizhi/fizhi_lsm.F |
743 |
RCUNST |
DUM2 = (ONE-PDIR(ChNo)) * ( BB*(ONE/3.+PIE/4.) + AA*1.5 ) |
|
./pkg/fizhi/fizhi_turb.F |
1400 |
TRBFLX |
_RL AA(irun,NLEV),BB(irun,NLEV),SSDEV(irun,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
1722 |
TRBFLX |
BB(I,NLEV) = FACEPS*SHSAT(I,NLEV)/(TL(I,NLEV)*TL(I,NLEV)) |
|
./pkg/fizhi/fizhi_turb.F |
1723 |
TRBFLX |
AA(I,NLEV) = 1. / (1. + CLH * BB(I,NLEV) ) |
|
./pkg/fizhi/fizhi_turb.F |
1724 |
TRBFLX |
BB(I,NLEV) = BB(I,NLEV) * AA(I,NLEV) * plk(I,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1729 |
TRBFLX |
1 -BB(I,NLEV)*DTH(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 |
1825 |
TRBFLX |
BB(I,L) = FACEPS*SHSAT(I,L)/(TL(I,L)*TL(I,L)) |
|
./pkg/fizhi/fizhi_turb.F |
1826 |
TRBFLX |
AA(I,L) = 1. / (1. + CLH * BB(I,L) ) |
|
./pkg/fizhi/fizhi_turb.F |
1828 |
TRBFLX |
BB(I,L) = BB(I,L) * AA(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
1835 |
TRBFLX |
1 BB(I,1)*plke(I,2)*DTH(I,1)) |
|
./pkg/fizhi/fizhi_turb.F |
1844 |
TRBFLX |
1 BB(I,L)*plke(I,L)*DTH(I,L-1)) |
|
./pkg/fizhi/fizhi_turb.F |
1849 |
TRBFLX |
1 BB(I,L)*plke(I,L+1)*DTH(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 |
3936 |
TRBDIF |
_RL AA(irun,nlev), BB(irun,nlev), CC(irun,nlev+1) |
|
./pkg/fizhi/fizhi_turb.F |
3956 |
TRBDIF |
BB(I,L) = RHOKDZ(I,L) * FLXFAC(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
3957 |
TRBDIF |
AA(I,L) = 1. + CC(I,L) + BB(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
3971 |
TRBDIF |
CALL VTRI0(AA,BB,CC,XX1,XX1,NLEV,irun) |
|
./pkg/fizhi/fizhi_turb.F |
3981 |
TRBDIF |
CALL VTRI1(AA,BB,XX2,NLEV,irun) |
|
./pkg/fizhi/fizhi_turb.F |
3989 |
TRBDIF |
IF(ITYPE.EQ.3) CALL VTRI2 (AA,BB,CC,XX2,XX2,NLEV,irun) |