| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1451 |
TRBFLX |
NLEVP1 = NLEV + 1 |
|
./pkg/fizhi/fizhi_turb.F |
1454 |
TRBFLX |
ISTNP1 = irun * NLEVP1 |
|
./pkg/fizhi/fizhi_turb.F |
1640 |
TRBFLX |
FLXFPK(I,NLEVP1) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
1643 |
TRBFLX |
IF (IWATER(I).EQ.0 ) FLXFPK(I,NLEVP1) = 1. / PLKE(I,NLEVP1) |
|
./pkg/fizhi/fizhi_turb.F |
1651 |
TRBFLX |
FLXFAC(I,NLEVP1) = FLXFPK(I,NLEVP1) |
|
./pkg/fizhi/fizhi_turb.F |
1654 |
TRBFLX |
FLXFPK(I,NLEVP1) = CP * FLXFPK(I,NLEVP1) |
|
./pkg/fizhi/fizhi_turb.F |
1725 |
TRBFLX |
DTH(I,NLEV) = TH(I,NLEV)-TH(I,NLEVP1) |
|
./pkg/fizhi/fizhi_turb.F |
1726 |
TRBFLX |
DSH(I,NLEV) = SH(I,NLEV)-SH(I,NLEVP1) |
|
./pkg/fizhi/fizhi_turb.F |
1754 |
TRBFLX |
THV(I,NLEVP1) = THV(I,NLEV) - DTHV(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
1761 |
TRBFLX |
2 THV(1,NLEVP1),TH(1,NLEV),TH(1,NLEVP1), |
|
./pkg/fizhi/fizhi_turb.F |
1762 |
TRBFLX |
3 SH(1,NLEV),SH(1,NLEVP1),PLK(1,NLEV), |
|
./pkg/fizhi/fizhi_turb.F |
1763 |
TRBFLX |
4 PLKE(1,NLEVP1),PLE(1,NLEVP1),Z0, |
|
./pkg/fizhi/fizhi_turb.F |
1889 |
TRBFLX |
1 ((THV(I,NLEV)-THV(I,NLEVP1)) * RVK)* AHS(I) |
|
./pkg/fizhi/fizhi_turb.F |
2143 |
TRBFLX |
DELTH(I,NLEVP1) = 1. |
|
./pkg/fizhi/fizhi_turb.F |
2168 |
TRBFLX |
DELSH(I,NLEVP1) = 1. |
|
./pkg/fizhi/fizhi_turb.F |
3410 |
TRBLEN |
NLEVP1 = NLEV + 1 |
|
./pkg/fizhi/fizhi_turb.F |
3440 |
TRBLEN |
LMIN = NLEVP1 |
|
./pkg/fizhi/fizhi_turb.F |
3453 |
TRBLEN |
IF(LMIN.GE.NLEVP1) GOTO 1100 |
|
./pkg/fizhi/fizhi_turb.F |
3937 |
TRBDIF |
integer NLEVP1,NLEVX |
|
./pkg/fizhi/fizhi_turb.F |
3940 |
TRBDIF |
NLEVP1 = NLEV + 1 |
|
./pkg/fizhi/fizhi_turb.F |
3977 |
TRBDIF |
DXX1G(I) = CC(I,NLEVP1) * ( XX1(I,NLEV)-XX1(I,NLEVP1) ) |
|
./pkg/fizhi/fizhi_turb.F |
3983 |
TRBDIF |
DXX2G(I) = CC(I,NLEVP1) * ( XX2(I,NLEV)-XX2(I,NLEVP1) ) |