File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_turb.F |
3894 |
TRBDIF |
SUBROUTINE TRBDIF ( XX1,XX2,RHOKDZ,FLXFAC,DXX1G,DXX2G,NLEV, |
./pkg/fizhi/fizhi_turb.F |
3931 |
TRBDIF |
_RL XX1(irun,NLEV+1),XX2(irun,NLEV+1) |
./pkg/fizhi/fizhi_turb.F |
3965 |
TRBDIF |
AA(I,L) = AA(I,L) - XX2(I,L) |
./pkg/fizhi/fizhi_turb.F |
3981 |
TRBDIF |
CALL VTRI1(AA,BB,XX2,NLEV,irun) |
./pkg/fizhi/fizhi_turb.F |
3983 |
TRBDIF |
DXX2G(I) = CC(I,NLEVP1) * ( XX2(I,NLEV)-XX2(I,NLEVP1) ) |
./pkg/fizhi/fizhi_turb.F |
3989 |
TRBDIF |
IF(ITYPE.EQ.3) CALL VTRI2 (AA,BB,CC,XX2,XX2,NLEV,irun) |