1 2 SUBROUTINE PREPOLDST 3 !*********************************************************************** 4 ! PREPOLDST Module of the AMS/EPA Regulatory Model - AERMOD 5 ! 6 ! PURPOSE: Gets Distances for the Polar Network 7 ! 8 ! PROGRAMMER: Roger Brode 9 ! 10 ! DATE: September 24, 1996 11 ! 12 ! INPUTS: Input Runstream Image Parameters 13 ! 14 ! OUTPUTS: Polar Network Distance Input Value 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 = 'PREPOLDST' ! 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 ! Missing Parameter 38 RECERR = .TRUE. ! 0 39 GOTO 999 40 ENDIF 41 42 ISET = ICOUNT ! 3 43 44 DO I = ISC , IFC 45 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 12 46 ! Check The Numerical Field 47 IF ( IMIT.EQ.-1 ) RECERR = .TRUE. 48 ISET = ISET + 1 49 IF ( ISET.GT.IXM ) IXM = ISET 50 ENDDO 51 52 ICOUNT = ISET ! 3 53 54 999 CONTINUE ! 3 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