start.f90
865582e1b728geom_testmumps

start.f90
View Options

			SUBROUTINE start
			!
			! Start or restart the run
			!
			USE basic,ONLY: mpirank, nlmaxwellsource, moments,cstep, time, lu_in, Zbounds
			Use maxwsrce
			Use geometry
			Use neutcol
			Use beam
			Use fields
			USE mpi
			IMPLICIT NONE
			!
			! Local vars and arrays
			INTEGER:: ierr
			!________________________________________________________________________________
			IF(mpirank.eq.0) WRITE(*,'(a/)') '=== Start or restart the run ==='
			!________________________________________________________________________________
			!

			IF (step .eq. 0) THEN
			CALL partdiagnostics
			CALL momentsdiag(partslist(1), moments)
			END IF

			! Initialize electron neutral collisions
			CALL neutcol_init(lu_in, time, partslist(1))

			! Activate the source if present
			IF (nlmaxwellsource) CALL maxwsrce_init(lu_in, time, Zbounds)
			END SUBROUTINE start