File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_turb.F |
1371 |
TRBFLX |
_RL DZ3(irun,nlev), TEMP(irun,nlev) |
./pkg/fizhi/fizhi_turb.F |
1572 |
TRBFLX |
DZ3(I,1) = HALPHA * ADZ1(I,1) |
./pkg/fizhi/fizhi_turb.F |
1576 |
TRBFLX |
DZ3(I,L) = ALPHA * ADZ1(I,L) |
./pkg/fizhi/fizhi_turb.F |
1580 |
TRBFLX |
DZ3(I,NLEV) = ALPHA * HS(I) |
./pkg/fizhi/fizhi_turb.F |
1952 |
TRBFLX |
CALL TRBLEN(STRT,DW2,DZ3,Q,VKZE,VKZM,DTHV,DPK,DU,DV,XL,QXLM, |
./pkg/fizhi/fizhi_turb.F |
1973 |
TRBFLX |
CALL TRBLEN(STRT,DW2,DZ3,Q,VKZE,VKZM,DTHV,DPK,DU,DV,XL,QXLM, |
./pkg/fizhi/fizhi_turb.F |
3338 |
TRBLEN |
SUBROUTINE TRBLEN (STRT,DW2,DZ3,Q,VKZE,VKZM,DTHV,DPK,DU,DV,XL, |
./pkg/fizhi/fizhi_turb.F |
3376 |
TRBLEN |
_RL STRT(irun,NLEV),DW2(irun,NLEV),DZ3(irun,NLEV) |
./pkg/fizhi/fizhi_turb.F |
3450 |
TRBLEN |
XL0(I,NLEV) = DZ3(I,NLEV) |
./pkg/fizhi/fizhi_turb.F |
3469 |
TRBLEN |
& XL0(I,L) = (0.5+DZITRP(I,L)) * DZ3(I,L+1) |
./pkg/fizhi/fizhi_turb.F |
3479 |
TRBLEN |
XL0(I,L+1) = XL0(I,L+1) + ( (0.5-DZITRP(I,L)) * DZ3(I,L+1) ) |
./pkg/fizhi/fizhi_turb.F |
3485 |
TRBLEN |
IF( INT1(I,1).EQ.1 ) XL0(I,1) = XL0(I,1) + DZ3(I,1) |