inital.f90
7e5be7e39931geom_testpardiso

inital.f90
View Options

			SUBROUTINE inital
			!
			USE basic
			USE beam
			USE fields
			USE mpihelper
			USE maxwellsource
			!
			! Set initial conditions
			!
			IMPLICIT NONE
			!
			!________________________________________________________________________________
			IF(mpirank .eq. 0) WRITE(*,'(a/)') '=== Set initial conditions ==='
			!________________________________________________________________________________
			!
			! Init Electric and Magnetic Fields
			CALL creat_parts(parts,npartsalloc)
			CALL load_parts ! will call the localisation
			CALL fields_init
			IF (nlmaxwellsource) CALL maxwellsource_init(lu_in, time)
			CALL rhscon(parts)
			CALL poisson
			CALL EForcescomp(parts)
			CALL adapt_vinit(parts)
			CALL diagnostics

			!________________________________________________________________________________
			END SUBROUTINE inital