1 2 SUBROUTINE FILOPN 3 !*********************************************************************** 4 ! FILOPN Module 5 ! 6 ! PURPOSE: Obtain the system date and time 7 ! 8 ! PROGRAMMER: Roger Brode, PES, Inc. 9 ! 10 ! DATE: December 6, 1994 11 ! 12 ! INPUTS: Input filename, INPFIL 13 ! Output filename, OUTFIL 14 ! 15 ! OUTPUTS: Openned files 16 ! 17 ! CALLED FROM: HEADER 18 ! 19 ! ERROR HANDLING: Checks errors openning files 20 !*********************************************************************** 21 ! 22 ! Variable Declarations 23 USE MAIN1 24 IMPLICIT NONE 25 CHARACTER MODNAM*12 26 27 SAVE 28 29 ! OPEN Input Runstream File, Unit INUNIT=7 30 DUMMY = 'RUN-STRM' ! 7 31 !CLC Remove command line input filename and use AERMOD.INP 32 !CL OPEN (UNIT=INUNIT,FILE=INPFIL,ERR=99,STATUS='OLD') 33 OPEN (UNIT=INUNIT,FILE='aermod.inp',ERR=99,STATUS='OLD') 34 35 ! OPEN Print Output File, Unit IOUNIT=8 36 DUMMY = 'OUTPUT' ! 3 37 !LF90 The CARRIAGECONTROL specifier in the following statement is a 38 !LF90 non-standard Lahey language extension (also supported by DEC VF), 39 !LF90 and may need to be removed for portability of the code. 40 !CLC Remove command line output filename and use AERMOD.OUT 41 !CL OPEN (UNIT=IOUNIT,FILE=OUTFIL,CARRIAGECONTROL='FORTRAN', 42 !JRA comment out OPEN and set IOUNIT to 6 to facilitate PB05 validation 43 ! OPEN (UNIT=IOUNIT,FILE='AERMOD.OUT',ERR=99,STATUS='REPLACE') 44 IOUNIT = 6 45 46 ! Write Out Update to the Screen 47 WRITE (*,909) 48 909 FORMAT ('+','Now Processing SETUP Information') 49 50 GOTO 1000 51 52 ! WRITE Error Message: Error Opening File 53 99 CALL ERRHDL(PATH,MODNAM,'E','500',DUMMY) ! 4 54 55 ! Check for Error Opening Runstream File and STOP 56 IF ( DUMMY.EQ.'RUN-STRM' ) THEN 57 WRITE (*,919) ! 4 58 919 FORMAT ('+','Error Opening Runstream Input File! Aborting.') 59 STOP 60 ENDIF 61 62 1000 CONTINUE ! 3 63 64 CONTINUE 65 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