1 2 SUBROUTINE TERLOC 3 !*********************************************************************** 4 ! TERLOC Module of the AMS/EPA Regulatory Model - AERMOD 5 ! 6 ! PURPOSE: Process Location to be used as Origin of Grid Coord. 7 ! From Runstream Input Image 8 ! 9 ! PROGRAMMER: D. Strimaitis, SRC 10 ! 11 ! DATE: December 15, 1993 12 ! 13 ! INPUTS: Input Runstream Image Parameters 14 ! 15 ! OUTPUTS: Origin of Cartesian System, TGX0,TGY0 (UTM m) 16 ! 17 ! ERROR HANDLING: Checks for No Parameters; 18 ! Checks for No Units (uses default of m); 19 ! Checks for Too Many Parameters 20 ! 21 ! CALLED FROM: TGCARD 22 !*********************************************************************** 23 24 ! Variable Declarations 25 USE MAIN1 26 IMPLICIT NONE 27 CHARACTER MODNAM*12 28 29 SAVE 30 31 ! Variable Initializations 32 MODNAM = 'TERLOC' ! 0 33 34 IF ( IFC.EQ.4 .OR. IFC.EQ.5 ) THEN 35 CALL STONUM(FIELD(3),ILEN_FLD,TGX0,IMIT) ! 0 36 ! Check The Numerical Field 37 IF ( IMIT.EQ.-1 ) THEN 38 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 39 GOTO 999 40 ENDIF 41 CALL STONUM(FIELD(4),ILEN_FLD,TGY0,IMIT) ! 0 42 ! Check The Numerical Field 43 IF ( IMIT.EQ.-1 ) THEN 44 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 45 GOTO 999 46 ENDIF 47 IF ( IFC.EQ.5 ) THEN ! 0 48 IF ( FIELD(5).EQ.'FEET' ) THEN ! 0 49 TGX0 = 0.3048*TGX0 ! 0 50 TGY0 = 0.3048*TGY0 51 ELSEIF ( FIELD(5).EQ.'KM' ) THEN 52 TGX0 = 1000.*TGX0 ! 0 53 TGY0 = 1000.*TGY0 54 ELSEIF ( FIELD(5).NE.'METERS' ) THEN 55 ! WRITE Warning Message - Invalid TGUNIT Parameter 56 CALL ERRHDL(PATH,MODNAM,'W','203','TGUNIT') ! 0 57 ENDIF 58 ENDIF 59 ELSEIF ( IFC.GT.5 ) THEN 60 ! WRITE Error Message ! Too Many Parameters 61 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 62 ELSE 63 ! WRITE Error Message ! No Parameters 64 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 65 ENDIF 66 67 999 CONTINUE ! 0 68 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