mf6xmi Module Reference

This module contains the eXtended Model Interface. More...

Functions/Subroutines
integer(kind=c_int) function	xmi_prepare_time_step (dt)
	Prepare a single time step. More...
integer(kind=c_int) function	xmi_do_time_step ()
	Perform a single time step. More...
integer(kind=c_int) function	xmi_finalize_time_step ()
	Finalize the time step. More...
integer(kind=c_int) function	xmi_get_subcomponent_count (count)
	This will get the number of Numerical Solutions in the simulation. More...
integer(kind=c_int) function	xmi_prepare_solve (subcomponent_idx)
	Prepare for solving the system. More...
integer(kind=c_int) function	xmi_solve (subcomponent_idx, has_converged)
	Build and solve the linear system. More...
integer(kind=c_int) function	xmi_finalize_solve (subcomponent_idx)
	Finalize the solve of the system. More...
integer(kind=c_int) function	xmi_get_version (mf_version)
	Get the version string for this component. More...
integer(kind=c_int) function	get_var_address (c_component_name, c_subcomponent_name, c_var_name, c_var_address)
	Get the full address string for a variable. More...

Variables
integer(i4b), pointer	iterationcounter => null()
	the counter for the outer iteration loop, initialized in xmi_prepare_iteration() More...

Detailed Description

In this module we expose functionality in the MODFLOW 6 shared library, that is beyond the basic model interface: https://bmi-spec.readthedocs.io/en/latest/. The main extensions are

• Controlling the kernel at a finer granularity, isolating the call to the linear solve of the system. This way, the interface can be used to set up a non-linear coupling with, for example, an external unsaturated zone model.
• Expose the concept of subcomponents, which in case of MODFLOW 6 are 'Numerical Solution' objects, each of which represents a separate linear system to solve. An example here would be a transport model (GWT) coupled to a groundwater model (GWF).

The common BMI control flow is

initialize()
 
while t < t_end:
  update()
 
finalize()

With the XMI you can now also use it as:

initialize()
 
while(t < t_end):
 
  prepare_time_step()
 
  # modify some values here
 
  do_time_step()
 
  # and maybe something here as well
 
  finalize_time_step()
 
finalize()

Or, when you want to isolate the call to the linear solve, a typical application could look like this:

initialize()
 
while t < t_end:
 
  prepare_time_step()
 
  for i_sol in solutions:
 
    prepare_solve(i_sol)
 
      while k_iter < max_iter:
 
        # exchange coupled variables
        exchange_data()
 
        # the MODFLOW linear solve:
        solve()
 
        # maybe solve some other, external model here:
        solveExternalModel()
 
        # and exchange back
        exchange_data()
 
        # check for convergence
        convergence_check()
 
    finalize_solve(i_sol)
 
  finalize_time_step()
 
finalize()

Note that the last example can only work when there is a single Solution Group defined. This will typically not be a problem, though, as applications with multiple Solution Groups should be quite rare.

Function/Subroutine Documentation

get_var_address()

integer(kind=c_int) function mf6xmi::get_var_address	(	character(kind=c_char), dimension(*), intent(in)	c_component_name,
		character(kind=c_char), dimension(*), intent(in)	c_subcomponent_name,
		character(kind=c_char), dimension(*), intent(in)	c_var_name,
		character(kind=c_char), dimension(bmi_lenvaraddress), intent(out)	c_var_address
	)

This routine constructs the full address string of a variable using the exact same logic as the internal memory manager. This routine should always be used when accessing a variable through the BMI to assure compatibility with future versions of the library.

Parameters

[in]	c_component_name	name of the component (a Model or Solution)
[in]	c_subcomponent_name	name of the subcomponent (Package), or an empty string'' when not applicable
[in]	c_var_name	name of the variable
[out]	c_var_address	full address of the variable

Returns

BMI status code

