1 2 SUBROUTINE POLDST 3 !*********************************************************************** 4 ! POLDST Module of the AMS/EPA Regulatory Model - AERMOD 5 ! 6 ! PURPOSE: Gets Distances for the Polar Network 7 ! 8 ! PROGRAMMER: Jeff Wang, Roger Brode 9 ! 10 ! DATE: March 2, 1992 11 ! 12 ! INPUTS: Input Runstream Image Parameters 13 ! 14 ! OUTPUTS: Polar Network Distance Input Value 15 ! 16 ! CALLED FROM: REPOLR 17 !*********************************************************************** 18 19 ! Variable Declarations 20 USE MAIN1 21 IMPLICIT NONE 22 CHARACTER MODNAM*12 23 24 SAVE 25 INTEGER :: I , J 26 27 ! Variable Initializations 28 MODNAM = 'POLDST' ! 3 29 30 ! Skip the Unrelated Fields 31 DO I = 1 , IFC 32 IF ( FIELD(I).EQ.'DIST' ) ISC = I + 1 ! 21 33 ENDDO 34 35 ! Determine Whether There Are Enough Parameter Fields 36 IF ( IFC.EQ.ISC-1 ) THEN ! 3 37 ! Error Message: Missing Parameter 38 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 39 RECERR = .TRUE. 40 GOTO 999 41 ENDIF 42 43 ISET = ICOUNT ! 3 44 45 DO I = ISC , IFC 46 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 12 47 ! Check The Numerical Field 48 IF ( IMIT.EQ.-1 ) THEN 49 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 50 RECERR = .TRUE. 51 ENDIF 52 ISET = ISET + 1 ! 12 53 IF ( ISET.LE.IXM ) THEN 54 ! Store Distance to XCOORD Array and Check for Previous Occurrence 55 XCOORD(ISET,INNET) = FNUM ! 12 56 DO J = 1 , ISET - 1 57 ! WRITE Warning Message: Distance Specified More Than Once 58 IF ( FNUM.EQ.XCOORD(J,INNET) ) & 59 & CALL ERRHDL(PATH,MODNAM,'W','250',NETIDT) 60 ENDDO 61 ELSE 62 ! WRITE Error Message: Too Many X-Coordinates for This Network 63 WRITE (DUMMY,'(I8)') IXM ! 0 64 CALL ERRHDL(PATH,MODNAM,'E','225',DUMMY) 65 RECERR = .TRUE. 66 ENDIF 67 ENDDO 68 69 ICOUNT = ISET ! 3 70 71 999 CONTINUE ! 3 72 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