minor update in main driver

srcF/sfx_main.f90

 program sfx_main
+    !< @brief main driver 
 
     ! modules used
     ! --------------------------------------------------------------------------------
@@ -19,11 +20,12 @@ program sfx_main
     ! --------------------------------------------------------------------------------
 
 
-    !< @brief run setup
+    ! --- setting run
     call set_run(filename_out, dataset, model)
 
-    !< @brief running main driver
+    ! --- running main driver
     call run_dataset(filename_out, dataset, model)
+    !   *: explicit call to stop to print exceptions raised
     stop
 
 end program

srcF/sfx_run.f90

 module sfx_run
+    !< @brief sfx driver 
 
     ! directives list
     ! --------------------------------------------------------------------------------
@@ -14,7 +15,7 @@ module sfx_run
 
 contains 
 
-    !> @brief main run sfx on dataset subroutine
+    !> @brief run sfx on dataset
     ! ----------------------------------------------------------------------------
     subroutine run_dataset(filename_out, dataset, model)
 
@@ -40,11 +41,6 @@ contains
                 numericsType_sheba => numericsType
         ! --------------------------------------------------------------------------------
     
-        ! directives list
-        ! --------------------------------------------------------------------------------
-        implicit none
-        ! --------------------------------------------------------------------------------
-    
         character(len=*), intent(in) :: filename_out
         type(sfxDatasetType), intent(in) :: dataset
         integer, intent(in) :: model
@@ -82,7 +78,7 @@ contains
         write(*, '(a,g0)') '    z0(h)            = ', dataset%z0_h
     
     
-        !< @brief define number of cells
+        ! --- define number of elements
         open(newunit = io, file = dataset%filename, iostat = status, status ='old')
         if (status /= 0) then
             write(*, *) ' FAILURE! > unable to open file: ', trim(dataset%filename)
@@ -107,16 +103,16 @@ contains
         end if
     
     
-        !< @brief allocate input & output data
+        ! --- allocate input & output data
         call allocate_meteo_vec(meteo, num)
         call allocate_sfx_vec(sfx, num)
     
     
-        !< @brief setting height & roughness
+        ! --- setting height & roughness
         meteo_cell%h = dataset%h
         meteo_cell%z0_m = dataset%z0_m
     
-        !< @brief read input data
+        ! --- read input data
         open(newunit = io, file = dataset%filename, iostat = status, status = 'old')
         if (status /= 0) then
             write(*, *) ' FAILURE! > unable to open file: ', trim(dataset%filename)
@@ -135,7 +131,7 @@ contains
         close(io)
     
     
-        !< @brief calling flux module
+        ! --- calling flux module
         if (model == model_esm) then
             call get_surface_fluxes_vec_esm(sfx, meteo, numerics_esm, num)
         else if (model == model_log) then
@@ -147,7 +143,7 @@ contains
         end if
     
     
-        !< @brief write output data
+        ! --- write output data
         call write_ascii_vec11(filename_out, &
             sfx%zeta, sfx%Rib, &
             sfx%Re, sfx%B, sfx%z0_m, sfx%z0_t, &
@@ -155,32 +151,27 @@ contains
             sfx%Cm,sfx%Ct, sfx%Km, sfx%Pr_t_inv, num, '(11(f10.4,3x))', status)
     
     
-        !< @brief deallocate input & output data
+        ! --- deallocate input & output data
         call deallocate_meteo_vec(meteo)
         call deallocate_sfx_vec(sfx)
     
     end subroutine
     
-    !> @brief main setup sfx & dataset subroutine
+    !> @brief set sfx run on dataset
     ! ----------------------------------------------------------------------------
     subroutine set_run(filename_out, dataset, model)
     
         ! modules used
         ! --------------------------------------------------------------------------------
 #ifdef USE_CONFIG_PARSER
-        use config_parser
         use iso_c_binding, only: C_NULL_CHAR
+        use config_parser
 #endif
     
         use sfx_common
         use sfx_config
         ! --------------------------------------------------------------------------------
     
-        ! directives list
-        ! --------------------------------------------------------------------------------
-        implicit none
-        ! --------------------------------------------------------------------------------
-    
         character(len=:), allocatable, intent(out) :: filename_out
         type(sfxDatasetType), intent(out) :: dataset
         integer, intent(out) :: model
@@ -202,8 +193,7 @@ contains
     
         ! local variables
         ! --------------------------------------------------------------------------------
-        integer :: i
-        integer :: status
+        integer :: i, status
         integer :: id, nmax
     
 #ifdef USE_CONFIG_PARSER
@@ -212,12 +202,12 @@ contains
         ! --------------------------------------------------------------------------------
 
 
-        !< define default model & dataset
-        model = model_esm                           !< default = ESM
-        call set_dataset(dataset, dataset_mosaic)   !< default = MOSAiC
-        is_output_set = 0                           !< default = auto define output filename
+        ! --- default model & dataset
+        model = model_esm                           ! default = ESM
+        call set_dataset(dataset, dataset_mosaic)   ! default = MOSAiC
+        is_output_set = 0                           ! default = auto define output filename
     
-        !< command line arguments processing
+        ! --- command line arguments processing
         num_args = command_argument_count()
         do i = 1, num_args
             call get_command_argument(i, arg)