| 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 |
1570 |
TRBFLX |
_RL AA(irun,NLEV),BB(irun,NLEV),SSDEV(irun,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
1974 |
TRBFLX |
BB(I,NLEV) = FACEPS*SHSAT(I,NLEV)/(TL(I,NLEV)*TL(I,NLEV)) |
|
./pkg/fizhi/fizhi_turb.F |
1975 |
TRBFLX |
AA(I,NLEV) = 1. / (1. + CLH * BB(I,NLEV) ) |
|
./pkg/fizhi/fizhi_turb.F |
1976 |
TRBFLX |
BB(I,NLEV) = BB(I,NLEV) * AA(I,NLEV) * plk(I,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1981 |
TRBFLX |
1 -BB(I,NLEV)*DTH(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 |
2096 |
TRBFLX |
BB(I,L) = FACEPS*SHSAT(I,L)/(TL(I,L)*TL(I,L)) |
|
./pkg/fizhi/fizhi_turb.F |
2097 |
TRBFLX |
AA(I,L) = 1. / (1. + CLH * BB(I,L) ) |
|
./pkg/fizhi/fizhi_turb.F |
2099 |
TRBFLX |
BB(I,L) = BB(I,L) * AA(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2106 |
TRBFLX |
1 BB(I,1)*plke(I,2)*DTH(I,1)) |
|
./pkg/fizhi/fizhi_turb.F |
2129 |
TRBFLX |
1 BB(I,L)*plke(I,L)*DTH(I,L-1)) |
|
./pkg/fizhi/fizhi_turb.F |
2134 |
TRBFLX |
1 BB(I,L)*plke(I,L+1)*DTH(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 |
4493 |
TRBDIF |
_RL AA(irun,nlev), BB(irun,nlev), CC(irun,nlev+1) |
|
./pkg/fizhi/fizhi_turb.F |
4525 |
TRBDIF |
BB(I,L) = RHOKDZ(I,L) * FLXFAC(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
4526 |
TRBDIF |
AA(I,L) = 1. + CC(I,L) + BB(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
4543 |
TRBDIF |
CALL VTRI0(AA,BB,CC,XX1,XX1,NLEV,irun) |
|
./pkg/fizhi/fizhi_turb.F |
4553 |
TRBDIF |
CALL VTRI1(AA,BB,XX2,NLEV,irun) |
|
./pkg/fizhi/fizhi_turb.F |
4561 |
TRBDIF |
IF(ITYPE.EQ.3) CALL VTRI2 (AA,BB,CC,XX2,XX2,NLEV,irun) |