File canopy_read_txt.F90

File List > src > canopy_read_txt.F90

Go to the documentation of this file

SUBROUTINE canopy_read_txt(INFILE,INFILE2)

    USE canopy_canopts_mod !> main canopy options
    USE canopy_txt_io_mod  !> main io text reader/writer

    IMPLICIT NONE

    CHARACTER(LEN=*), INTENT( IN )  :: INFILE
    CHARACTER(LEN=*), INTENT( IN )  :: INFILE2

    if (var3d_opt .ne. 1) then ! reading only variable text file
        call read_txt(infile)
    else                       ! reading variable text file and canopy profile
        call read_txt(infile)
        call read_can_txt(infile2)
    end if


END SUBROUTINE canopy_read_txt