catchment_assign_subcatch Subroutine

  1. catchment.f95
  2. catchment
  3. catchment_assign_subcatch

public subroutine catchment_assign_subcatch(mb)

Uses

  • proc~~catchment_assign_subcatch~~UsesGraph proc~catchment_assign_subcatch catchment_assign_subcatch module~river river proc~catchment_assign_subcatch->module~river module~soil soil proc~catchment_assign_subcatch->module~soil module~evapotranspiration evapotranspiration proc~catchment_assign_subcatch->module~evapotranspiration module~groundwater groundwater proc~catchment_assign_subcatch->module~groundwater module~snow snow proc~catchment_assign_subcatch->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

Author : stefan.liersch@pik-potsdam.de Date : 2010-02-25 modified: 2010-02-26

PURPOSE : Assigning individual subbasin parameters read from subcatch.prm

CALLED : from subroutine read_subcatch_def

Arguments

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

Called by

proc~~catchment_assign_subcatch~~CalledByGraph proc~catchment_assign_subcatch catchment_assign_subcatch proc~catchment_initialise_parameters catchment_initialise_parameters proc~catchment_initialise_parameters->proc~catchment_assign_subcatch proc~initialise initialise proc~initialise->proc~catchment_initialise_parameters program~swim swim program~swim->proc~initialise

Contents

Source Code

catchment_assign_subcatch

Source Code

  subroutine catchment_assign_subcatch(mb)
    !-------------------------------------------------------------------------------
    ! Author : stefan.liersch@pik-potsdam.de
    ! Date : 2010-02-25
    ! modified: 2010-02-26
    !
    ! PURPOSE : Assigning individual subbasin parameters read from subcatch.prm
    !
    ! CALLED : from subroutine read_subcatch_def
    !-------------------------------------------------------------------------------
    use groundwater, only : &
      gw_abf, &
      gw_bff, &
      gw_delay, &
      gw_rchrgc, &
      gw_revapc, &
      gw_revapmn, &
      abf, &
      bff, &
      delay, &
      gwht, &
      gwq, &
      syld, &
      rchrgc, &
      revapc, &
      revapmn
    use soil, only: bsn_cncor, bsn_sccor, cncor, sccor
    use river, only: bsn_roc2, bsn_roc4, roc2, roc4
    use snow, only: &
      bsn_gmrate, &
      bsn_smrate, &
      bsn_tmelt, &
      bsn_tsnfall, &
      smrate, &
      gmrate, &
      tmelt, &
      tsnfall
    use evapotranspiration, only: bsn_thc, bsn_ecal, thc, ecal

    integer, intent(in) :: mb
    integer :: i, si

    do i = 1, mb
      si = subcatch_id(i)
      if (si /= 0) then
        ! groundwater parameters
        bff(i) = gw_bff(subcatch_id(i))
        gwht(i) = .5 ! gw_gwht(subcatch_id(i))
        gwq(i) = .5 ! gw_gwq(subcatch_id(i))
        abf(i) = gw_abf(subcatch_id(i))
        syld(i) = .003 ! gw_syld(subcatch_id(i))
        delay(i) = gw_delay(subcatch_id(i))
        revapc(i) = gw_revapc(subcatch_id(i))
        rchrgc(i) = gw_rchrgc(subcatch_id(i))
        revapmn(i) = gw_revapmn(subcatch_id(i))

        ! bsn parameters
        ecal(i) = bsn_ecal(subcatch_id(i))
        thc(i) = bsn_thc(subcatch_id(i))
        sccor(i) = bsn_sccor(subcatch_id(i))
        roc2(i) = bsn_roc2(subcatch_id(i))
        roc4(i) = bsn_roc4(subcatch_id(i))
        cncor(i) = bsn_cncor(subcatch_id(i))
        tsnfall(i) = bsn_tsnfall(subcatch_id(i))
        tmelt(i) = bsn_tmelt(subcatch_id(i))
        smrate(i) = bsn_smrate(subcatch_id(i))
        gmrate(i) = bsn_gmrate(subcatch_id(i))
      end if
    end do

  end subroutine catchment_assign_subcatch