1
2      SUBROUTINE GDLAND
3!***********************************************************************
4!                 GDLAND Module of ISC3 Model
5!
6!        PURPOSE: Define Land Use Categories by Direction for
7!                 Gas Dry Deposition (per Wesely, et al, 2001)
8!
9!        PROGRAMMER: R. W. Brode, PES, Inc.
10!
11!        DATE:    December 30, 2002
12!
13!        INPUTS:  Input Runstream Image Parameters
14!
15!        OUTPUTS: Dry Deposition Reference Parameters for Gases
16!
17!        CALLED FROM:   COCARD
18!***********************************************************************
19
20!     Variable Declarations
21      USE MAIN1
22      IMPLICIT NONE
23      CHARACTER MODNAM*12
24      INTEGER I , J , ILAND_NDX
25
26      SAVE
27
28!     Variable Initializations
29      MODNAM = 'GDLAND'                                                 !      0
30
31!     Check the Number of Fields
32      IF ( IFC.LE.2 ) THEN
33!        Error Message: No Parameters
34         CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD)                      !      0
35         GOTO 999
36      ELSEIF ( IFC.LT.3 ) THEN
37!        Error Message: Not Enough Parameters
38         CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD)                      !      0
39         GOTO 999
40      ELSEIF ( IFC.GT.38 ) THEN
41!        Error Message: Too Many Parameters
42         CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD)                      !      0
43         GOTO 999
44      ENDIF
45
46      ISET = 0                                                          !      0
47      DO I = 3 , IFC
48!        Change Fields To Numbers
49         CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT)                       !      0
50!        Check The Numerical Field
51         IF ( IMIT.EQ.-1 ) THEN
52            CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD)                   !      0
53            GOTO 100
54         ENDIF
55         DO J = 1 , IMIT                                                !      0
56            ISET = ISET + 1                                             !      0
57!           Assign The Field
58            IF ( ISET.LE.36 ) THEN
59               ILAND_NDX = NINT(FNUM)                                   !      0
60               IF ( ILAND_NDX.GE.1 .AND. ILAND_NDX.LE.9 ) THEN
61                  ILAND_GD(ISET) = ILAND_NDX                            !      0
62               ELSE
63!                 WRITE Error Message    ! Land Use Index out-of-range
64                  CALL ERRHDL(PATH,MODNAM,'E','380',KEYWRD)             !      0
65               ENDIF
66            ELSE
67!              WRITE Error Message    ! Too Many Directions Input
68               CALL ERRHDL(PATH,MODNAM,'E','234',KEYWRD)                !      0
69            ENDIF
70         ENDDO
71 100  ENDDO
72
73      LDGAS = .TRUE.                                                    !      0
74
75 999  CONTINUE                                                          !      0
76      END


HyperKWIC - Version 1.00DD executed at 20:00 on 1 Mar 2018 | Personal or Academic or Evaluation User | Free for Non-Commercial, Non-Government Use