setup_time Subroutine

  1. time.f90
  2. time
  3. setup_time

public subroutine setup_time(delta_t, control, dims)

Allocate memeroy and setup initial clock

Arguments

Type IntentOptional AttributesName
real(kind=wp), intent(out), dimension(:,:,:), allocatable:: delta_t

Local time increment value at each cell center
type(controltype), intent(in) :: control

Control parameters
type(extent), intent(in) :: dims

Extent of the domain:imx,jmx,kmx

Calls

proc~~setup_time~~CallsGraph proc~setup_time setup_time interface~alloc alloc proc~setup_time->interface~alloc debugcall debugcall proc~setup_time->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~~setup_time~~CalledByGraph proc~setup_time setup_time proc~setup_solver setup_solver proc~setup_solver->proc~setup_time proc~start_run start_run proc~start_run->proc~setup_solver program~main main program~main->proc~start_run

Contents

Source Code

setup_time

Source Code

        subroutine setup_time(delta_t, control, dims)
          !< Allocate memeroy and setup initial clock
            implicit none
            type(controltype), intent(in) :: control
            !< Control parameters
            type(extent), intent(in) :: dims
            !< Extent of the domain:imx,jmx,kmx
            real(wp), dimension(:,:,:), allocatable, intent(out) :: delta_t
            !< Local time increment value at each cell center

            DebugCall('initmisc')

            imx = dims%imx
            jmx = dims%jmx
            kmx = dims%kmx
            n_var = control%n_var
            call alloc(delta_t, 1, imx-1, 1, jmx-1, 1, kmx-1, &
                    errmsg='Error: Unable to allocate memory for delta_t.')
            CALL SYSTEM_CLOCK(COUNT_RATE=nb_ticks_sec, COUNT_MAX=nb_ticks_max)
            CALL SYSTEM_CLOCK(COUNT=nb_ticks_initial)
            CALL CPU_TIME(t1)

        end subroutine setup_time