Definition at line 365 of file mf6xmi.F90.

    !DIR$ ATTRIBUTES DLLEXPORT :: get_var_address
    ! -- modules
    use memoryhelpermodule, only: create_mem_path, create_mem_address
    use constantsmodule, only: lencomponentname, lenvarname, lenmempath, &
                               lenmemaddress
    ! -- dummy variables
    character(kind=c_char), intent(in) :: c_component_name(*) !< name of the component (a Model or Solution)
    character(kind=c_char), intent(in) :: c_subcomponent_name(*) !< name of the subcomponent (Package), or an empty
                                                                            !! string'' when not applicable
    character(kind=c_char), intent(in) :: c_var_name(*) !< name of the variable
    character(kind=c_char), intent(out) :: c_var_address(BMI_LENVARADDRESS) !< full address of the variable
    integer(kind=c_int) :: bmi_status !< BMI status code
    ! -- local variables
    character(len=LENCOMPONENTNAME) :: component_name
    character(len=LENCOMPONENTNAME) :: subcomponent_name
    character(len=LENVARNAME) :: variable_name
    character(len=LENMEMPATH) :: mem_path
    character(len=LENMEMADDRESS) :: mem_address
 
    ! convert to Fortran strings
    component_name = char_array_to_string(c_component_name, &
                                          strlen(c_component_name, &
                                                 lencomponentname + 1))
    subcomponent_name = char_array_to_string(c_subcomponent_name, &
                                             strlen(c_subcomponent_name, &
                                                    lencomponentname + 1))
    variable_name = char_array_to_string(c_var_name, &
                                         strlen(c_var_name, &
                                                lenvarname + 1))
 
    ! create memory address
    if (subcomponent_name == '') then
      mem_path = create_mem_path(component_name)
    else
      mem_path = create_mem_path(component_name, subcomponent_name)
    end if
    mem_address = create_mem_address(mem_path, variable_name)
 
    ! convert to c string:
    c_var_address(1:len(trim(mem_address)) + 1) = &
      string_to_char_array(trim(mem_address), len(trim(mem_address)))
 
    bmi_status = bmi_success
 

Here is the call graph for this function:

xmi_do_time_step()

integer(kind=c_int) function mf6xmi::xmi_do_time_step

It does so by looping over all solution groups, and calling the calculate function on all solutions in there.

Returns

BMI status code

Definition at line 146 of file mf6xmi.F90.

    !DIR$ ATTRIBUTES DLLEXPORT :: xmi_do_time_step
    ! -- dummy variables
    integer(kind=c_int) :: bmi_status !< BMI status code
 
    call mf6dotimestep()
    bmi_status = bmi_success
 

Here is the call graph for this function:

xmi_finalize_solve()

integer(kind=c_int) function mf6xmi::xmi_finalize_solve

(

integer(kind=c_int), intent(in)

subcomponent_idx

)

This will determine convergence, reports, calculate flows and budgets, and more... It should always follow after a call to xmi_prepare_solve() and xmi_solve().

Parameters

[in]

subcomponent_idx

the index of the subcomponent (Numerical Solution)

Returns

bmi_status the BMI status code

Parameters

[in]

subcomponent_idx

index of the subcomponent (i.e. Numerical Solution)

Returns

BMI status code

Definition at line 299 of file mf6xmi.F90.

    !DIR$ ATTRIBUTES DLLEXPORT :: xmi_finalize_solve
    ! -- modules
    use numericalsolutionmodule
    ! -- dummy variables
    integer(kind=c_int), intent(in) :: subcomponent_idx !< index of the subcomponent (i.e. Numerical Solution)
    integer(kind=c_int) :: bmi_status !< BMI status code
    ! -- local variables
    class(NumericalSolutionType), pointer :: ns
    integer(I4B) :: hasConverged
 
    ! get the numerical solution we are running
    ns => getsolution(subcomponent_idx)
 
    ! hasConverged is equivalent to the isgcnvg variable which is initialized to 1,
    ! see the body of the picard loop in SolutionGroupType%sgp_ca
    hasconverged = 1
 
    ! finish up
    call ns%finalizeSolve(iterationcounter, hasconverged, 0)
 
    ! check convergence on solution
    if (.not. hasconverged == 1) then
      write (bmi_last_error, fmt_fail_cvg_sol) subcomponent_idx
      call report_bmi_error(bmi_last_error)
    end if
 
    ! non-convergence is no reason to crash the API:
    bmi_status = bmi_success
 
    ! clear this for safety
    deallocate (iterationcounter)
 

