| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1621 |
TRBFLX |
NLEVP1 = NLEV + 1 |
|
./pkg/fizhi/fizhi_turb.F |
1624 |
TRBFLX |
ISTNP1 = irun * NLEVP1 |
|
./pkg/fizhi/fizhi_turb.F |
1870 |
TRBFLX |
FLXFPK(I,NLEVP1) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
1873 |
TRBFLX |
IF (IWATER(I).EQ.0 ) FLXFPK(I,NLEVP1) = 1. / PLKE(I,NLEVP1) |
|
./pkg/fizhi/fizhi_turb.F |
1884 |
TRBFLX |
FLXFAC(I,NLEVP1) = FLXFPK(I,NLEVP1) |
|
./pkg/fizhi/fizhi_turb.F |
1887 |
TRBFLX |
FLXFPK(I,NLEVP1) = CP * FLXFPK(I,NLEVP1) |
|
./pkg/fizhi/fizhi_turb.F |
1977 |
TRBFLX |
DTH(I,NLEV) = TH(I,NLEV)-TH(I,NLEVP1) |
|
./pkg/fizhi/fizhi_turb.F |
1978 |
TRBFLX |
DSH(I,NLEV) = SH(I,NLEV)-SH(I,NLEVP1) |
|
./pkg/fizhi/fizhi_turb.F |
2006 |
TRBFLX |
THV(I,NLEVP1) = THV(I,NLEV) - DTHV(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
2013 |
TRBFLX |
2 THV(1,NLEVP1),TH(1,NLEV),TH(1,NLEVP1), |
|
./pkg/fizhi/fizhi_turb.F |
2014 |
TRBFLX |
3 SH(1,NLEV),SH(1,NLEVP1),PLK(1,NLEV), |
|
./pkg/fizhi/fizhi_turb.F |
2015 |
TRBFLX |
4 PLKE(1,NLEVP1),PLE(1,NLEVP1),Z0, |
|
./pkg/fizhi/fizhi_turb.F |
2195 |
TRBFLX |
1 ((THV(I,NLEV)-THV(I,NLEVP1)) * RVK)* AHS(I) |
|
./pkg/fizhi/fizhi_turb.F |
2549 |
TRBFLX |
DELTH(I,NLEVP1) = 1. |
|
./pkg/fizhi/fizhi_turb.F |
2580 |
TRBFLX |
DELSH(I,NLEVP1) = 1. |
|
./pkg/fizhi/fizhi_turb.F |
3864 |
TRBLEN |
NLEVP1 = NLEV + 1 |
|
./pkg/fizhi/fizhi_turb.F |
3903 |
TRBLEN |
LMIN = NLEVP1 |
|
./pkg/fizhi/fizhi_turb.F |
3919 |
TRBLEN |
IF(LMIN.GE.NLEVP1) GOTO 1100 |
|
./pkg/fizhi/fizhi_turb.F |
4495 |
TRBDIF |
integer NLEVP1,NLEVX |
|
./pkg/fizhi/fizhi_turb.F |
4500 |
TRBDIF |
NLEVP1 = NLEV + 1 |
|
./pkg/fizhi/fizhi_turb.F |
4549 |
TRBDIF |
DXX1G(I) = CC(I,NLEVP1) * ( XX1(I,NLEV)-XX1(I,NLEVP1) ) |
|
./pkg/fizhi/fizhi_turb.F |
4555 |
TRBDIF |
DXX2G(I) = CC(I,NLEVP1) * ( XX2(I,NLEV)-XX2(I,NLEVP1) ) |