featureflagsmodule Module Reference

Disable development features in release mode.

Functions/Subroutines
pure logical function, public	is_release_mode ()
	True if development features should be disabled. More...
subroutine, public	developmode (errmsg, iunit)
	Terminate if in release mode (guard development features) More...

Function/Subroutine Documentation

developmode()

subroutine, public featureflagsmodule::developmode	(	character(len=*), intent(in)	errmsg,
		integer(i4b), intent(in), optional	iunit
	)

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.

Definition at line 25 of file FeatureFlags.f90.

    ! -- dummy
    character(len=*), intent(in) :: errmsg
    integer(I4B), intent(in), optional :: iunit
 
    ! -- store error and terminate if in release mode
    if (is_release_mode()) 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
 

Here is the call graph for this function:

Here is the caller graph for this function:

is_release_mode()

pure logical function, public featureflagsmodule::is_release_mode

Definition at line 13 of file FeatureFlags.f90.

    is_release_mode = (idevelopmode == 0)

Here is the caller graph for this function: