allocate_memory Subroutine

  1. wall.f90
  2. wall
  3. allocate_memory

private subroutine allocate_memory(control)

Allocate memory to str and wallc variable array

Arguments

Type IntentOptional AttributesName
type(controltype), intent(in) :: control

Calls

proc~~allocate_memory~3~~CallsGraph proc~allocate_memory~3 allocate_memory interface~alloc alloc proc~allocate_memory~3->interface~alloc debugcall debugcall proc~allocate_memory~3->debugcall proc~alloc_rank2_real alloc_rank2_real interface~alloc->proc~alloc_rank2_real proc~alloc_rank4_real alloc_rank4_real interface~alloc->proc~alloc_rank4_real proc~alloc_rank3_real alloc_rank3_real interface~alloc->proc~alloc_rank3_real proc~alloc_rank2_integer alloc_rank2_integer interface~alloc->proc~alloc_rank2_integer proc~alloc_rank1_integer alloc_rank1_integer interface~alloc->proc~alloc_rank1_integer proc~alloc_rank6_real alloc_rank6_real interface~alloc->proc~alloc_rank6_real proc~alloc_rank5_real alloc_rank5_real interface~alloc->proc~alloc_rank5_real proc~alloc_rank3_integer alloc_rank3_integer interface~alloc->proc~alloc_rank3_integer proc~alloc_rank1_real alloc_rank1_real interface~alloc->proc~alloc_rank1_real

Called by

proc~~allocate_memory~3~~CalledByGraph proc~allocate_memory~3 allocate_memory proc~setup_surface setup_surface proc~setup_surface->proc~allocate_memory~3 proc~write_surfnode write_surfnode proc~write_surfnode->proc~setup_surface proc~setup_solver setup_solver proc~setup_solver->proc~write_surfnode proc~start_run start_run proc~start_run->proc~setup_solver program~main main program~main->proc~start_run

Contents

Source Code

allocate_memory

Source Code

    subroutine allocate_memory(control)
      !< Allocate memory to str and wallc variable array
        implicit none
        type(controltype), intent(in) :: control

        DebugCall('setup_surface')

        n_wall = -1

        n_wall =  ((jmx)*(kmx)*(NO_SLIP_flag(1)) &
                  +(jmx)*(kmx)*(NO_SLIP_flag(2)) &
                  +(kmx)*(imx)*(NO_SLIP_flag(3)) &
                  +(kmx)*(imx)*(NO_SLIP_flag(4)) &
                  +(imx)*(jmx)*(NO_SLIP_flag(5)) &
                  +(imx)*(jmx)*(NO_SLIP_flag(6)) &
                  )

        allocate(str(1:n_wall))
        call alloc(wallc, 1, n_wall, 1, 3 ,&
                  errmsg='Error: Unable to allocate memory for wallc')

        allocate(n_wall_buf(1:control%total_process))
        allocate(write_flag(1:control%total_process))
    end subroutine allocate_memory