78 |
DO i = 1-Olx,sNx+Olx |
DO i = 1-Olx,sNx+Olx |
79 |
KappaRTr(i,j,k) = |
KappaRTr(i,j,k) = |
80 |
& IVDConvCount(i,j,k,bi,bj)*ivdc_kappa |
& IVDConvCount(i,j,k,bi,bj)*ivdc_kappa |
81 |
#if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_DIFFKR_CONTROL)) |
#if (defined ALLOW_3D_DIFFKR || \ |
82 |
|
(defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_DIFFKR_CONTROL))) |
83 |
& + diffKr(i,j,k,bi,bj) |
& + diffKr(i,j,k,bi,bj) |
84 |
#else |
#else |
85 |
& + diffKr3dT(i,j,k,bi,bj) |
& + diffKrNrT(k) |
86 |
#endif |
#endif |
87 |
& + KbryanLewis79 |
& + KbryanLewis79 |
88 |
ENDDO |
ENDDO |
98 |
DO i = 1-Olx, sNx+Olx |
DO i = 1-Olx, sNx+Olx |
99 |
KappaRTr(i,j,k) = |
KappaRTr(i,j,k) = |
100 |
& IVDConvCount(i,j,k,bi,bj)*ivdc_kappa |
& IVDConvCount(i,j,k,bi,bj)*ivdc_kappa |
101 |
#if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_DIFFKR_CONTROL)) |
#if (defined ALLOW_3D_DIFFKR || \ |
102 |
|
(defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_DIFFKR_CONTROL))) |
103 |
& + diffKr(i,j,k,bi,bj) |
& + diffKr(i,j,k,bi,bj) |
104 |
#else |
#else |
105 |
& + diffKr3dS(i,j,k,bi,bj) |
& + diffKrNrS(k) |
106 |
#endif |
#endif |
107 |
& + KbryanLewis79 |
& + KbryanLewis79 |
108 |
ENDDO |
ENDDO |
121 |
DO i = 1-Olx, sNx+Olx |
DO i = 1-Olx, sNx+Olx |
122 |
KappaRTr(i,j,k) = |
KappaRTr(i,j,k) = |
123 |
& IVDConvCount(i,j,k,bi,bj)*ivdc_kappa |
& IVDConvCount(i,j,k,bi,bj)*ivdc_kappa |
124 |
#if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_DIFFKR_CONTROL)) |
#if (defined ALLOW_3D_DIFFKR || \ |
125 |
|
(defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_DIFFKR_CONTROL))) |
126 |
& + diffKr(i,j,k,bi,bj) |
& + diffKr(i,j,k,bi,bj) |
127 |
#else |
#else |
128 |
& + PTRACERS_diffKrNr(k,iTr) |
& + PTRACERS_diffKrNr(k,iTr) |