Removes CompileWithXDMF

OpenSEMBA · Nov 9, 2024 · b86c8b9 · b86c8b9
1 parent bca8dbb
commit b86c8b9
Show file tree

Hide file tree

Showing 5 changed files with 2 additions and 18 deletions.
diff --git a/CMakeLists.txt b/CMakeLists.txt
@@ -148,7 +148,6 @@ add_definitions(
 -DCompileWithDMMA
 -DCompileWithSGBC
 -DCompileWithWires
--DCompileWithXDMF
 )
 
 
diff --git a/src_main_pub/errorreport.F90 b/src_main_pub/errorreport.F90
@@ -25,9 +25,7 @@
 Module Report
    use FDETYPES
 
-#ifdef CompileWithXDMF
    use snapxdmf
-#endif
 
    implicit none
    private
@@ -1160,7 +1158,6 @@ subroutine Timing(sgg, b, n, n_info, layoutnumber, size, maxCPUtime,flushseconds
          call MPI_Barrier(MPI_COMM_WORLD,ierr)
 #endif
 
-#ifdef CompileWithXDMF
          if ((mustsnap.and.(lmaxval  (layoutnumber+1)> snapLevel)).or.(countersnap > 0)) then
             countersnap=countersnap + 1
             !
@@ -1264,7 +1261,6 @@ subroutine Timing(sgg, b, n, n_info, layoutnumber, size, maxCPUtime,flushseconds
                countersnap=0
             endif
          endif
-#endif         
 
 #ifdef CompileWithMPI
          call MPI_Barrier(MPI_COMM_WORLD,ierr) !TODOS STOCH O NO 060619

diff --git a/src_main_pub/semba_fdtd.F90 b/src_main_pub/semba_fdtd.F90
@@ -55,10 +55,7 @@ PROGRAM SEMBA_FDTD_launcher
 
    USE Preprocess_m
    USE storeData
-
-#ifdef CompileWithXDMF
    USE xdmf_h5
-#endif   
    !
 #ifdef CompileWithMPI
    USE MPIcomm
@@ -394,7 +391,6 @@ PROGRAM SEMBA_FDTD_launcher
    end if
 #endif
 
-#ifdef CompileWithXDMF   
 #ifdef CompileWithHDF
 !!!!tunel a lo bestia para crear el .h5 a 021219
    if (l%createh5filefromsinglebin) then
@@ -418,7 +414,6 @@ PROGRAM SEMBA_FDTD_launcher
 #endif
       stop
    endif
-#endif
 #endif
 
    IF (status /= 0) then

diff --git a/src_main_pub/timestepping.F90 b/src_main_pub/timestepping.F90
@@ -53,9 +53,7 @@ module Solver
    use nodalsources
    use Lumped
    use PMLbodies
-#ifdef CompileWithXDMF
    use xdmf
-#endif   
    use vtk
 #ifdef CompileWithMPI
    use MPIcomm
@@ -1957,10 +1955,10 @@ subroutine launch_simulation(sgg,sggMtag,sggMiNo,sggMiEx,sggMiEy,sggMiEz,sggMiHx
                             call print11(layoutnumber,dubuf)
                             call print11(layoutnumber,SEPARADOR//separador//separador)
                             somethingdone=.false.
-#ifdef CompileWithXDMF      
+
                             if (Thereare%Observation) call createxdmfOnTheFly(sgg,layoutnumber,size,vtkindex,createh5bin,somethingdone,mpidir)                          
                             if (createh5bin) call createh5bintxt(sgg,layoutnumber,size) !lo deben llamar todos haya on on thereare%observation
-#endif  
+
 #ifdef CompileWithMPI
                         call MPI_Barrier(SUBCOMM_MPI,ierr)
                         call MPI_AllReduce( somethingdone, newsomethingdone, 1_4, MPI_LOGICAL, MPI_LOR, SUBCOMM_MPI, ierr)
@@ -2177,11 +2175,9 @@ subroutine launch_simulation(sgg,sggMtag,sggMiNo,sggMiEx,sggMiEy,sggMiEz,sggMiHx
       write(dubuf,*) SEPARADOR//separador//separador
       call print11(layoutnumber,dubuf)
       somethingdone=.false.
-#ifdef CompileWithXDMF
       if (Thereare%Observation) call createxdmf(sgg,layoutnumber,size,vtkindex,createh5bin,somethingdone,mpidir)
       if (createh5bin) call createh5bintxt(sgg,layoutnumber,size) !lo deben llamar todos haya o no thereare%observation
          !        call create_interpreted_mesh(sgg)
-#endif      
 #ifdef CompileWithMPI
       call MPI_Barrier(SUBCOMM_MPI,ierr)
       call MPI_AllReduce( somethingdone, newsomethingdone, 1_4, MPI_LOGICAL, MPI_LOR, SUBCOMM_MPI, ierr)

diff --git a/src_main_pub/xdmf.F90 b/src_main_pub/xdmf.F90
@@ -1,6 +1,5 @@
 MODULE xdmf
    !
-#ifdef CompileWithXDMF
    USE fdetypes
    USE Observa
    use report
@@ -575,7 +574,6 @@ SUBROUTINE createxdmfOnTheFly (sgg,layoutnumber,size,vtkindex,createh5bin,someth
 
       RETURN
    END SUBROUTINE createxdmfOnTheFly
-#endif   
 END MODULE xdmf
 !
 !