catchment_initialise_subcatchm Subroutine

  1. catchment.f95
  2. catchment
  3. catchment_initialise_subcatchm

public subroutine catchment_initialise_subcatchm(n, nbyr)

Uses

  • proc~~catchment_initialise_subcatchm~~UsesGraph proc~catchment_initialise_subcatchm catchment_initialise_subcatchm module~river river proc~catchment_initialise_subcatchm->module~river module~soil soil proc~catchment_initialise_subcatchm->module~soil module~evapotranspiration evapotranspiration proc~catchment_initialise_subcatchm->module~evapotranspiration module~groundwater groundwater proc~catchment_initialise_subcatchm->module~groundwater module~snow snow proc~catchment_initialise_subcatchm->module~snow module~utilities utilities module~river->module~utilities module~soil->module~utilities module~evapotranspiration->module~utilities module~groundwater->module~utilities module~snow->module~utilities

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: n
integer, intent(in) :: nbyr

Calls

proc~~catchment_initialise_subcatchm~~CallsGraph proc~catchment_initialise_subcatchm catchment_initialise_subcatchm proc~river_allocate_subcatch river_allocate_subcatch proc~catchment_initialise_subcatchm->proc~river_allocate_subcatch proc~groundwater_allocate_subcatch groundwater_allocate_subcatch proc~catchment_initialise_subcatchm->proc~groundwater_allocate_subcatch proc~evapotranspiration_allocate_sc evapotranspiration_allocate_sc proc~catchment_initialise_subcatchm->proc~evapotranspiration_allocate_sc proc~soil_allocate_subcatch soil_allocate_subcatch proc~catchment_initialise_subcatchm->proc~soil_allocate_subcatch proc~snow_allocate_subcatch snow_allocate_subcatch proc~catchment_initialise_subcatchm->proc~snow_allocate_subcatch

Called by

proc~~catchment_initialise_subcatchm~~CalledByGraph proc~catchment_initialise_subcatchm catchment_initialise_subcatchm 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

catchment_initialise_subcatchm

Source Code

  subroutine catchment_initialise_subcatchm(n, nbyr)
    use groundwater, only: groundwater_allocate_subcatch
    use evapotranspiration, only: evapotranspiration_allocate_sc
    use river, only: river_allocate_subcatch
    use soil, only: soil_allocate_subcatch
    use snow, only: snow_allocate_subcatch

    integer, intent(in) :: nbyr
    integer, intent(in) :: n

    allocate(subcatch_an(nbyr, n + 1, 30))
    subcatch_an = 0.
    allocate(subcatch_area(n))
    subcatch_area = 0.
    allocate(subcatch_name(n))
    subcatch_name = ''

    call groundwater_allocate_subcatch(n)
    call evapotranspiration_allocate_sc(n)
    call snow_allocate_subcatch(n)
    call river_allocate_subcatch(n)
    call soil_allocate_subcatch(n)

  end subroutine catchment_initialise_subcatchm