1 SUBROUTINE CALC 2 !*********************************************************************** 3 ! CALC Module of the AMS/EPA Regulatory Model - AERMOD 4 ! 5 ! PURPOSE: Controls Flow and Processing of CALCulation Modules 6 ! 7 ! PROGRAMMER: Roger Brode, Jeff Wang 8 ! 9 ! DATE: March 2, 1992 10 ! 11 ! INPUTS: Arrays of Source Parameters 12 ! Arrays of Receptor Locations 13 ! Meteorological Variables for One Hour 14 ! 15 ! OUTPUTS: Array of 1-hr CONC or DEPOS Values for Each 16 ! Source/Receptor 17 ! 18 ! CALLED FROM: HRLOOP 19 !*********************************************************************** 20 21 ! Variable Declarations 22 USE MAIN1 23 IMPLICIT NONE 24 CHARACTER MODNAM*12 25 26 SAVE 27 28 ! Variable Initializations 29 MODNAM = 'CALC' ! 3044 30 PATH = 'CN' 31 32 ! Begin Source LOOP 33 SOURCE_LOOP:DO ISRC = 1 , NUMSRC 34 IF ( SRCTYP(ISRC).EQ.'POINT' ) THEN ! 27396 35 ! Calculate Point Source Values --- CALL PCALC 36 CALL PCALC ! 9132 37 38 ELSEIF ( SRCTYP(ISRC).EQ.'VOLUME' ) THEN 39 ! Calculate Volume Source Values --- CALL VCALC 40 CALL VCALC ! 9132 41 42 ELSEIF ( SRCTYP(ISRC).EQ.'AREA' ) THEN 43 ! Calculate Area Source Values --- CALL ACALC 44 CALL ACALC ! 9132 45 46 ELSEIF ( SRCTYP(ISRC).EQ.'AREAPOLY' ) THEN 47 ! Calculate Area Source Values --- CALL ACALC 48 CALL ACALC ! 0 49 50 ELSEIF ( SRCTYP(ISRC).EQ.'AREACIRC' ) THEN 51 ! Calculate Area Source Values --- CALL ACALC 52 CALL ACALC ! 0 53 54 ELSEIF ( SRCTYP(ISRC).EQ.'OPENPIT' ) THEN 55 ! Calculate OpenPit Source Values --- CALL OCALC 56 CALL OCALC ! 0 57 58 ENDIF 59 ENDDO SOURCE_LOOP 60 ! End Source LOOP 61 62 CONTINUE ! 3044 63 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