| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1383 |
TRBFLX |
_RL FLXFPK (irun,nlev+1) |
|
./pkg/fizhi/fizhi_turb.F |
1634 |
TRBFLX |
FLXFPK(I,L) = PLE(I,L+1) - PLE(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
1635 |
TRBFLX |
FLXFPK(I,L) = FLXFPK(I,L) * PLK(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
1636 |
TRBFLX |
FLXFPK(I,L) = (GRAV*DTAU*0.01) / FLXFPK(I,L) |
|
./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 |
1647 |
TRBFLX |
FLXFAC(I,L) = FLXFPK(I,L) * PLK(I,L) |
|
./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 |
2145 |
TRBFLX |
CALL TRBDIF(TH,DELTH,TEMP,FLXFPK,DTHS,DELTHS,NLEV,2,0. _d 0,irun) |