DevFeature.f90

Go to the documentation of this file.

!> @brief Disable development features in release mode
module devfeaturemodule
  use kindmodule, only: i4b
  use versionmodule, only: idevelopmode
  use simmodule, only: store_error, store_error_unit
  implicit none
  private
  public :: dev_feature
 
contains
 
  !> @brief Terminate if in release mode (guard development features)
  !!
  !! Terminate the program with an error if the IDEVELOPMODE flag
  !! is set to 0. This allows developing features on the mainline
  !! while disabling them in release builds. An optional file unit
  !! may be specified to associate the feature with an input file.
  !!
  !<
  subroutine dev_feature(errmsg, iunit)
    ! -- dummy
    character(len=*), intent(in) :: errmsg
    integer(I4B), intent(in), optional :: iunit
 
    ! -- store error and terminate if in release mode
    if (idevelopmode == 0) then
      if (present(iunit)) then
        call store_error(errmsg, terminate=.false.)
        call store_error_unit(iunit, terminate=.true.)
      else
        call store_error(errmsg, terminate=.true.)
      end if
    end if
 
  end subroutine dev_feature
 
end module devfeaturemodule