Merge pull request #73 from OpenSEMBA/luis

`movie components` changed to be a single entry, not array.
OpenSEMBA · Nov 9, 2024 · c545cb2 · c545cb2
2 parents 173914c + efb237e
commit c545cb2
Show file tree

Hide file tree

Showing 15 changed files with 911 additions and 43 deletions.
diff --git a/CMakeLists.txt b/CMakeLists.txt
@@ -116,6 +116,8 @@ if (SEMBA_FDTD_MAIN_LIB)
 		"src_main_pub/timestepping.F90"
 		"src_main_pub/observation.F90"
 		"src_main_pub/vtk.F90"
+		"src_main_pub/xdmf.F90"
+		"src_main_pub/xdmf_h5.F90"
 		"src_wires_pub/wires.F90"
 		"src_wires_pub/wires_mtln.F90"
 	)
@@ -147,6 +149,7 @@ add_definitions(
 -DCompileWithDMMA
 -DCompileWithSGBC
 -DCompileWithWires
+-DCompileWithXDMF
 )
 
 
diff --git a/doc/smbjson.md b/doc/smbjson.md
@@ -634,15 +634,15 @@ If not `magnitudeFile` is specified and only one `source` is defined, the `magni
 
 Probes of type `movie` record a vector field in a volume region indicated by `elementIds`. `[field]` can be `electric`, `magnetic`, or `currentDensity`; defaults to `electric`.
 `currentDensity` will store only the surface density currents on `pec` or lossy surfaces.
-The stored values can be selected using `[components]`, which stores an array of the following labels `x`, `y`, `z`, or `magnitude`; if no components are specified, defaults to `magnitude`.
+The stored values can be selected using the `[component]` entry, which stores one of the following labels `x`, `y`, `z`, or `magnitude`; if no component is specified, defaults to `magnitude`.
 
 An example follows:
 ```json
 {
     "name": "electric_field_movie",
     "type": "movie",
     "field": "electric",
-    "components": ["x"],
+    "component": "x",
     "elementIds": [4]
 }
 ```

diff --git a/src_json_parser/CMakeLists.txt b/src_json_parser/CMakeLists.txt
@@ -13,7 +13,7 @@ add_library (jsonfortran
 )
 
 add_library(smbjson 
-	"labels_mod.F90"
+	"smbjson_labels.F90"
 	"cells.F90"
 	"smbjson.F90"
 	"idchildtable.F90"

diff --git a/src_json_parser/idchildtable.F90 b/src_json_parser/idchildtable.F90
@@ -2,8 +2,8 @@ module idchildtable_mod
 
 #ifdef CompileWithSMBJSON    
    use json_module
+   use smbjson_labels_mod, only: J_ID
    use fhash, only: fhash_tbl_t, key=>fhash_key
-   use labels_mod
    use parser_tools_mod, only: json_value_ptr
 
    type :: IdChildTable_t

diff --git a/src_json_parser/parser_tools.F90 b/src_json_parser/parser_tools.F90
@@ -1,7 +1,6 @@
 module parser_tools_mod
 
 #ifdef CompileWithSMBJSON
-   use labels_mod
    use mesh_mod
    use cells_mod
    use json_module

diff --git a/src_json_parser/smbjson.F90 b/src_json_parser/smbjson.F90
@@ -4,7 +4,7 @@ module smbjson
    use NFDETypes
 
    use NFDETypes_extension
-   use labels_mod
+   use smbjson_labels_mod
    use mesh_mod
    use parser_tools_mod
    use idchildtable_mod
@@ -985,19 +985,13 @@ function readVolProbe(p) result(res)
          cs = cellIntervalsToCoords(cRs(1)%intervals)
 
          fieldType = this%getStrAt(p, J_FIELD, default=J_FIELD_ELECTRIC)
-         call this%core%get(p, J_PR_MOVIE_COMPONENTS, compsPtr, found=componentsFound)
+         call this%core%get(p, J_PR_MOVIE_COMPONENT, compsPtr, found=componentsFound)
+         allocate(res%cordinates(1))
          if (componentsFound) then
-            numberOfComponents = this%core%count(compsPtr)
-            allocate(res%cordinates(numberOfComponents))
-            do i = 1, numberOfComponents
-               call this%core%get_child(compsPtr, i, compPtr)
-               call this%core%get(compPtr, component)
-               res%cordinates(i) = cs(1)
-               res%cordinates(i)%Or  = buildVolProbeType(fieldType, component)
-            end do
-         else 
-            allocate(res%cordinates(1))
+            call this%core%get(compsPtr, component)
             res%cordinates(1) = cs(1)
+            res%cordinates(1)%Or  = buildVolProbeType(fieldType, component)
+         else 
             component = J_DIR_M
             res%cordinates(1)%Or  = buildVolProbeType(fieldType, component)
          endif

diff --git a/src_json_parser/labels_mod.F90 → src_json_parser/smbjson_labels.F90 b/src_json_parser/labels_mod.F90 → src_json_parser/smbjson_labels.F90
@@ -1,4 +1,4 @@
-module labels_mod
+module smbjson_labels_mod
 
 #ifdef CompileWithSMBJSON    
    ! LABELS
@@ -155,7 +155,7 @@ module labels_mod
 
    character (len=*), parameter :: J_PR_POINT_DIRECTIONS = "directions"
 
-   character (len=*), parameter :: J_PR_MOVIE_COMPONENTS = "components"
+   character (len=*), parameter :: J_PR_MOVIE_COMPONENT = "component"
 
    character (len=*), parameter :: J_PR_FAR_FIELD_THETA = "theta"
    character (len=*), parameter :: J_PR_FAR_FIELD_PHI = "phi"