devfeaturemodule Module Reference

Disable development features in release mode.

Functions/Subroutines
subroutine, public	dev_feature (errmsg, iunit)
	Terminate if in release mode (guard development features) More...

Function/Subroutine Documentation

dev_feature()

subroutine, public devfeaturemodule::dev_feature	(	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 20 of file DevFeature.f90.

    ! -- 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
 

Here is the call graph for this function:

Here is the caller graph for this function: