1 2 SUBROUTINE PROFIL 3 !*********************************************************************** 4 ! PROFIL Module of AERMOD 5 ! 6 ! PURPOSE: Process Profile Meteorology Input File Options 7 ! From Runstream Input Image 8 ! 9 ! PROGRAMMER: Roger Brode, James Paumier 10 ! 11 ! DATE: September 30, 1993 12 ! 13 ! INPUTS: Input Runstream Image Parameters 14 ! 15 ! OUTPUTS: Meteorological Data Filename and Format 16 ! 17 ! ERROR HANDLING: Checks for No Parameters; 18 ! Checks for No Format (uses default); 19 ! Checks for Too Many Parameters 20 ! 21 ! CALLED FROM: MECARD 22 !*********************************************************************** 23 24 ! Variable Declarations 25 USE MAIN1 26 IMPLICIT NONE 27 CHARACTER MODNAM*12 28 29 SAVE 30 ! Variable Initializations 31 MODNAM = 'PROFIL' ! 3 32 33 IF ( IFC.EQ.3 ) THEN 34 ! Retrieve Met Data Filename as Character Substring to Maintain Case 35 PROINP = RUNST1(LOCB(3):LOCE(3)) ! 3 36 ! Use Default Met Data Format: Initialized in SUBROUTINE VARINI to 37 ELSEIF ( IFC.EQ.4 ) THEN 38 ! Retrieve Met Data Filename as Character Substring to Maintain Case 39 PROINP = RUNST1(LOCB(3):LOCE(3)) ! 0 40 ! Check for Format String > 60 (Limit for PROFRM Variable) 41 IF ( (LOCE(4)-LOCB(4)).LE.59 ) THEN 42 IF ( (LOCE(4)-LOCB(4)).GT.39 ) THEN ! 0 43 ! Retrieve Met Format as Char. Substring to Bypass Field Limit 44 PROFRM = RUNST1(LOCB(4):LOCE(4)) ! 0 45 ELSE 46 ! Retrieve Met Format From FIELD(4) 47 PROFRM = FIELD(4) ! 0 48 ENDIF 49 ELSE 50 ! WRITE Error Message: PROFRM Field is Too Long 51 CALL ERRHDL(PATH,MODNAM,'E','203',' PROFRM ') ! 0 52 ENDIF 53 ELSEIF ( IFC.GT.4 ) THEN 54 ! WRITE Error Message ! Too Many Parameters 55 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 56 ELSE 57 ! WRITE Warning Message ! No Parameters Specified 58 CALL ERRHDL(PATH,MODNAM,'W','200',KEYWRD) ! 0 59 ENDIF 60 61 CONTINUE ! 3 62 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