| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
3937 |
TRBDIF |
_RL AA(irun,nlev), BB(irun,nlev), CC(irun,nlev+1) |
|
./pkg/fizhi/fizhi_turb.F |
3950 |
TRBDIF |
CC(I,1) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
3953 |
TRBDIF |
CC(I,2) = RHOKDZ(I,1) * FLXFAC(I,2) |
|
./pkg/fizhi/fizhi_turb.F |
3957 |
TRBDIF |
AA(I,1) = 1. + CC(I,1) + BB(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
3968 |
TRBDIF |
CALL VTRI0(AA,BB,CC,XX1,XX1,NLEV,irun) |
|
./pkg/fizhi/fizhi_turb.F |
3974 |
TRBDIF |
DXX1G(I) = CC(I,NLEVP1) * ( XX1(I,NLEV)-XX1(I,NLEVP1) ) |
|
./pkg/fizhi/fizhi_turb.F |
3980 |
TRBDIF |
DXX2G(I) = CC(I,NLEVP1) * ( XX2(I,NLEV)-XX2(I,NLEVP1) ) |
|
./pkg/fizhi/fizhi_turb.F |
3986 |
TRBDIF |
IF(ITYPE.EQ.3) CALL VTRI2 (AA,BB,CC,XX2,XX2,NLEV,irun) |
|
./pkg/fizhi/fizhi_lsm.F |
704 |
RCUNST |
& ZK, CC |
|
./pkg/fizhi/fizhi_lsm.F |
737 |
RCUNST |
CC = ( AA + BB*SUNANG(ChNo) ) / SUNANG(ChNo) |
|
./pkg/fizhi/fizhi_lsm.F |
739 |
RCUNST |
EXTK1 = CC * SQSCAT(ChNo) |
|
./pkg/fizhi/fizhi_lsm.F |
742 |
RCUNST |
DUM1 = PDIR(ChNo) * CC |