controltype Derived Type

    type, public :: controltype
        real(wp) :: CFL=1.0
        !< Courant–Friedrichs–Lewy (CFL) (Read from input)
        integer :: start_from=0 
        !< Number of the folder (in time_directories) to load stored state from to restart computation
        integer :: min_iter=1     
        !< Minimum iteration value, starting iteration value
        integer :: max_iters=1 
        !< Maximum iteration value, stop after these many iteration
        integer :: checkpoint_iter=0  
        !< Write interval for output file. Number of iteration after which solver will dump/store a state in a folder in time_directories
        integer :: checkpoint_iter_count=0 
        !< Counter of folder number to write in time_directories/
        integer :: current_iter=0  
        !< Current iteration number
        integer :: res_write_interval=10
        !< Write resnorm after every "res_write_interval" iteration
        integer :: purge_write=1
        !< Remove unwanted folder. If Purge_write=2, latest two folder in time_direcotires are kept and 0=no purge
        integer :: last_iter=0    
        !< Last iteration that is stored in the restart file
        integer :: write_percision=6 
        !< Number of place after decimal. Only used for resnorm file
        character(len=FORMAT_LENGTH):: write_data_format='ASCII'
        !< write data type. Either ASCII or BINARY
        character(len=FORMAT_LENGTH):: write_file_format='tecplot'
        !< Write file type. Either vtk or tecplot
        character(len=FORMAT_LENGTH)::  read_data_format='ASCII' 
        !< Read data type in file. Either ASCII or BINARY
        character(len=FORMAT_LENGTH)::  read_file_format='tecplot'
        !< Read file type. Either vtk or tecplot
        real(wp) :: tolerance=1e-14
        !< Minimum value of resnorm after which simulation stop
        character(len=STRING_BUFFER_LENGTH) :: tolerance_type="abs"
        !< Type of tolerance to check:absolute or relative
        integer, public :: DEBUG_LEVEL = 1
        !< Debug level is an input from the control file.
        !< 5-> important calls only, and, 
        !< 1-> all the calls
        character(len=STRING_BUFFER_LENGTH):: previous_flow_type="none" 
        !< Type of flow:inviscid, laminar, etc, stored in the load file 
        integer                                           :: n_var=5
        ! Freestram variable used to read file before inf pointer are linked and allocated
        character(len=STRING_BUFFER_LENGTH), dimension(:), allocatable ::  r_list 
        !< Read variable list
        character(len=STRING_BUFFER_LENGTH), dimension(:), allocatable ::  w_list 
        !< Write variable list
        integer :: r_count=0                               
        !< Number of variable to read from the restart file
        integer :: w_count=0                               
        !< Number of variable to write in the output file
        character(len=STRING_BUFFER_LENGTH), dimension(:), allocatable :: Res_list
        !< Write residual variable list
        integer            :: Res_count       
        !< No of residual variable to save
        integer :: total_process=1
        !< Total number of process to be used for computation
        integer :: process_id=0
        !< Id no. of each processor assinged by MPICH library
        integer :: want_to_stop=0  
        !< 0: continue the solver; 1=Stop the solver
        logical :: Halt = .FALSE.
        !< Logical value used to stop the solver in main program file.
        real(wp), dimension(:), allocatable :: previous_res
        !< starting resnrom of previous run
    end type controltype