Commit 477df3d4a76198b76d03a3ed6558e257b79d1e1c
1 parent
0cd31073
Exists in
master
Fix error with twisted pair cable condcutor internal impedance
Showing
4 changed files
with
16 additions
and
1 deletions
Show diff stats
SRC/CABLE_MODULES/twisted_pair.F90
... | ... | @@ -46,6 +46,7 @@ |
46 | 46 | ! |
47 | 47 | ! started 12/4/201 CJS |
48 | 48 | ! 16/11/2017 CJS Include network synthesis process to replace s-domain transfer functions |
49 | +! 21/12/2023: fix error on cable%conductor_impedance(2)%Resistance_multiplication_factor | |
49 | 50 | ! |
50 | 51 | ! |
51 | 52 | SUBROUTINE twisted_pair_set_parameters(cable) |
... | ... | @@ -288,7 +289,7 @@ IMPLICIT NONE |
288 | 289 | cable%conductor_impedance(2)%impedance_model_type=impedance_model_type_cylindrical_with_conductivity |
289 | 290 | cable%conductor_impedance(2)%radius=rw |
290 | 291 | cable%conductor_impedance(2)%conductivity=sigma |
291 | - cable%conductor_impedance(2)%Resistance_multiplication_factor=1.5d0 | |
292 | + cable%conductor_impedance(2)%Resistance_multiplication_factor=0.5d0 | |
292 | 293 | |
293 | 294 | CALL deallocate_Sfilter(epsr) |
294 | 295 | ... | ... |
SRC/cable_bundle_model_builder.F90
... | ... | @@ -77,6 +77,7 @@ |
77 | 77 | ! 24/2/2017 CJS Allow the input name to include a path i.e. the _spec file does not need to be local. |
78 | 78 | ! 13/3/2018 CJS Add flag for direct/ iterative matrix solver in Laplace solution and inf/finite ground plane |
79 | 79 | ! 19/6/2018 CJS Add flag for Neumann/ Asymptotic boundary condition in Laplace solver. Default is Neumann |
80 | +! 21/12/2023: Trap the special case of a tristed pair in free space which needs a special process... | |
80 | 81 | ! |
81 | 82 | PROGRAM cable_bundle_model_builder |
82 | 83 | |
... | ... | @@ -404,6 +405,19 @@ logical :: must_use_laplace |
404 | 405 | |
405 | 406 | end do ! read the next cable file in the bundle |
406 | 407 | |
408 | +! 21/12/2023: Check for the special case of a tristed pair in free space which needs | |
409 | +! a special process... | |
410 | + | |
411 | + if (bundle_spec%n_cables.Eq.1) then | |
412 | + cable=1 | |
413 | + if (bundle_spec%cable(cable)%cable_type.EQ.cable_geometry_type_twisted_pair) then | |
414 | + run_status='ERROR: twisted pair cable in free space with no other conductors. Model this using two cylindrical wires' | |
415 | + CALL write_program_status() | |
416 | + STOP 1 | |
417 | + end if | |
418 | + end if | |
419 | + | |
420 | + | |
407 | 421 | ! Check whether Laplace solver must be used |
408 | 422 | |
409 | 423 | if (must_use_laplace.AND.(.NOT.use_Laplace)) then | ... | ... |