diff --git a/source/cfl3d/libs/mms.F b/source/cfl3d/libs/mms.F index a7c60e8e..f6201cf6 100644 --- a/source/cfl3d/libs/mms.F +++ b/source/cfl3d/libs/mms.F @@ -1579,7 +1579,7 @@ subroutine exact_flow_bc(jdim,kdim,idim,x,y,z,qi0,qj0,qk0,nface, c # ifdef CMPLX c do not compile all the exact routines if complex - continue +c # else subroutine analytic_compressible(x, y, z, neq, q, i_convert_q, + i_forcing, i_gradient, distf, xmut, iexact_trunc, iexact_disc) @@ -2825,5 +2825,5 @@ subroutine exact_polyfg(scale, polyfc, x, y, z, q, qx, qy, qz, qxz = qxz + scale*( 0.0 ) qyz = qyz + scale*( 0.0 ) return -# endif end +# endif