SetFlowDirectionConvention Subroutine

public subroutine SetFlowDirectionConvention(string)

Set flow direction convention:

  • ESRI: NW=32, N=64, NE=128, W=16, E=1, SW=8, S=4, SE=2
  • GRASS: NW=3, N=2, NE=1, W=4, E=8, SW=5, S=6, SE=7

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: string

Source Code

SUBROUTINE SetFlowDirectionConvention &
!
(string)


IMPLICIT NONE

!Arguments with intent in:
CHARACTER (LEN = *), INTENT (IN) :: string

!-------------------------------end of declarations----------------------------

SELECT CASE ( TRIM (StringToLower(string) ) )
CASE ('esri')
    flowDirectionConvention = ESRI
    NW = 32; N = 64; NE = 128; W = 16; E = 1; SW = 8; S = 4; SE = 2
CASE ('grass')
    flowDirectionConvention = GRASS
    NW = 3; N = 2; NE = 1; W = 4; E = 8; SW = 5; S = 6; SE = 7
CASE DEFAULT
  CALL Catch ('error', 'Morphology', 'flow direction convention not found: ', &
             argument = TRIM (string) )
END SELECT

RETURN
END SUBROUTINE SetFlowDirectionConvention