Here is the call graph for this function:

xmi_finalize_time_step()

integer(kind=c_int) function mf6xmi::xmi_finalize_time_step

This will mostly write output and messages. It is essential to call this to finish the time step.

Returns

BMI status code

Definition at line 161 of file mf6xmi.F90.

    !DIR$ ATTRIBUTES DLLEXPORT :: xmi_finalize_time_step
    ! -- dummy variables
    integer(kind=c_int) :: bmi_status !< BMI status code
    ! -- local variables
    logical :: hasConverged
 
    hasconverged = mf6finalizetimestep()
    if (hasconverged) then
      bmi_status = bmi_success
    else
      write (bmi_last_error, fmt_general_err) 'simulation failed to converge'
      call report_bmi_error(bmi_last_error)
      bmi_status = bmi_failure
    end if
 

Here is the call graph for this function:

xmi_get_subcomponent_count()

integer(kind=c_int) function mf6xmi::xmi_get_subcomponent_count

(

integer(kind=c_int), intent(out)

count

)

For most applications, this number will be equal to 1. Note that this part of the XMI only works when the simulation is defined with a single Solution Group. (If you don't know what a Solution Group is, then you are most likely not using more than one...)

Parameters

[out]

count

number of solutions

Returns

BMI status code

Definition at line 187 of file mf6xmi.F90.

    !DIR$ ATTRIBUTES DLLEXPORT :: xmi_get_subcomponent_count
    ! -- modules
    use listsmodule, only: solutiongrouplist
    use simvariablesmodule, only: istdout
    ! -- dummy variables
    integer(kind=c_int), intent(out) :: count !< number of solutions
    integer(kind=c_int) :: bmi_status !< BMI status code
    ! -- local variables
    class(SolutionGroupType), pointer :: sgp
 
    ! the following is true for all calls at this level (subcomponent)
    if (solutiongrouplist%Count() /= 1) then
      write (istdout, *) &
        'Error: BMI does not support the use of multiple solution groups'
      count = -1
      bmi_status = bmi_failure
      return
    end if
 
    sgp => getsolutiongroupfromlist(solutiongrouplist, 1)
    count = sgp%nsolutions
    bmi_status = bmi_success
 

xmi_get_version()

integer(kind=c_int) function mf6xmi::xmi_get_version

(

character(kind=c_char), dimension(bmi_lenversion), intent(out)

mf_version

)

Returns

BMI status code

Definition at line 337 of file mf6xmi.F90.

    !DIR$ ATTRIBUTES DLLEXPORT :: xmi_get_version
    ! -- modules
    use versionmodule, only: versionnumber, idevelopmode
    ! -- dummy variables
    character(kind=c_char), intent(out) :: mf_version(BMI_LENVERSION)
    integer(kind=c_int) :: bmi_status !< BMI status code
    ! -- local variables
    character(len=BMI_LENVERSION) :: vstr
 
    if (idevelopmode == 1) then
      vstr = versionnumber//'-dev'
    else
      vstr = versionnumber
    end if
    mf_version = string_to_char_array(vstr, len_trim(vstr))
    bmi_status = bmi_success
 

Here is the call graph for this function:

xmi_prepare_solve()

integer(kind=c_int) function mf6xmi::xmi_prepare_solve

(

integer(kind=c_int)

subcomponent_idx

)

This preparation mostly consists of advancing the solutions, models, and exchanges in the simulation. The index subcomponent_idx runs from 1 to the value returned by xmi_get_subcomponent_count().

Parameters

subcomponent_idx

index of the subcomponent (i.e. Numerical Solution)

Returns

BMI status code

Definition at line 220 of file mf6xmi.F90.

    !DIR$ ATTRIBUTES DLLEXPORT :: xmi_prepare_solve
    ! -- modules
    use listsmodule, only: solutiongrouplist
    use numericalsolutionmodule
    use simvariablesmodule, only: istdout
    ! -- dummy variables
    integer(kind=c_int) :: subcomponent_idx !< index of the subcomponent (i.e. Numerical Solution)
    integer(kind=c_int) :: bmi_status !< BMI status code
    ! -- local variables
    class(NumericalSolutionType), pointer :: ns
 
    ! people might not call 'xmi_get_subcomponent_count' first, so let's repeat this:
    if (solutiongrouplist%Count() /= 1) then
      write (istdout, *) &
        'Error: BMI does not support the use of multiple solution groups'
      bmi_status = bmi_failure
      return
    end if
 
    ! get the numerical solution we are running
    ns => getsolution(subcomponent_idx)
 
    ! *_ad (model, exg, sln)
    call ns%prepareSolve()
 
    ! reset counter
    allocate (iterationcounter)
    iterationcounter = 0
 
    bmi_status = bmi_success
 

Here is the call graph for this function:

xmi_prepare_time_step()

integer(kind=c_int) function mf6xmi::xmi_prepare_time_step

(

real(kind=c_double), intent(in)

dt

)

The routine takes the time step dt as an argument. However, MODFLOW (currently) does not allow to alter this value after initialization, so it is ignored here.

Parameters

[in]

dt

time step

Returns

BMI status code

Definition at line 129 of file mf6xmi.F90.

    !DIR$ ATTRIBUTES DLLEXPORT :: xmi_prepare_time_step
    ! -- dummy variables
    real(kind=c_double), intent(in) :: dt !< time step
    integer(kind=c_int) :: bmi_status !< BMI status code
 
    call mf6preparetimestep()
    bmi_status = bmi_success
 

Here is the call graph for this function:

xmi_solve()

integer(kind=c_int) function mf6xmi::xmi_solve	(	integer(kind=c_int), intent(in)	subcomponent_idx,
		integer(kind=c_int), intent(out)	has_converged
	)

The solve is called on the Numerical Solution indicated by the value of subcomponent_idx, which runs from 1 to the value returned by xmi_get_subcomponent_count(). Before calling this, a matching call to xmi_prepare_solve() should be done.

Parameters

[in]	subcomponent_idx	index of the subcomponent (i.e. Numerical Solution)
[out]	has_converged	equal to 1 for convergence, 0 otherwise

Returns

BMI status code

Definition at line 261 of file mf6xmi.F90.

    !DIR$ ATTRIBUTES DLLEXPORT :: xmi_solve
    ! -- modules
    use numericalsolutionmodule
    ! -- dummy variables
    integer(kind=c_int), intent(in) :: subcomponent_idx !< index of the subcomponent (i.e. Numerical Solution)
    integer(kind=c_int), intent(out) :: has_converged !< equal to 1 for convergence, 0 otherwise
    integer(kind=c_int) :: bmi_status !< BMI status code
    ! -- local variables
    class(NumericalSolutionType), pointer :: ns
 
    ! get the numerical solution we are running
    ns => getsolution(subcomponent_idx)
 
    ! execute the nth iteration
    iterationcounter = iterationcounter + 1
    call ns%solve(iterationcounter)
 
    ! the following check is equivalent to that in NumericalSolution%sln_ca
    if (ns%icnvg == 1) then
      has_converged = 1
    else
      has_converged = 0
    end if
 
    bmi_status = bmi_success
 

Here is the call graph for this function:

Variable Documentation

iterationcounter

integer(i4b), pointer mf6xmi::iterationcounter => null()

Definition at line 96 of file mf6xmi.F90.

  integer(I4B), pointer :: iterationCounter => null() !< the counter for the outer iteration loop, initialized in xmi_prepare_iteration()