numerical_test.f90
c583b6e1861amaster

numerical_test.f90
View Options

			subroutine numerical_test
			! this model contains routine to perform numerical tests
			USE PREC_CONST
			USE FMZM
			USE coeff
			use speed_functions
			use auxval
			use self_colls
			use improved_sugama

			implicit none

			TYPE(FM) , SAVE :: XOUT

			CALL set_model_fm

			! write to file
			! SET fm precision to give at least 60 significant digits
			CALL FM_SET(50)
			!
			CALL memory

			end subroutine numerical_test