groundwater_allocate_subcatch Subroutine

  1. groundwater.f95
  2. groundwater
  3. groundwater_allocate_subcatch

public subroutine groundwater_allocate_subcatch(n_subcatch)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: n_subcatch

Called by

proc~~groundwater_allocate_subcatch~~CalledByGraph proc~groundwater_allocate_subcatch groundwater_allocate_subcatch proc~catchment_initialise_subcatchm catchment_initialise_subcatchm proc~catchment_initialise_subcatchm->proc~groundwater_allocate_subcatch proc~catchment_initialise_parameters catchment_initialise_parameters proc~catchment_initialise_parameters->proc~catchment_initialise_subcatchm proc~initialise initialise proc~initialise->proc~catchment_initialise_parameters program~swim swim program~swim->proc~initialise

Contents

Source Code

groundwater_allocate_subcatch

Source Code

  subroutine groundwater_allocate_subcatch(n_subcatch)
    integer, intent(in) :: n_subcatch

    allocate(gw_gwht(n_subcatch))
    gw_gwht = 0.
    allocate(gw_gwq(n_subcatch))
    gw_gwq = 0.
    allocate(gw_abf(n_subcatch))
    gw_abf = 0.
    allocate(gw_syld(n_subcatch))
    gw_syld = 0.
    allocate(gw_delay(n_subcatch))
    gw_delay = 0.
    allocate(gw_revapc(n_subcatch))
    gw_revapc = 0.
    allocate(gw_rchrgc(n_subcatch))
    gw_rchrgc = 0.
    allocate(gw_revapmn(n_subcatch))
    gw_revapmn = 0.
    allocate(gw_bff(n_subcatch))
    gw_bff = 0.
  end subroutine groundwater_allocate_subcatch