diff --git a/code/mesh.f90 b/code/mesh.f90 index 90a62a218..63efee56a 100644 --- a/code/mesh.f90 +++ b/code/mesh.f90 @@ -5092,7 +5092,7 @@ subroutine mesh_write_cellGeom #ifdef HDF use IO, only: & HDF5_mappingCells - #endif +#endif implicit none integer(I4P), dimension(1:mesh_Ncells) :: celltype integer(I4P), dimension(mesh_Ncells*(1_pInt+FE_maxNcellnodesPerCell)) :: cellconnection