Changes between Version 6 and Version 7 of MultiPhysics

Timestamp:

01/28/13 14:19:50 (12 years ago)

Author:

Baowei Liu

Comment:

—

MultiPhysics

@@ -114 +114 @@
 IF (nDim == 2) THEN
   !In 2D the only component of the vector potential that matters is Az
-  ALLOCATE(A(1:Info%mX(1)+1,1:Info%mX(2)+1,1,1)
+  ALLOCATE(A(1:Info%mX(1)+1,1:Info%mX(2)+1,1,1))
   DO i=1, Info%mX(1)+1
     x = Info%xBounds(1,1)+(REAL(i)-1d0)*dx(1)
@@ -133 +133 @@
 ELSEIF (nDim == 3) THEN
   !Now the vector potential is a 3 component vector
-  ALLOCATE(A(1:Info%mX(1)+1,1:Info%mX(2)+1,1:Info%mX(3)+1,3)
+  ALLOCATE(A(1:Info%mX(1)+1,1:Info%mX(2)+1,1:Info%mX(3)+1,3))
 
   !We could do this with three separate loops to avoid calculating