minor fixes

Author: szaghi

fobos

@@ -15,6 +15,11 @@ $CSTATIC_INT = -cpp -c -assume realloc_lhs
 $DEBUG_GNU   = -Og -g3 -Warray-bounds -Wcharacter-truncation -Wline-truncation -Wimplicit-interface -Wimplicit-procedure -Wunderflow -Wuninitialized -fcheck=all -fmodule-private -ffree-line-length-132 -fimplicit-none -fbacktrace -fdump-core -finit-real=nan -std=f2008 -fall-intrinsics
 $DEBUG_INT   = -O0 -debug all -check all -warn all -extend-source 132 -traceback -gen-interfaces -fp-stack-check -fstack-protector-all -ftrapuv -no-ftz -std08
 $OPTIMIZE    = -O2
+$EXDIRS      = FACE/src/tests FACE/src/third_party/
+               FLAP/src/tests/ FLAP/src/third_party/
+               PENF/src/tests/ PENF/src/third_party/
+               pyplot-fortran/src/tests/
+               WenOOF/src/tests/ WenOOF/src/third_party/
 
 # main modes
 [foodie-static-opencoarrays-gnu]
@@ -177,7 +182,8 @@ cflags_heritage = True
 build_dir       = ./build/lib/
 mod_dir         = mod
 obj_dir         = obj
-src             = src/lib/
+src             = src/
+exclude_dirs    = $EXDIRS
 target          = foodie.f90
 colors          = True
 quiet           = False

src/lib/foodie_integrator_lmm_ssp_vss.f90

@@ -241,7 +241,6 @@ subroutine integrate_order_2(self, U, previous, Dt, t, autoupdate)
   real(R_P),                     intent(in)    :: t(:)          !< Times.
   logical, optional,             intent(in)    :: autoupdate    !< Perform cyclic autoupdate of previous time steps.
   logical                                      :: autoupdate_   !< Perform cyclic autoupdate of previous time steps, dummy var.
-  integer(I_P)                                 :: s             !< Steps counter.
   real(R_P)                                    :: omega_        !< Omega coefficient.
   real(R_P)                                    :: omega_sq      !< Square of omega coefficient.
 
@@ -262,7 +261,6 @@ subroutine integrate_order_3(self, U, previous, Dt, t, autoupdate)
   real(R_P),                     intent(in)    :: t(:)          !< Times.
   logical, optional,             intent(in)    :: autoupdate    !< Perform cyclic autoupdate of previous time steps.
   logical                                      :: autoupdate_   !< Perform cyclic autoupdate of previous time steps, dummy var.
-  integer(I_P)                                 :: s             !< Steps counter.
   real(R_P)                                    :: omega_        !< Omega coefficient.
 
   autoupdate_ = .true. ; if (present(autoupdate)) autoupdate_ = autoupdate

src/lib/foodie_integrator_object.f90

@@ -22,7 +22,7 @@ module foodie_integrator_object
     procedure, pass(self) :: trigger_error    !< Trigger an error.
     ! deferred methods
     procedure(class_name_interface),        pass(self), deferred :: class_name           !< Return the class name of schemes.
-    procedure(description_interface),       pass(self), deferred :: description          !< Return pretty-printed object description.
+    procedure(description_interface),       pass(self), deferred :: description          !< Return pretty-printed obj. description.
     procedure(assignment_interface),        pass(lhs),  deferred :: integr_assign_integr !< Operator `=`.
     procedure(is_supported_interface),      pass(self), deferred :: is_supported         !< Return .true. if the integrator class
                                                                                          !< support the given scheme.