COCARD.f90#371 OPEN (UNIT=IDPUNT,ERR=99,FILE=SAVFIL,FORM='UNFORMATTED', & #374 & OPEN (UNIT=IDPUN2,ERR=99,FILE=SAVFL2, & #379 OPEN (UNIT=IRSUNT,ERR=99,FILE=INIFIL,FORM='UNFORMATTED', & DCDLAT.f90#44 READ (ALAT,'(F9.1)',ERR=1000) XLAT #61 READ (ALAT,'(F9.1)',ERR=1000) XLAT DEBOPT.f90#86 OPEN (UNIT=DBGUNT,FILE=DBGFIL,ERR=99,STATUS='UNKNOWN') #92 OPEN (UNIT=DBMUNT,FILE=DBMFIL,ERR=99,STATUS='UNKNOWN') EVEFIL.f90#92 READ (RUNST1(38:),'(F14.5)',ERR=99) CONC1 FILOPN.f90#33 OPEN (UNIT=INUNIT,FILE='aermod.inp',ERR=99,STATUS='OLD') HQREAD.f90#46 READ (IHREMI,RDFRM,ERR=99,END=999) RUNST1 , & HREMIS.f90#49 OPEN (UNIT=IHREMI,ERR=998,FILE=HRFILE,IOSTAT=IOERRN, & HRQEXT.f90#42 READ (IHREMI,RDFRM,ERR=99,END=999) RUNST1 , (RUNST(I),I=1,ISTRG) INCLUD.f90#59 OPEN (INCUNT,FILE=INCFIL,STATUS='OLD',ERR=99) MAXFIL.f90#48 & WRITE (IMXUNT(IGRP,IAVE),THRFRM,ERR=99) & MEOPEN.f90#65 OPEN (UNIT=MFUNIT,ERR=998,FILE=METINP,FORM='FORMATTED', & #77 READ (MFUNIT,1900,ERR=90,IOSTAT=IOERRN) ALAT , ALON , SPEC1 , & #89 READ (MFUNIT,1901,ERR=99,IOSTAT=IOERRN) ALAT , ALON , SPEC1 , & #148 OPEN (UNIT=MPUNIT,ERR=999,FILE=PROINP,FORM='FORMATTED', & MEREAD.f90#74 READ (MFUNIT,'(A132)',ERR=998,END=1000,IOSTAT=IOERRN) BUFFER ! 0 #75 READ (BUFFER,1900,ERR=998,IOSTAT=IOERRN) ALAT , ALON , SPEC1 , & #120 READ (MFUNIT,*,END=1000,ERR=99,IOSTAT=IOERRN) IYEAR , & #175 READ (MFUNIT,*,END=1000,ERR=99,IOSTAT=IOERRN) IYEAR , & #204 READ (MPUNIT,*,END=1000,ERR=98,IOSTAT=IOERRN) KYEAR , & #264 READ (MPUNIT,PROFRM,END=1000,ERR=98,IOSTAT=IOERRN) & METDAT.f90#123 READ (MFUNIT,*,END=999,ERR=99,IOSTAT=IOERRN) IYEAR , & #132 READ (MFUNIT,*,END=999,ERR=99,IOSTAT=IOERRN) IYEAR , & #151 READ (MFUNIT,*,END=999,ERR=99,IOSTAT=IOERRN) IYEAR , IMONTH , & #161 READ (MFUNIT,*,END=999,ERR=99,IOSTAT=IOERRN) IYEAR , IMONTH , & METEXT.f90#126 READ (MFUNIT,'(A132)',ERR=998,END=1000,IOSTAT=IOERRN) BUFFER ! 0 #127 READ (BUFFER,1900,ERR=998,IOSTAT=IOERRN) ALAT , ALON , SPEC1 , & #171 READ (MFUNIT,*,END=1000,ERR=99,IOSTAT=IOERRN) IYEAR , IMONTH , & #207 READ (MFUNIT,*,END=1000,ERR=99,IOSTAT=IOERRN) IYEAR , IMONTH , & #234 READ (MPUNIT,*,END=1000,ERR=98,IOSTAT=IOERRN) KYEAR , & #281 READ (MPUNIT,PROFRM,END=1000,ERR=98,IOSTAT=IOERRN) KYEAR , & MSGWRT.f90#58 READ (IERUNT,1116,END=99,ERR=999) PATH , ERRTP , ERRCD , & MXEVNT.f90#51 READ (IMXUNT(IGRP,IAVE),100,ERR=99,END=999) BUFIN ! 0 #55 READ (BUFIN,THRFRM,ERR=99) IAVEP , GID , KDATE , XR2 ,& O3EXT.f90#31 READ (IO3UNT,*,ERR=99,END=999) IO3YR , IO3MN , IO3DY , IO3HR , & #34 READ (IO3UNT,O3FORM,ERR=99,END=999) IO3YR , IO3MN , IO3DY , & O3FIL.f90#51 OPEN (UNIT=IO3UNT,FILE=OZONFL,STATUS='OLD',ERR=998, & OUEVAL.f90#123 IF ( .NOT.FOUND ) OPEN (IELUNT(INDSRC),ERR=99,FILE=EVLFIL(INDSRC),& OUMXFL.f90#183 OPEN (IMXUNT(INDGRP,INDAVE),ERR=99,FILE=THRFIL(INDGRP,INDAVE), & #189 READ (IRSUNT,ERR=919,END=919) ISDATE #195 READ (IMXUNT(INDGRP,INDAVE),'(A80)',ERR=919,END=199) & #199 & READ (BUF80(15:22),'(I8)',ERR=919) IDAT OUPLOT.f90#234 IF ( .NOT.FOUND ) OPEN (IPLUNT(INDVAL,INDGRP,INDAVE),ERR=99, & OUPOST.f90#229 OPEN (IPSUNT(INDGRP,INDAVE),ERR=99, & #236 READ (IRSUNT,ERR=919,END=919) ISDATE #242 READ (IPSUNT(INDGRP,INDAVE),ERR=919,END=199) IDAT ! 0 #256 OPEN (IPSUNT(INDGRP,INDAVE),ERR=99, & #263 READ (IRSUNT,ERR=919,END=919) ISDATE #269 READ (IPSUNT(INDGRP,INDAVE),'(A132)',ERR=919,END=299) & #276 READ (BUF132(ISTR:ISTP),'(I8)',ERR=919) IDAT OURANK.f90#171 IF ( .NOT.FOUND ) OPEN (IRKUNT(INDAVE),ERR=99,FILE=RNKFIL(INDAVE),& OUSEAS.f90#126 IF ( .NOT.FOUND ) OPEN (ISHUNT(INDGRP),ERR=99,FILE=SEAHRS(INDGRP),& OUTOXX.f90#168 IF ( .NOT.FOUND ) OPEN (ITXUNT(INDAVE),ERR=99,FILE=TOXFIL(INDAVE),& PERPLT.f90#154 IF ( .NOT.FOUND ) OPEN (IPPUNT(INDGRP),ERR=99,FILE=ANNPLT(INDGRP),& PERPST.f90#162 OPEN (IAPUNT(INDGRP),ERR=99,FILE=ANNPST(INDGRP), & #165 OPEN (IAPUNT(INDGRP),ERR=99,FILE=ANNPST(INDGRP), & PLOTFL.f90#84 WRITE (IPLUNT(IVAL,IGRP,IAVE),PLTFRM,ERR=99) & #91 WRITE (IPLUNT(IVAL,IGRP,IAVE),PLTFRM,ERR=99) & PLTANN.f90#72 WRITE (IPPUNT(IGRP),PSTFRM,ERR=99) AXR(IREC) , & #78 WRITE (IPPUNT(IGRP),PSTFRM,ERR=99) AXR(IREC) , & POSTFL.f90#41 WRITE (IPSUNT(IGRP,IAVE),ERR=99) KURDAT , KAVE(IAVE) , & #56 WRITE (IPSUNT(IGRP,IAVE),PSTFRM,ERR=99) AXR(IREC) , & PREINCLUD.f90#58 OPEN (INCUNT,FILE=INCFIL,STATUS='OLD',ERR=1002) PSTANN.f90#59 WRITE (IAPUNT(IGRP),ERR=99) KURDAT , IANHRS , & #64 WRITE (IAPUNT(IGRP),ERR=99) KURDAT , NUMYRS , & #88 WRITE (IAPUNT(IGRP),PSTFRM,ERR=99) AXR(IREC) , & #94 WRITE (IAPUNT(IGRP),PSTFRM,ERR=99) AXR(IREC) , & RANKFL.f90#71 WRITE (IRKUNT(IAVE),RNKFRM,ERR=99) IRANK , & RSDUMP.f90#53 OPEN (UNIT=IDPUNT,ERR=99,FILE=SAVFIL,FORM='UNFORMATTED', & #113 OPEN (UNIT=IDPUN2,ERR=99,FILE=SAVFL2,FORM='UNFORMATTED', & RSINIT.f90#38 READ (IRSUNT,ERR=99,END=999) ISDATE #39 READ (IRSUNT,ERR=99,END=999) NHIVAL , NMXVAL , NUMREC , NUMGRP , & #43 READ (IRSUNT,ERR=99,END=999) (((((HIVALU(I,J,K,L,M),I=1,NUMREC)& #46 READ (IRSUNT,ERR=99,END=999) (((((NHIDAT(I,J,K,L,M),I=1,NUMREC)& #49 READ (IRSUNT,ERR=99,END=999) (((((HCLMSG(I,J,K,L,M),I=1,NUMREC)& #54 READ (IRSUNT,ERR=99,END=999) NUMYRS ! 0 #55 READ (IRSUNT,ERR=99,END=999) & #62 READ (IRSUNT,ERR=99,END=999) ((((RMXVAL(I,J,K,L),I=1,NMXVAL),J=& #64 READ (IRSUNT,ERR=99,END=999) ((((MXDATE(I,J,K,L),I=1,NMXVAL),J=& #66 READ (IRSUNT,ERR=99,END=999) ((((MXLOCA(I,J,K,L),I=1,NMXVAL),J=& #68 READ (IRSUNT,ERR=99,END=999) ((((MCLMSG(I,J,K,L),I=1,NMXVAL),J=& #74 READ (IRSUNT,ERR=99,END=999) (((((SHVALS(I,J,K,L,M),I=1,NUMREC)& #77 READ (IRSUNT,ERR=99,END=999) ((NSEAHR(I,J),I=1,4),J=1,24) ! 0 #78 READ (IRSUNT,ERR=99,END=999) ((NSEACM(I,J),I=1,4),J=1,24) ! 0 #82 READ (IRSUNT,ERR=99,END=999) IANHRS , IANCLM , IANMSG ! 0 #83 READ (IRSUNT,ERR=99,END=999) (((ANNVAL(I,J,K),I=1,NUMREC),J=1, & #86 READ (IRSUNT,ERR=99,END=999) IANHRS , IANCLM , IANMSG , NUMYRS ! 0 #87 READ (IRSUNT,ERR=99,END=999) (((ANNVAL(I,J,K),I=1,NUMREC),J=1, & #89 READ (IRSUNT,ERR=99,END=999) (((SUMANN(I,J,K),I=1,NUMREC),J=1, & #106 READ (IRSUNT,ERR=99,END=999) (((AMXVAL(I,J,K),I=1,NHIANN),J=1, & #108 READ (IRSUNT,ERR=99,END=999) (((IMXLOC(I,J,K),I=1,NHIANN),J=1, & SHOUT.f90#65 WRITE (ISHUNT(IGRP),SEAFRM,ERR=99) AXR(IREC) , & SUMTBL.f90#73 READ (IERUNT,1116,END=99,ERR=9999) PATH , ERRTP , ERRCD , & #98 READ (IERUNT,1116,END=999,ERR=9999) PATH , ERRTP , ERRCD , & TERRST.f90#42 READ (IERUNT,1116,END=99,ERR=9999) PATH , ERRTP , ERRCD , & TGCARD.f90#79 OPEN (UNIT=IZUNIT,ERR=99,FILE=TERINP,IOSTAT=IOERRN, & TOXXFL.f90#57 WRITE (ITXUNT(IAVE),ERR=99) & #59 WRITE (ITXUNT(IAVE),ERR=99) &
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