@@ -31,12 +31,9 @@ real Fluid<Phys>::CheckDivB() {
3131 KOKKOS_LAMBDA (int k, int j, int i, real &divBmax) {
3232 [[maybe_unused]] real dB1,dB2,dB3;
3333 [[maybe_unused]] real d1, d2, d3;
34- [[maybe_unused]] real B1,B2,B3;
3534
3635 dB1=dB2=dB3=ZERO_F;
3736 d1=d2=d3=ZERO_F;
38- B1=B2=B3=ZERO_F;
39-
4037
4138 D_EXPAND ( dB1=(Ax1 (k,j,i+1 )*Vs (BX1s,k,j,i+1 )-Ax1 (k,j,i)*Vs (BX1s,k,j,i)); ,
4239 dB2=(Ax2 (k,j+1 ,i)*Vs (BX2s,k,j+1 ,i)-Ax2 (k,j,i)*Vs (BX2s,k,j,i)); ,
@@ -46,12 +43,8 @@ real Fluid<Phys>::CheckDivB() {
4643 d2=0.5 *(Ax2 (k,j+1 ,i) + Ax2 (k,j,i)); ,
4744 d3=0.5 *(Ax3 (k+1 ,j,i) + Ax3 (k,j,i)); )
4845
49- D_EXPAND ( B1=0.5 *(Vs (BX1s,k,j,i+1 ) + Vs (BX1s,k,j,i)); ,
50- B2=0.5 *(Vs (BX2s,k,j+1 ,i) + Vs (BX2s,k,j,i)); ,
51- B3=0.5 *(Vs (BX3s,k+1 ,j,i) + Vs (BX3s,k,j,i)); )
5246
53- real amplitude = 1e-40 ;
54- amplitude += D_EXPAND ( std::fabs (B1)*d1, + std::fabs (B2)*d2, + std::fabs (B3)*d3 );
47+ const real amplitude = D_EXPAND ( d1, + d2, + d3 );
5548
5649 divBmax=FMAX (FABS (D_EXPAND (dB1, +dB2, +dB3))/amplitude,divBmax);
5750 },
0 commit comments