1 2 SUBROUTINE SCIMIT 3 !*********************************************************************** 4 ! SCIMIT Module of ISC3 Short Term Model - ISCST3 5 ! 6 ! PURPOSE: Process Sampled Chronological Input Model (SCIM) Options 7 ! From Runstream Input Image 8 ! 9 ! PROGRAMMER: Roger Brode 10 ! 11 ! DATE: April 14, 1998 12 ! 13 ! INPUTS: Input Runstream Image Parameters 14 ! 15 ! OUTPUTS: SCIM parameters: Start Hour (1-24) 16 ! Number of Hours to Skip 17 ! Optional filename to summarize 18 ! the SCIM's meteorology 19 ! 20 ! ERROR HANDLING: Checks for No Parameters; 21 ! Checks for Too Many Parameters; 22 ! Checks for Invalid Numeric Inputs 23 ! 24 ! CALLED FROM: MECARD 25 !*********************************************************************** 26 27 ! Variable Declarations 28 USE MAIN1 29 IMPLICIT NONE 30 CHARACTER MODNAM*12 31 32 SAVE 33 34 ! Variable Initializations 35 MODNAM = 'SCIMIT' ! 0 36 37 IF ( IFC.EQ.6 .OR. IFC.EQ.8 ) THEN 38 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 39 ! Check The Numerical Field 40 IF ( IMIT.EQ.-1 ) THEN 41 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 42 GOTO 999 43 ELSE 44 NREGSTART = NINT(FNUM) ! 0 45 ENDIF 46 ! WRITE Error Message ! Start Hour out of range 47 IF ( NREGSTART.LT.1 .OR. NREGSTART.GT.24 ) & 48 & CALL ERRHDL(PATH,MODNAM,'E','380','StartHr') 49 50 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) 51 ! Check The Numerical Field 52 IF ( IMIT.EQ.-1 ) THEN 53 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 54 GOTO 999 55 ELSE 56 NREGINT = NINT(FNUM) ! 0 57 ENDIF 58 ! WRITE Error Message ! NRegInt is out of range 59 IF ( NREGINT.LT.1 ) & 60 & CALL ERRHDL(PATH,MODNAM,'E','380','NRegInt') 61 62 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) 63 ! Check The Numerical Field 64 IF ( IMIT.EQ.-1 ) THEN 65 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 66 GOTO 999 67 ELSE 68 NWETSTART = NINT(FNUM) ! 0 69 ENDIF 70 71 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 0 72 ! Check The Numerical Field 73 IF ( IMIT.EQ.-1 ) THEN 74 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 75 GOTO 999 76 ELSE 77 NWETINT = NINT(FNUM) ! 0 78 ENDIF 79 80 ! Temporarily set NWETSTART=0 and NWETINT=0 until wet deposition is 81 ! included in AERMOD. 82 IF ( NWETSTART.NE.0 .OR. NWETINT.NE.0 ) THEN ! 0 83 CALL ERRHDL(PATH,MODNAM,'W','157',KEYWRD) ! 0 84 NWETSTART = 0 85 NWETINT = 0 86 ENDIF 87 88 IF ( NWETINT.GE.1 ) THEN ! 0 89 IF ( DEPOS .OR. WDEP .OR. WDPLETE ) THEN ! 0 90 WETSCIM = .TRUE. ! 0 91 ELSE 92 ! WRITE Error Message: Wet SCIM'ing, but no DEPOS/WDEP/WDPLETE 93 CALL ERRHDL(PATH,MODNAM,'E','383',KEYWRD) ! 0 94 ENDIF 95 96 ! WRITE Error Message: NWetStrt is out of range 97 IF ( NWETSTART.LE.0 .OR. NWETSTART.GT.NWETINT ) & 98 & CALL ERRHDL(PATH,MODNAM,'E','380','NWetStrt') 99 ELSEIF ( NWETINT.EQ.0 ) THEN 100 WETSCIM = .FALSE. ! 0 101 ELSE 102 ! WRITE Error Message: NWETINT is out of range 103 CALL ERRHDL(PATH,MODNAM,'E','380','NWetInt') ! 0 104 ENDIF 105 106 IF ( IFC.EQ.8 ) THEN ! 0 107 ! Optional file for summary of SCIM'd met data is specified 108 SCIMOUT = .TRUE. ! 0 109 SCIM_SFCFIL = FIELD(7) 110 SCIM_PROFIL = FIELD(8) 111 OPEN (UNIT=ISUNIT,FILE=SCIM_SFCFIL,STATUS='UNKNOWN') 112 OPEN (UNIT=IPUNIT,FILE=SCIM_PROFIL,STATUS='UNKNOWN') 113 ENDIF 114 ELSEIF ( IFC.GT.8 ) THEN 115 ! WRITE Error Message ! Too Many Parameters 116 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 117 ELSE 118 ! WRITE Error Message ! Not Enough Parameters 119 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 120 ENDIF 121 122 999 CONTINUE ! 0 123 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