Enhancement/solver class

CMakeLists.txt

@@ -241,6 +241,7 @@ endif()
 
 if(SEMBA_FDTD_MAIN_LIB)
 	add_library(semba-main
+		"src_main_pub/semba_fdtd.F90"
 		"src_main_pub/calc_constants.F90"
 		"src_main_pub/nfde_rotate.F90"
 		"src_main_pub/EpsMuTimeScale.F90"
@@ -262,13 +263,14 @@ endif()
 
 if (SEMBA_FDTD_EXECUTABLE)
 	add_executable(semba-fdtd 
-		"src_main_pub/semba_fdtd.F90"
+		"src_main_pub/launcher.F90"
 	)
 	target_link_libraries(semba-fdtd semba-main semba-reports)
 	target_link_libraries(semba-fdtd ${MPI_Fortran_LIBRARIES})
 endif()
 
 
+
 include_directories(${CMAKE_BINARY_DIR}/mod)
 include_directories(${HDF5_INCLUDE_DIRS})
 include_directories(${FHASH_INCLUDES})

src_main_pub/fdetypes.F90

@@ -651,11 +651,13 @@ module  FDETYPES
                  permitscaling,mtlnberenger,niapapostprocess, &
                  stochastic, verbose, dontwritevtk, &
                  use_mtln_wires, resume_fromold, vtkindex,createh5bin,wirecrank,fatalerror
-
-      ! REAL (kind=8) :: time_desdelanzamiento
-      REAL (kind=rkind) :: cfl, attfactorc,attfactorw, alphamaxpar, &
-                           alphaOrden, kappamaxpar, mindistwires,sgbcFreq,sgbcresol
-      real (kind=rkind_wires) :: factorradius,factordelta !maxSourceValue
+#ifdef CompileWithConformal
+      logical :: input_conformal_flag
+#endif
+      REAL (kind=8) :: time_desdelanzamiento
+      REAL (kind=RKIND) :: cfl, attfactorc,attfactorw, alphamaxpar, &
+                           alphaOrden, kappamaxpar, mindistwires,sgbcFreq,sgbcresol, maxSourceValue
+      real (kind=rkind_wires) :: factorradius,factordelta
 
       character (len=BUFSIZE) :: nEntradaRoot, inductance_model,wiresflavor, nresumeable2
       CHARACTER (LEN=BUFSIZE) :: opcionestotales, ficherohopf

src_main_pub/interpreta_switches.F90

@@ -89,7 +89,8 @@ module interpreta_switches_m
             noconformalmapvtk               , &
             createh5filefromsinglebin       , &
             creditosyaprinteados            , &
-            use_mtln_wires
+            use_mtln_wires                  , &
+            read_command_line
 
         integer (kind=4) ::                   &
             wirethickness                    ,&
@@ -2028,6 +2029,7 @@ subroutine default_flags(l)
       l%facesNF2FF%ar=.true.
       !defaults
       l%use_mtln_wires = .false.
+      l%read_command_line = .true.
       l%hay_slanted_wires=.false.
       l%forcing = .FALSE.
       l%resume_fromold = .FALSE.

src_main_pub/launcher.F90

@@ -0,0 +1,14 @@
+program SEMBA_FDTD_launcher
+   use SEMBA_FDTD_mod
+   implicit none
+
+   type(semba_fdtd_t) :: semba
+
+   call semba%init()
+   call semba%launch()
+   call semba%end()
+
+
+end program SEMBA_FDTD_launcher
+
+