Skip to content
Snippets Groups Projects
Commit bccc62f8 authored by Dave Whipp's avatar Dave Whipp
Browse files

Minor formatting update

parent 774c64bf
No related branches found
No related tags found
No related merge requests found
...@@ -323,7 +323,6 @@ end if ...@@ -323,7 +323,6 @@ end if
call mpi_bcast(params%normaladvect,1,mpi_logical,0,mpi_comm_world,ierr) call mpi_bcast(params%normaladvect,1,mpi_logical,0,mpi_comm_world,ierr)
write(threadinfo%Logunit,*) 'normaladvect',params%normaladvect write(threadinfo%Logunit,*) 'normaladvect',params%normaladvect
params%excl_vol=.false. params%excl_vol=.false.
if (iproc==0) then if (iproc==0) then
call scanfile (params%infile,'excl_vol',answer,ires) call scanfile (params%infile,'excl_vol',answer,ires)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment