mo_mrm_constants.F90

Go to the documentation of this file.

!> \file mo_mrm_constants.f90
!> \brief \copybrief mo_mrm_constants
!> \details \copydetails mo_mrm_constants
 
!> \brief Provides mRM specific constants
!> \details Provides mRM specific constants such as flood plain elevation.
!> \changelog
!! - Robert Schweppe Jun 2018
!!   - refactoring and reformatting
!> \authors Stephan Thober
!> \date Aug 2015
!> \copyright Copyright 2005-\today, the mHM Developers, Luis Samaniego, Sabine Attinger: All rights reserved.
!! mHM is released under the LGPLv3+ license \license_note
!> \ingroup f_mrm
module mo_mrm_constants
  use mo_kind, only : i4, dp
  implicit none
  ! maximum number of outputs (fluxes states) for mrM
  integer(i4), public, parameter :: noutflxstate = 2_i4     ! max. number of outputs to write into a netcdf file
  ! computational
  integer(i4), public, parameter :: nroutingstates = 2 ! Dimension of the auxiliary vectors
  !                                                    ! which store current and past states of
  !                                                    ! incoming and outgoing of discharge at
  !                                                    ! a given node
  !                                                    ! (1 - past)
  !                                                    ! (2 - current)
#ifdef CYGWIN
  integer(i4), public, parameter :: maxnogauges = 50_i4 ! maximal number of gauges allowed
#else
  integer(i4), public, parameter :: maxnogauges = 200_i4 ! maximal number of gauges allowed
#endif
  ! parameters for routing
  real(dp), public, parameter :: rout_space_weight = 0._dp ! space weighting of routing is set to 0._dp
  !                                                        ! This parameter has no effect on the routing
  !                                                        ! results, see Thober et al. 2017
  !
  ! hydrological modelling
  real(dp), public, parameter :: deltah = 5.000_dp  ! [m]     flood plain elevation, transept, above riverbed
  !
  ! timesteps in [s] that can be selected by adaptive time step
  ! these are multiples of 1 hour and 24 hours
  real(dp), dimension(19), parameter :: given_ts = &
          (/ 60._dp, 120._dp, 180._dp, 240._dp, 300._dp, 360._dp, &
                  600._dp, 720._dp, 900._dp, 1200._dp, 1800._dp, 3600._dp, &
                  7200._dp, 10800._dp, 14400._dp, 21600._dp, 28800._dp, 43200._dp, &
                  86400._dp/)
 
end module mo_mrm_constants