evapotranspiration_allocate_sc Subroutine

  1. evapotranspiration.f95
  2. evapotranspiration
  3. evapotranspiration_allocate_sc

public subroutine evapotranspiration_allocate_sc(n_subcatch)

Arguments

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

Called by

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

evapotranspiration_allocate_sc

Source Code

  subroutine evapotranspiration_allocate_sc(n_subcatch)
    integer, intent(in) :: n_subcatch
    allocate(bsn_ecal(n_subcatch))
    bsn_ecal = 0.
    allocate(bsn_thc(n_subcatch))
    bsn_thc = 0.
  end subroutine evapotranspiration_allocate_sc