File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_turb.F |
1948 |
TRBFLX |
LMINQ1 = 1 |
./pkg/fizhi/fizhi_turb.F |
1949 |
TRBFLX |
IF(LMINQ.GT.1)LMINQ1 = LMINQ - 1 |
./pkg/fizhi/fizhi_turb.F |
1953 |
TRBFLX |
1 NLEV,INIT,LMIN,LMINQ,LMINQ1,CP,INT1,INT2, |
./pkg/fizhi/fizhi_turb.F |
1974 |
TRBFLX |
1 NLEV,INIT,LMIN,LMINQ,LMINQ1,CP,INT1,INT2, |
./pkg/fizhi/fizhi_turb.F |
2077 |
TRBFLX |
NLEVMQ = NLEV - LMINQ1 |
./pkg/fizhi/fizhi_turb.F |
2079 |
TRBFLX |
DO L =LMINQ1,NLEVM1 |
./pkg/fizhi/fizhi_turb.F |
2084 |
TRBFLX |
CALL TRBDIF(QQ(1,LMINQ1),P3(1,LMINQ1),RHOKDZ(1,LMINQ1), |
./pkg/fizhi/fizhi_turb.F |
2085 |
TRBFLX |
1 FLXFCE(1,LMINQ1),DTHS,DELTHS,NLEVMQ,1,1.0 _d -20,irun) |
./pkg/fizhi/fizhi_turb.F |
2097 |
TRBFLX |
IF(LMINQ1.GT.1)THEN |
./pkg/fizhi/fizhi_turb.F |
2098 |
TRBFLX |
ISTLMQ = irun * (LMINQ1-1) |
./pkg/fizhi/fizhi_turb.F |
2100 |
TRBFLX |
DO L =1,LMINQ1-1 |
./pkg/fizhi/fizhi_turb.F |
2110 |
TRBFLX |
DO L =LMINQ1,NLEVM1 |
./pkg/fizhi/fizhi_turb.F |
3339 |
TRBLEN |
1 QXLM,NLEV,INIT,LMIN,LMINQ,LMINQ1,CP,INT1,INT2, |
./pkg/fizhi/fizhi_turb.F |
3534 |
TRBLEN |
ISTLMQ = irun * LMINQ1 |
./pkg/fizhi/fizhi_turb.F |
3535 |
TRBLEN |
DO L =1,LMINQ1 |
./pkg/fizhi/fizhi_turb.F |
3591 |
TRBLEN |
ISTNMQ = irun * (NLEV-LMINQ1) |
./pkg/fizhi/fizhi_turb.F |
3592 |
TRBLEN |
DO L =LMINQ1,NLEVM1 |
./pkg/fizhi/fizhi_turb.F |
3604 |
TRBLEN |
DO L =LMINQ1,NLEVM1 |