Commit 8a8cfe1f authored by Gregor Michalicek's avatar Gregor Michalicek

Even more bugfixes for vacuum energy parameters

parent e03529f5
...@@ -230,7 +230,7 @@ CONTAINS ...@@ -230,7 +230,7 @@ CONTAINS
ENDIF ENDIF
ENDIF ENDIF
enpara%evac(ivac,jsp) = enpara%evac0(ivac,jsp) + vz0 enpara%evac(ivac,jsp) = enpara%evac0(ivac,jsp) + vz0
IF (input%l_inpXML) THEN IF (.NOT.l_enpara) THEN
enpara%evac(ivac,jsp) = v%vacz(vacuum%nmz,ivac,jsp) + enpara%evac0(ivac,jsp) enpara%evac(ivac,jsp) = v%vacz(vacuum%nmz,ivac,jsp) + enpara%evac0(ivac,jsp)
END IF END IF
IF (mpi%irank.EQ.0) THEN IF (mpi%irank.EQ.0) THEN
...@@ -329,7 +329,7 @@ CONTAINS ...@@ -329,7 +329,7 @@ CONTAINS
END IF END IF
END DO END DO
enpara%evac(2,jsp) = enpara%evac0(1,jsp) enpara%evac(:,:) = enpara%evac0(:,:)
CLOSE(40) CLOSE(40)
! input formats ! input formats
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment