rich_vars.f90

Go to the documentation of this file.

!------------------------------------------------------------------------------!
!------------------------------------------------------------------------------!
module rich_vars
#include <PB3D_macros.h>
    use str_utilities
    use output_ops
    use messages
    use num_vars, only: dp, pi, max_str_ln, max_it_rich, tol_rich
 
    implicit none
    private
    public rich_info, &
        &rich_lvl, no_guess, use_guess, n_par_x, min_n_par_x, rich_conv, &
        &sol_val_rich, x_axis_rich, max_rel_err, loc_max_rel_err, &
        &req_min_n_par_x
    
    ! global variables
    integer :: rich_lvl
    integer :: n_par_x
    integer, parameter :: req_min_n_par_x = 20
    integer :: min_n_par_x
    logical :: use_guess
    logical :: no_guess
    logical :: rich_conv
    complex(dp), allocatable :: sol_val_rich(:,:,:)
    real(dp), allocatable :: x_axis_rich(:,:)
    real(dp), allocatable :: max_rel_err(:)
    integer, allocatable :: loc_max_rel_err(:,:)
    
contains
    elemental character(len=max_str_ln) function rich_info()
        if (max_it_rich.gt.1) then
            rich_info = ' for Richardson level '//trim(i2str(rich_lvl))
        else
            rich_info = ''
        end if
    end function rich_info
end module rich_vars