snow_allocate_subcatch Subroutine

  1. snow.f95
  2. snow
  3. snow_allocate_subcatch

public subroutine snow_allocate_subcatch(n_subcatch)

Arguments

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

Called by

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

snow_allocate_subcatch

Source Code

  subroutine snow_allocate_subcatch(n_subcatch)
    integer, intent(in) :: n_subcatch
    allocate(bsn_tsnfall(n_subcatch))
    bsn_tsnfall = 0.
    allocate(bsn_tmelt(n_subcatch))
    bsn_tmelt = 0.
    allocate(bsn_smrate(n_subcatch))
    bsn_smrate = 0.
    allocate(bsn_gmrate(n_subcatch))
    bsn_gmrate = 0.
  end subroutine snow_allocate_subcatch