1 2 SUBROUTINE PRERADRNG 3 !*********************************************************************** 4 ! PRERADRNG Module of the AMS/EPA Regulatory Model - AERMOD 5 ! 6 ! PURPOSE: Processes Non-Uniform Polar Network Value 7 ! 8 ! PROGRAMMER: Roger Brode 9 ! 10 ! DATE: September 24, 1996 11 ! 12 ! INPUTS: Input Runstream Image Parameters 13 ! 14 ! OUTPUTS: Polar Network Directions in Non-Uniform Spacing 15 ! 16 ! CALLED FROM: PREPOLR 17 !*********************************************************************** 18 19 ! Variable Declarations 20 USE MAIN1 21 IMPLICIT NONE 22 CHARACTER MODNAM*12 23 24 SAVE 25 INTEGER :: I 26 27 ! Variable Initializations 28 MODNAM = 'PRERADRNG' ! 0 29 30 ! Skip the non-useful Fields 31 DO I = 1 , IFC 32 IF ( FIELD(I).EQ.'DDIR' ) ISC = I + 1 ! 0 33 ENDDO 34 35 ! Determine Whether There Are Enough Parameter Fields 36 IF ( IFC.EQ.ISC-1 ) THEN ! 0 37 ! Error Message: Missing Parameter 38 RECERR = .TRUE. ! 0 39 GOTO 999 40 ENDIF 41 42 ISET = JCOUNT ! 0 43 44 DO I = ISC , IFC 45 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 46 ! Check The Numerical Field 47 IF ( IMIT.EQ.-1 ) RECERR = .TRUE. 48 ISET = ISET + 1 49 IF ( ISET.GT.IYM ) IYM = ISET 50 ENDDO 51 52 JCOUNT = ISET ! 0 53 54 999 CONTINUE ! 0 55 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