Add some comments in MHD

mathrack · mathrack · commit f31d5641a0d0 · 2024-04-18T10:21:52.000+02:00
diff --git a/src/mhd.f90 b/src/mhd.f90
@@ -798,7 +798,7 @@ subroutine solve_poisson_mhd
     !
     nlock=1 !! Corresponds to computing div(u*)
     !
-    do poissiter = 1, 1
+    do poissiter = 1, 1 ! FIXME remove the loop if there is only one iteration ?
       phib=divergence_scalar(Bm,nlock) !todo: this will have incorrect BCs?
       call poisson(phib)
       CALL gradp(dphib(:,:,:,1),dphib(:,:,:,2),dphib(:,:,:,3),phib)

Original file line number	Diff line number	Diff line change
`@@ -798,7 +798,7 @@ subroutine solve_poisson_mhd`
`798`	`798`	`!`
`799`	`799`	`nlock=1 !! Corresponds to computing div(u*)`
`800`	`800`	`!`
`801`		`- do poissiter = 1, 1`
	`801`	`+ do poissiter = 1, 1 ! FIXME remove the loop if there is only one iteration ?`
`802`	`802`	`phib=divergence_scalar(Bm,nlock) !todo: this will have incorrect BCs?`
`803`	`803`	`call poisson(phib)`
`804`	`804`	`CALL gradp(dphib(:,:,:,1),dphib(:,:,:,2),dphib(:,:,:,3),phib)`