| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1523 |
TRBFLX |
_RL DW2(irun,nlev), RI(irun,nlev) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2008 |
TRBFLX |
DW2(I,1) = DU(I,1) * DU(I,1) + DV(I,1) * DV(I,1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2009 |
TRBFLX |
IF ( DW2(I,1) .LE. 1.e-4 ) DW2(I,1) = 1.e-4 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2010 |
TRBFLX |
RI(I,1) = STRT(I,1) / DW2(I,1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2064 |
TRBFLX |
CALL TRBLEN(STRT,DW2,DZ3,Q,VKZE,VKZM,DTHV,DPK,DU,DV,XL,QXLM, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2071 |
TRBFLX |
CALL TRBL20(RI(1,LMIN),STRT(1,LMIN),DW2(1,LMIN),XL(1,LMIN), |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2083 |
TRBFLX |
CALL TRBLEN(STRT,DW2,DZ3,Q,VKZE,VKZM,DTHV,DPK,DU,DV,XL,QXLM, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2120 |
TRBFLX |
CALL TRBL25(Q(1,LMINQ),XL(1,LMINQ),STRT(1,LMINQ),DW2(1,LMINQ), |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3400 |
TRBLEN |
SUBROUTINE TRBLEN (STRT,DW2,DZ3,Q,VKZE,VKZM,DTHV,DPK,DU,DV,XL, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3443 |
TRBLEN |
_RL STRT(irun,NLEV),DW2(irun,NLEV),DZ3(irun,NLEV) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3486 |
TRBLEN |
STBFCN(I,1) = STRT(I,1) - RICR * DW2(I,1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3739 |
TRBL20 |
SUBROUTINE TRBL20 (RI,STRT,DW2,XL,ZKM,ZKH,QE,QQE,INTSTB,NLEV, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3769 |
TRBL20 |
_RL RI(irun,NLEV),STRT(irun,NLEV),DW2(irun,NLEV) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3825 |
TRBL20 |
QE(I,1) = ZKM(I,1)*DW2(I,1) - ZKH(I,1)*STRT(I,1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3842 |
TRBL25 |
SUBROUTINE TRBL25(Q,XL,STRT,DW2,INTSTB,INTQ,ZKM,ZKH,P3,NLEV, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3873 |
TRBL25 |
_RL DW2(irun,NLEV) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3910 |
TRBL25 |
DW2(I,1) = XQ(I,1) * DW2(I,1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3915 |
TRBL25 |
. + A4 * (F3(I,1) * DW2(I,1)) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3916 |
TRBL25 |
ZKH(I,1) = (F2(I,1) + A3*DW2(I,1)) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3922 |
TRBL25 |
P3(I,1) = 2. * ( ZKM(I,1)*DW2(I,1) - P3(I,1) ) |
|
./pkg/fizhi/fizhi_turb.F |
1483 |
TRBFLX |
_RL DW2(irun,nlev), RI(irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1968 |
TRBFLX |
DW2(I,1) = DU(I,1) * DU(I,1) + DV(I,1) * DV(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
1969 |
TRBFLX |
IF ( DW2(I,1) .LE. 1.e-4 ) DW2(I,1) = 1.e-4 |
|
./pkg/fizhi/fizhi_turb.F |
1970 |
TRBFLX |
RI(I,1) = STRT(I,1) / DW2(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
2024 |
TRBFLX |
CALL TRBLEN(STRT,DW2,DZ3,Q,VKZE,VKZM,DTHV,DPK,DU,DV,XL,QXLM, |
|
./pkg/fizhi/fizhi_turb.F |
2031 |
TRBFLX |
CALL TRBL20(RI(1,LMIN),STRT(1,LMIN),DW2(1,LMIN),XL(1,LMIN), |
|
./pkg/fizhi/fizhi_turb.F |
2043 |
TRBFLX |
CALL TRBLEN(STRT,DW2,DZ3,Q,VKZE,VKZM,DTHV,DPK,DU,DV,XL,QXLM, |
|
./pkg/fizhi/fizhi_turb.F |
2080 |
TRBFLX |
CALL TRBL25(Q(1,LMINQ),XL(1,LMINQ),STRT(1,LMINQ),DW2(1,LMINQ), |
|
./pkg/fizhi/fizhi_turb.F |
3361 |
TRBLEN |
SUBROUTINE TRBLEN (STRT,DW2,DZ3,Q,VKZE,VKZM,DTHV,DPK,DU,DV,XL, |
|
./pkg/fizhi/fizhi_turb.F |
3404 |
TRBLEN |
_RL STRT(irun,NLEV),DW2(irun,NLEV),DZ3(irun,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
3447 |
TRBLEN |
STBFCN(I,1) = STRT(I,1) - RICR * DW2(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
3700 |
TRBL20 |
SUBROUTINE TRBL20 (RI,STRT,DW2,XL,ZKM,ZKH,QE,QQE,INTSTB,NLEV, |
|
./pkg/fizhi/fizhi_turb.F |
3730 |
TRBL20 |
_RL RI(irun,NLEV),STRT(irun,NLEV),DW2(irun,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
3786 |
TRBL20 |
QE(I,1) = ZKM(I,1)*DW2(I,1) - ZKH(I,1)*STRT(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
3803 |
TRBL25 |
SUBROUTINE TRBL25(Q,XL,STRT,DW2,INTSTB,INTQ,ZKM,ZKH,P3,NLEV, |
|
./pkg/fizhi/fizhi_turb.F |
3834 |
TRBL25 |
_RL DW2(irun,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
3871 |
TRBL25 |
DW2(I,1) = XQ(I,1) * DW2(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
3876 |
TRBL25 |
. + A4 * (F3(I,1) * DW2(I,1)) |
|
./pkg/fizhi/fizhi_turb.F |
3877 |
TRBL25 |
ZKH(I,1) = (F2(I,1) + A3*DW2(I,1)) |
|
./pkg/fizhi/fizhi_turb.F |
3883 |
TRBL25 |
P3(I,1) = 2. * ( ZKM(I,1)*DW2(I,1) - P3(I,1) ) |