1
2      SUBROUTINE WDROTA
3!***********************************************************************
4!                 WDROTA Module of the AMS/EPA Regulatory Model - AERMOD
5!
6!     PURPOSE:    PROCESSES INPUT FOR ROTATING WIND DIRECTION DATA
7!
8!     PROGRAMMER: Roger Brode, Jeff Wang
9!
10!        DATE:    March 2, 1992
11!
12!     INPUTS:     Input Runstream Image Parameters
13!
14!     OUTPUT:     Wind Direction Rotation Angle
15!
16!     CALLED FROM:   MECARD
17!
18!     ERROR HANDLING:   Checks for No Parameters;
19!                       Checks for Too Many Parameters;
20!                       Checks for Invalid Numeric Field
21!***********************************************************************
22
23!     Variable Declarations
24      USE MAIN1
25      IMPLICIT NONE
26      CHARACTER MODNAM*12
27
28      SAVE
29
30!     Variable Initializations
31      ROTANG = 0.0                                                      !      0
32      MODNAM = 'WDROTA'
33
34      IF ( IFC.EQ.3 ) THEN
35         CALL STONUM(FIELD(3),ILEN_FLD,ROTANG,IMIT)                     !      0
36         IF ( IMIT.NE.1 ) THEN
37!            WRITE Error Message  ! Invalid Numeric Field Encountered
38            CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD)                   !      0
39         ELSEIF ( ABS(ROTANG).GT.180.0 ) THEN
40!            WRITE Error Message       ! ROTANG Out of Range
41            CALL ERRHDL(PATH,MODNAM,'E','380','ROTANG')                 !      0
42         ENDIF
43      ELSEIF ( IFC.GT.3 ) THEN
44!        WRITE Error Message           ! Too Many Parameters
45         CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD)                      !      0
46      ELSE
47!        WRITE Error Message           ! No Parameters
48         CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD)                      !      0
49      ENDIF
50
51      CONTINUE                                                          !      0
52      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