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