initibmnorm Subroutine

public subroutine initibmnorm(fname, solid_info)

Uses

  • proc~~initibmnorm~~UsesGraph proc~initibmnorm initibmnorm decomp_2d decomp_2d proc~initibmnorm->decomp_2d module~readinput readinput proc~initibmnorm->module~readinput module~readinput->decomp_2d module~modglobal modglobal module~readinput->module~modglobal module~modmpi modmpi module~readinput->module~modmpi mpi mpi module~readinput->mpi module~modmpi->mpi

Arguments

Type IntentOptional Attributes Name
character(len=11), intent(in) :: fname
type(solid_info_type), intent(inout) :: solid_info

Calls

proc~~initibmnorm~~CallsGraph proc~initibmnorm initibmnorm proc~read_sparse_ijk read_sparse_ijk proc~initibmnorm->proc~read_sparse_ijk mpi_bcast mpi_bcast proc~read_sparse_ijk->mpi_bcast zend zend proc~read_sparse_ijk->zend zstart zstart proc~read_sparse_ijk->zstart

Called by

proc~~initibmnorm~~CalledByGraph proc~initibmnorm initibmnorm proc~initibm initibm proc~initibm->proc~initibmnorm proc~tests_mpi_operators tests_mpi_operators proc~tests_mpi_operators->proc~initibm proc~tests_read_sparse_ijk tests_read_sparse_ijk proc~tests_read_sparse_ijk->proc~initibm program~udales uDALES program~udales->proc~initibm proc~execute_runmode_actions execute_runmode_actions program~udales->proc~execute_runmode_actions proc~execute_runmode_actions->proc~tests_mpi_operators proc~execute_runmode_actions->proc~tests_read_sparse_ijk

Source Code

   subroutine initibmnorm(fname, solid_info)
     use readinput, only : read_sparse_ijk
     use decomp_2d, only : zstart, zend

     character(11), intent(in) :: fname

     type(solid_info_type), intent(inout) :: solid_info

     integer, allocatable :: ids_loc(:), pts_loc(:,:)
     integer :: m

     ! Use generic read_sparse_ijk to read and distribute solid points
     call read_sparse_ijk(fname, solid_info%nsolpts, solid_info%nsolptsrank, ids_loc, pts_loc)
     
     ! Transfer ownership of arrays (no copying, no conversion needed)
     call move_alloc(ids_loc, solid_info%solptsrank)
     call move_alloc(pts_loc, solid_info%solpts_loc)

     !write(*,*) "rank ", myid, " has ", solid_info%nsolptsrank, " solid points from ", fname

   end subroutine initibmnorm