read_data_init Subroutine

public subroutine read_data_init()

Uses

  • proc~~read_data_init~~UsesGraph proc~read_data_init read_data_init module~mod_global_parameters mod_global_parameters proc~read_data_init->module~mod_global_parameters 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

None

Calls

proc~~read_data_init~~CallsGraph proc~read_data_init read_data_init proc~lt3_create_from_data LT3_create_from_data proc~read_data_init->proc~lt3_create_from_data proc~read_vtk_structured_points read_vtk_structured_points proc~read_data_init->proc~read_vtk_structured_points

Called by

proc~~read_data_init~~CalledByGraph proc~read_data_init read_data_init proc~initialize_amrvac initialize_amrvac proc~initialize_amrvac->proc~read_data_init proc~main main proc~main->proc~initialize_amrvac program~agile agile program~agile->proc~main

Source Code

  subroutine read_data_init()
    use mod_global_parameters

    integer                :: ivar
    double precision       :: xmax(3)
    type(read_data_values) :: bc

    if(usr_filename/='')then
       if(mype==0)then
          print *,'Reading data from input usr_filename=',usr_filename
       endif
       call read_vtk_structured_points(trim(usr_filename), bc)
       xmax=bc%origin + (bc%n_points-1) * bc%dx
       if(mype==0)then
          print *,'Obtained data in ',bc%n_points,' grid with spacings ',bc%dx,' for number of vars=',bc%n_variables
       endif

       do ivar = 1,bc%n_variables
       
       
       
          lt_3d(ivar) = LT3_create_from_data(bc%origin(1:ndim), xmax(1:ndim),&
              bc%values(:, :, :, ivar:ivar))
      
       end do
    endif

  end subroutine read_data_init