ru_module.f90 Source File

      module ru_module
    
      implicit none 

      integer :: iru = 0                           !none            |counter
      integer :: mru_db = 0                        !                |
      real, dimension (:), allocatable :: ru_tc    !                |    
      real, dimension (:), allocatable :: ru_n     !                |
      integer, dimension (:), allocatable :: itsb  !none            |end of loop
   
      type ru_databases_char
        character(len=16) :: elem_def = ""
        character(len=16) :: elem_dr = ""
        character(len=16) :: toposub_db = ""
        character(len=16) :: field_db = ""
      end type ru_databases_char
      
      type ru_databases
        integer :: elem_def = 1
        integer :: elem_dr = 1
        integer :: toposub_db = 1
        integer :: field_db = 1
      end type ru_databases
          
      type field
        character(len=13) :: name = "default"
        real :: length = 500. !!               |m             |field length for wind erosion
        real :: wid = 100.    !!               |m             |field width for wind erosion
        real :: ang = 30.     !!               |deg           |field angle for wind erosion
      end type field
      
      type ru_parameters
        character(len=16) :: name = ""
        real :: da_km2 = 0.                         !! km2      |drainage area
        type (ru_databases_char) :: dbsc
        type (ru_databases) :: dbs
        type (field) :: field
      end type ru_parameters
      type (ru_parameters), dimension(:), allocatable :: ru

      end module ru_module