1 2 3 SUBROUTINE EVLINI 4 !*********************************************************************** 5 ! EVLINI Module of AERMOD 6 ! 7 ! PURPOSE: Initialize ARC Values for EVALFILE Option 8 ! 9 ! PROGRAMMER: Roger Brode 10 ! 11 ! DATE: November 29, 1993 12 ! 13 ! REVISIONS: Added ARCCL() variable for true centerline 14 ! calculations. Changed 7/25/94, R.F. Lee. 15 ! 16 ! INPUTS: 17 ! 18 ! OUTPUTS: 19 ! 20 ! CALLED FROM: PCALC 21 !*********************************************************************** 22 23 ! Variable Declarations 24 USE MAIN1 25 IMPLICIT NONE 26 CHARACTER MODNAM*12 27 28 SAVE 29 INTEGER :: I 30 31 ! Variable Initializations 32 MODNAM = 'EVLINI' ! 0 33 34 DO I = 1 , NUMARC 35 ARCMAX(I) = 0.0 ! 0 36 !CRFL 37 !CRFL Add true centerline calculations: add ARCCL(I) 38 !CRFL Changed 7/25/94, R.F. Lee 39 !CRFL 40 ARCCL(I) = 0.0 41 QMAX(I) = 0.0 42 DXMAX(I) = 0.0 43 UMAX(I) = 0.0 44 U3MAX(I) = 0.0 45 SVMAX(I) = 0.0 46 SWMAX(I) = 0.0 47 SYMAX(I) = 0.0 48 SY3MX(I) = 0.0 49 HEMAX(I) = 0.0 50 CHIDMW(I) = 0.0 51 CHINMW(I) = 0.0 52 CHI3MW(I) = 0.0 53 CHIDML(I) = 0.0 54 CHINML(I) = 0.0 55 CHI3ML(I) = 0.0 56 ENDDO 57 58 CONTINUE ! 0 59 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