tesend.F90
9a072e2a6205gather_output

tesend.F90
View Options

			SUBROUTINE tesend
			! Test for run completion

			USE basic

			use prec_const
			IMPLICIT NONE

			!________________________________________________________________________________
			! 1. Some processors had set nlend
			IF( nlend ) THEN
			WRITE(*,'(/a)') 'rhs are NaN/Inf'
			WRITE(,) 'Run terminated at cstep=',cstep
			RETURN
			END IF

			!________________________________________________________________________________
			! 2. Test on NRUN
			nlend = step .GE. nrun
			IF ( nlend ) THEN
			WRITE(*,'(/a)') 'NRUN steps done'
			RETURN
			END IF


			!________________________________________________________________________________
			! 3. Test on TMAX
			nlend = time .GE. tmax
			IF ( nlend ) THEN
			WRITE(*,'(/a)') 'TMAX reached'
			RETURN
			END IF
			!
			!
			END SUBROUTINE tesend