Commit b8edbb76 authored by Alexander Neukirchen's avatar Alexander Neukirchen

small fixes

parent 3b7d97b6
......@@ -248,10 +248,10 @@ CONTAINS
CALL timestop("generation of potential")
IF ((sliceplot%iplot.NE.0 ).AND.(mpi%irank==0) ) THEN
CALL makeplots(input%jspins,noco,sliceplot%iplot,PLOT_POT_TOT_INDEX_const,vTot)
! CALL makeplots(input%jspins,noco,sliceplot%iplot,PLOT_POT_COU_INDEX_const,vCoul)
CALL makeplots(input%jspins,noco,sliceplot%iplot,PLOT_POT_TOT,vTot)
! CALL makeplots(input%jspins,noco,sliceplot%iplot,PLOT_POT_COU,vCoul)
! CALL subPotDen(vxcForPlotting,vTot,vCoul)
! CALL makeplots(input%jspins,noco,sliceplot%iplot,PLOT_POT_VXC_const,vxcForPlotting)
! CALL makeplots(input%jspins,noco,sliceplot%iplot,PLOT_POT_VXC,vxcForPlotting)
END IF
#ifdef CPP_MPI
......@@ -379,8 +379,8 @@ CONTAINS
archiveType,xcpot,outDen,EnergyDen)
! IF ((sliceplot%iplot.NE.0 ).AND.(mpi%irank==0) ) THEN
! CALL makeplots(input%jspins,noco,sliceplot%iplot,PLOT_OUTDEN_Y_CORE_INDEX_const,outDen)
! CALL makeplots(input%jspins,noco,sliceplot%iplot,PLOT_OUTDEN_N_CORE_INDEX_const,outDen)
! CALL makeplots(input%jspins,noco,sliceplot%iplot,PLOT_OUTDEN_Y_CORE,outDen)
! CALL makeplots(input%jspins,noco,sliceplot%iplot,PLOT_OUTDEN_N_CORE,outDen)
! END IF
IF (input%l_rdmft) THEN
......
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