Skip to content
Snippets Groups Projects
sfx_main.f90 920 B
Newer Older
program sfx_main
    !< @brief main driver 

    ! modules used
    ! --------------------------------------------------------------------------------
    use sfx_config
    ! --------------------------------------------------------------------------------

    ! directives list
    ! --------------------------------------------------------------------------------
    implicit none
    ! --------------------------------------------------------------------------------


Evgeny Mortikov's avatar
Evgeny Mortikov committed
    type(sfxDatasetType) :: dataset
    integer :: model

    character(len=:), allocatable :: filename_out
    ! --------------------------------------------------------------------------------


    ! --- setting run
    call set_run(filename_out, dataset, model)
    ! --- running main driver
    call run_dataset(filename_out, dataset, model)
    !   *: explicit call to stop to print exceptions raised
Evgeny Mortikov's avatar
Evgeny Mortikov committed

end program