arrays_section_module.f90

module arrays_section_module

    implicit none
    save

    real, allocatable :: elevTable(:),areaTable(:)
    real, allocatable :: pereTable(:),rediTable(:)
    real, allocatable :: convTable(:),topwTable(:)
    real, allocatable :: nwi1Table(:),dPdATable(:)
    real, allocatable :: ncompElevTable(:), ncompAreaTable(:), skkkTable(:)
! only in version 2 20191511
    real, allocatable :: I2Tablep(:),I2Tablec(:)
    real, allocatable :: upstreamI2Tablec(:), downstreamI2Tablep(:)
    real, allocatable :: currentSquareDepth(:), currentCubicDepth(:), downstreamSquareDepth(:), upstreamSquareDepth(:)

    integer :: maxTableLength, nel

    character*4 :: file_num
contains

    subroutine setup_arrays_section

        implicit none

        allocate(elevTable(nel))
        allocate(areaTable(nel))
        allocate(pereTable(nel))
        allocate(rediTable(nel))
        allocate(convTable(nel))
        allocate(topwTable(nel))
        allocate(nwi1Table(nel))
        allocate(dPdATable(nel))

        allocate(skkkTable(nel))

		allocate(ncompElevTable(nel))
        allocate(ncompAreaTable(nel))
! only in version 2 20151115
        allocate(I2Tablep(nel))
        allocate(I2Tablec(nel))
        allocate(upstreamI2Tablec(nel))
        allocate(downstreamI2Tablep(nel))
        allocate(currentSquareDepth(nel))
        allocate(currentCubicDepth(nel))
        allocate(downstreamSquareDepth(nel))
        allocate(upstreamSquareDepth(nel))

    end subroutine setup_arrays_section
end module