add_convert_method2 Subroutine

public subroutine add_convert_method2(phys_convert_vars, nwc, aux_variable_names, file_suffix)

Uses

  • proc~~add_convert_method2~~UsesGraph proc~add_convert_method2 add_convert_method2 module~mod_global_parameters mod_global_parameters proc~add_convert_method2->module~mod_global_parameters module~mod_input_output_helper mod_input_output_helper proc~add_convert_method2->module~mod_input_output_helper module~mod_basic_types mod_basic_types module~mod_global_parameters->module~mod_basic_types module~mod_connectivity mod_connectivity module~mod_global_parameters->module~mod_connectivity module~mod_constants mod_constants module~mod_global_parameters->module~mod_constants module~mod_physicaldata mod_physicaldata module~mod_global_parameters->module~mod_physicaldata module~mod_variables mod_variables module~mod_global_parameters->module~mod_variables mpi mpi module~mod_global_parameters->mpi module~mod_variables->module~mod_basic_types

Arguments

Type IntentOptional Attributes Name
public function phys_convert_vars(ixImin1, ixImin2, ixImin3, ixImax1, ixImax2, ixImax3, ixOmin1, ixOmin2, ixOmin3, ixOmax1, ixOmax2, ixOmax3, w, x, nwc) result(wnew)
Arguments
Type IntentOptional Attributes Name
integer, intent(in) :: ixImin1
integer, intent(in) :: ixImin2
integer, intent(in) :: ixImin3
integer, intent(in) :: ixImax1
integer, intent(in) :: ixImax2
integer, intent(in) :: ixImax3
integer, intent(in) :: ixOmin1
integer, intent(in) :: ixOmin2
integer, intent(in) :: ixOmin3
integer, intent(in) :: ixOmax1
integer, intent(in) :: ixOmax2
integer, intent(in) :: ixOmax3
double precision, intent(in) :: w(ixImin1:ixImax1,ixImin2:ixImax2,ixImin3:ixImax3,1:nw)
double precision, intent(in) :: x(ixImin1:ixImax1,ixImin2:ixImax2,ixImin3:ixImax3,1:ndim)
integer, intent(in) :: nwc
Return Value double precision, (ixOmin1:ixOmax1,ixOmin2:ixOmax2,ixOmin3:ixOmax3,1:nwc)
integer, intent(in) :: nwc
character(len=*), intent(in) :: aux_variable_names
character(len=*), intent(in) :: file_suffix

Calls

proc~~add_convert_method2~~CallsGraph proc~add_convert_method2 add_convert_method2 proc~add_convert_method add_convert_method proc~add_convert_method2->proc~add_convert_method proc~get_names_from_string get_names_from_string proc~add_convert_method2->proc~get_names_from_string proc~mpistop mpistop proc~add_convert_method->proc~mpistop mpi_abort mpi_abort proc~mpistop->mpi_abort

Source Code

  subroutine add_convert_method2(phys_convert_vars, nwc, aux_variable_names,&
      file_suffix)
    use mod_global_parameters
    use mod_input_output_helper, only: get_names_from_string
    integer, intent(in) :: nwc
    character(len=*),intent(in):: aux_variable_names
    character(len=*), intent(in) :: file_suffix

    interface
     function phys_convert_vars(ixImin1,ixImin2,ixImin3,ixImax1,ixImax2,&
        ixImax3, ixOmin1,ixOmin2,ixOmin3,ixOmax1,ixOmax2,ixOmax3, w, x,&
         nwc) result(wnew)
       use mod_global_parameters
       integer, intent(in)             :: ixImin1,ixImin2,ixImin3,ixImax1,&
          ixImax2,ixImax3, ixOmin1,ixOmin2,ixOmin3,ixOmax1,ixOmax2,ixOmax3,&
           nwc
       double precision, intent(in)    :: w(ixImin1:ixImax1,ixImin2:ixImax2,&
          ixImin3:ixImax3, 1:nw)
       double precision, intent(in)    :: x(ixImin1:ixImax1,ixImin2:ixImax2,&
          ixImin3:ixImax3,1:ndim)
       double precision    :: wnew(ixOmin1:ixOmax1,ixOmin2:ixOmax2,&
          ixOmin3:ixOmax3, 1:nwc)
     end function phys_convert_vars
    end interface

    call add_convert_method(phys_convert_vars, nwc,&
        get_names_from_string(aux_variable_names,nwc), file_suffix)

  end subroutine add_convert_method2