Diffusion GYACOMO (OBSOLETE: LATEST VERSION ON gitlab.epfl.ch) (shear_version) Browse

gyacomo/src/endrun.F90
62d467fd7b40shear_version

endrun.F90
View Options

			SUBROUTINE endrun
			! Terminate the run

			USE basic
			use prec_const
			IMPLICIT NONE


			IF( nlend ) THEN
			!----------------------------------------------------------------------
			! 1. Normal end of run
			IF(my_id .EQ. 0) WRITE(*,'(/a)') ' Normal exit'

			!----------------------------------------------------------------------
			! 2. Abnormal exit
			ELSE
			WRITE(*,'(/a)') ' Abnormal exit'
			END IF


			END SUBROUTINE endrun