AERMOD.f90#691 WRITE (DUMMY,'(I8)') IDSTAT ! 0 #692 CALL ERRHDL(PATH,MODNAM,'E','298',DUMMY) #698 WRITE (DUMMY,'(I8)') IDSTAT ! 0 #699 CALL ERRHDL(PATH,MODNAM,'E','298',DUMMY) #791 WRITE (DUMMY,'(I8)') NREMAIN ! 0 #792 CALL ERRHDL(PATH,MODNAM,'W','485',DUMMY) ALLRESULT.f90#59 WRITE (DUMMY,'(I8)') IASTAT ! 0 #60 CALL ERRHDL(PATH,MODNAM,'E','299',DUMMY) #76 WRITE (DUMMY,'(I8)') IASTAT ! 0 #77 CALL ERRHDL(PATH,MODNAM,'E','299',DUMMY) #84 WRITE (DUMMY,'(I8)') IASTAT ! 0 #85 CALL ERRHDL(PATH,MODNAM,'E','299',DUMMY) #92 WRITE (DUMMY,'(I8)') IASTAT ! 0 #93 CALL ERRHDL(PATH,MODNAM,'E','299',DUMMY) #101 WRITE (DUMMY,'(I8)') IASTAT ! 0 #102 CALL ERRHDL(PATH,MODNAM,'E','299',DUMMY) ALLSETUP.f90#37 WRITE (DUMMY,'(I8)') IASTAT ! 0 #38 CALL ERRHDL(PATH,MODNAM,'E','298',DUMMY) #50 WRITE (DUMMY,'(I8)') IASTAT ! 0 #51 CALL ERRHDL(PATH,MODNAM,'E','298',DUMMY) #59 WRITE (DUMMY,'(I8)') IASTAT ! 0 #60 CALL ERRHDL(PATH,MODNAM,'E','298',DUMMY) #68 WRITE (DUMMY,'(I8)') IASTAT ! 0 #69 CALL ERRHDL(PATH,MODNAM,'E','298',DUMMY) #82 WRITE (DUMMY,'(I8)') IASTAT ! 0 #83 CALL ERRHDL(PATH,MODNAM,'E','298',DUMMY) #90 WRITE (DUMMY,'(I8)') IASTAT ! 0 #91 CALL ERRHDL(PATH,MODNAM,'E','298',DUMMY) #103 WRITE (DUMMY,'(I8)') IASTAT ! 0 #104 CALL ERRHDL(PATH,MODNAM,'E','298',DUMMY) #113 WRITE (DUMMY,'(I8)') IASTAT ! 0 #114 CALL ERRHDL(PATH,MODNAM,'E','298',DUMMY) #131 WRITE (DUMMY,'(I8)') IASTAT ! 0 #132 CALL ERRHDL(PATH,MODNAM,'E','298',DUMMY) #137 WRITE (DUMMY,'(I8)') IASTAT ! 0 #138 CALL ERRHDL(PATH,MODNAM,'E','298',DUMMY) #143 WRITE (DUMMY,'(I8)') IASTAT ! 0 #144 CALL ERRHDL(PATH,MODNAM,'E','298',DUMMY) #151 WRITE (DUMMY,'(I8)') IASTAT ! 0 #152 CALL ERRHDL(PATH,MODNAM,'E','298',DUMMY) #159 WRITE (DUMMY,'(I8)') IASTAT ! 0 #160 CALL ERRHDL(PATH,MODNAM,'E','298',DUMMY) #167 WRITE (DUMMY,'(I8)') IASTAT ! 0 #168 CALL ERRHDL(PATH,MODNAM,'E','298',DUMMY) #175 WRITE (DUMMY,'(I8)') IASTAT ! 0 #176 CALL ERRHDL(PATH,MODNAM,'E','298',DUMMY) AVETIM.f90#88 WRITE (DUMMY,'(I8)') NAVE ! 0 #89 CALL ERRHDL(PATH,MODNAM,'E','210',DUMMY) #110 WRITE (DUMMY,'(I8)') NAVE ! 0 #111 CALL ERRHDL(PATH,MODNAM,'E','210',DUMMY) CHKCLM.f90#34 WRITE (DUMMY,'(I8.8)') KURDAT #35 CALL ERRHDL(PATH,MODNAM,'I','440',DUMMY) CHKDAT.f90#45 WRITE (DUMMY,'(I8.8)') KURDAT ! 0 #46 CALL ERRHDL(PATH,MODNAM,'E','450',DUMMY) #51 WRITE (DUMMY,'(I8.8)') KURDAT ! 0 #52 CALL ERRHDL(PATH,MODNAM,'E','450',DUMMY) #56 WRITE (DUMMY,'(I8.8)') KURDAT ! 0 #57 CALL ERRHDL(PATH,MODNAM,'E','450',DUMMY) CMPDAT.f90#36 WRITE (DUMMY,'(I8.8)') KURDAT ! 0 #37 CALL ERRHDL(PATH,MODNAM,'E','456',DUMMY) COCARD.f90#360 DUMMY = ' OLM ' ! 0 #362 DUMMY = ' PVMRM ' ! 0 #364 CALL ERRHDL(PATH,MODNAM,'E','283',DUMMY) ! 0 #370 DUMMY = 'SAVEFILE' ! 0 #378 DUMMY = 'INITFILE' ! 0 #495 99 CALL ERRHDL(PATH,MODNAM,'E','500',DUMMY) ! 0 #496 IF ( DUMMY.EQ.'SAVEFILE' ) THEN #499 ELSEIF ( DUMMY.EQ.'INITFILE' ) THEN DAYRNG.f90#78 WRITE (DUMMY,'(I8)') JDAY ! 0 #79 CALL ERRHDL(PATH,MODNAM,'W','350',DUMMY) #111 WRITE (DUMMY,'(I3,"-",I3)') JDAYB , JDAYE ! 0 #112 CALL ERRHDL(PATH,MODNAM,'W','350',DUMMY) #142 WRITE (DUMMY,'(I8)') JDAY ! 0 #143 CALL ERRHDL(PATH,MODNAM,'W','350',DUMMY) #193 WRITE (DUMMY,'(I3,"-",I3)') JDAYB , JDAYE ! 0 #194 CALL ERRHDL(PATH,MODNAM,'W','350',DUMMY) DEBOPT.f90#85 DUMMY = 'DBGFIL' ! 0 #91 DUMMY = 'DBMFIL' ! 0 #98 99 CALL ERRHDL(PATH,MODNAM,'E','500',DUMMY) ! 0 DISCAR.f90#70 WRITE (DUMMY,'(I8)') NREC ! 0 #71 CALL ERRHDL(PATH,MODNAM,'E','219',DUMMY) DISPOL.f90#73 WRITE (DUMMY,'(I8)') NREC ! 0 #74 CALL ERRHDL(PATH,MODNAM,'E','219',DUMMY) EMVARY.f90#89 WRITE (DUMMY,'(I8)') NQF ! 0 #90 CALL ERRHDL(PATH,MODNAM,'E','260',DUMMY) #133 WRITE (DUMMY,'(I8)') NQF ! 0 #134 CALL ERRHDL(PATH,MODNAM,'E','260',DUMMY) EVCART.f90#54 WRITE (DUMMY,'(I8)') NREC ! 0 #55 CALL ERRHDL(PATH,MODNAM,'E','219',DUMMY) #116 WRITE (DUMMY,'(I8)') NARC ! 0 #117 CALL ERRHDL(PATH,MODNAM,'E','254',DUMMY) EVLOOP.f90#89 WRITE (DUMMY,'(I8.8)') KURDAT ! 0 #90 CALL ERRHDL(PATH,MODNAM,'I','470',DUMMY) EVPER.f90#42 WRITE (DUMMY,'(I8)') NEVE ! 0 #43 CALL ERRHDL(PATH,MODNAM,'E','290',DUMMY) EV_CHKDAT.f90#39 WRITE (DUMMY,'(4I2.2)') IYEAR , IMONTH , IDAY , IHOUR ! 0 #40 CALL ERRHDL(PATH,MODNAM,'E','450',DUMMY) EV_SETUP.f90#194 WRITE (DUMMY,'(I5.5)') IFSTAT #195 CALL ERRHDL(PATH,MODNAM,'E','125',DUMMY) FILOPN.f90#30 DUMMY = 'RUN-STRM' ! 7 #36 DUMMY = 'OUTPUT' ! 3 #53 99 CALL ERRHDL(PATH,MODNAM,'E','500',DUMMY) ! 4 #56 IF ( DUMMY.EQ.'RUN-STRM' ) THEN GENCAR.f90#89 WRITE (DUMMY,'(I8)') IXM ! 0 #90 CALL ERRHDL(PATH,MODNAM,'E','225',DUMMY) #99 WRITE (DUMMY,'(I8)') IYM ! 0 #100 CALL ERRHDL(PATH,MODNAM,'E','226',DUMMY) GENPOL.f90#89 WRITE (DUMMY,'(I8)') IYM ! 0 #90 CALL ERRHDL(PATH,MODNAM,'E','226',DUMMY) HQREAD.f90#115 WRITE (DUMMY,'(A8)') SRCID(IS) ! 0 #128 WRITE (DUMMY,'(I8.8)') KURDAT ! 0 #129 CALL ERRHDL(PATH,MODNAM,'E','455',DUMMY) HRLOOP.f90#275 WRITE (DUMMY,'(I8.8)') KURDAT ! 0 #276 CALL ERRHDL(PATH,MODNAM,'I','470',DUMMY) HRQEXT.f90#107 WRITE (DUMMY,'(I8.8)') KURDAT ! 0 #108 CALL ERRHDL(PATH,MODNAM,'E','455',DUMMY) #115 WRITE (DUMMY,'(A8)') SRCID(IS) ! 0 INPPDM.f90#62 WRITE (DUMMY,'(I8)') NPDMAX ! 0 #63 CALL ERRHDL(PATH,MODNAM,'E','245',DUMMY) #101 WRITE (DUMMY,'(I8)') NPDMAX ! 0 #102 CALL ERRHDL(PATH,MODNAM,'E','245',DUMMY) INPPDN.f90#65 WRITE (DUMMY,'(I8)') NPDMAX ! 0 #66 CALL ERRHDL(PATH,MODNAM,'E','245',DUMMY) #107 WRITE (DUMMY,'(I8)') NPDMAX ! 0 #108 CALL ERRHDL(PATH,MODNAM,'E','245',DUMMY) INPPHI.f90#63 WRITE (DUMMY,'(I8)') NPDMAX ! 0 #64 CALL ERRHDL(PATH,MODNAM,'E','245',DUMMY) #105 WRITE (DUMMY,'(I8)') NPDMAX ! 0 #106 CALL ERRHDL(PATH,MODNAM,'E','245',DUMMY) JULIAN.f90#68 WRITE (DUMMY,'("YR= ",I4)') INYR ! 0 #69 CALL ERRHDL(PATH,MODNAM,'E','370',DUMMY) MAIN1.f90#771 CHARACTER WORKID*8 , DUMMY*8 MAXFIL.f90#70 99 WRITE (DUMMY,'("MAXFL",I3.3)') IMXUNT(IGRP,IAVE) ! 0 #71 CALL ERRHDL(PATH,MODNAM,'E','520',DUMMY) MEOPEN.f90#117 WRITE (DUMMY,'(2X,I5.5)') METVER ! 0 #118 CALL ERRHDL(PATH,MODNAM,'E','395',DUMMY) MEREAD.f90#232 WRITE (DUMMY,'(I8)') MXPLVL ! 0 #233 CALL ERRHDL(PATH,MODNAM,'E','465',DUMMY) #291 WRITE (DUMMY,'(I8)') MXPLVL ! 0 #292 CALL ERRHDL(PATH,MODNAM,'E','465',DUMMY) METEXT.f90#254 WRITE (DUMMY,'(I8)') MXPLVL ! 0 #255 CALL ERRHDL(PATH,MODNAM,'E','465',DUMMY) #301 WRITE (DUMMY,'(I8)') MXPLVL ! 0 #302 CALL ERRHDL(PATH,MODNAM,'E','465',DUMMY) #348 WRITE (DUMMY,'(I8.8)') KURDAT ! 0 #349 CALL ERRHDL(PATH,MODNAM,'E','487',DUMMY) METQA.f90#49 WRITE (DUMMY,'(I8.8)') KURDAT ! 0 #50 CALL ERRHDL(PATH,MODNAM,'W','410',DUMMY) #62 WRITE (DUMMY,'(I8.8)') KURDAT ! 0 #63 CALL ERRHDL(PATH,MODNAM,'W','420',DUMMY) #68 WRITE (DUMMY,'(I8.8)') KURDAT ! 0 #69 CALL ERRHDL(PATH,MODNAM,'W','420',DUMMY) #80 WRITE (DUMMY,'(I8.8)') KURDAT ! 0 #81 CALL ERRHDL(PATH,MODNAM,'W','475',DUMMY) #89 WRITE (DUMMY,'(I8.8)') KURDAT ! 0 #90 CALL ERRHDL(PATH,MODNAM,'W','430',DUMMY) #96 WRITE (DUMMY,'(I8.8)') KURDAT ! 0 #97 CALL ERRHDL(PATH,MODNAM,'W','432',DUMMY) #103 WRITE (DUMMY,'(I8.8)') KURDAT ! 0 #104 CALL ERRHDL(PATH,MODNAM,'W','438',DUMMY) #107 WRITE (DUMMY,'(I8.8)') KURDAT ! 0 #108 CALL ERRHDL(PATH,MODNAM,'W','438',DUMMY) #116 WRITE (DUMMY,'(I8.8)') KURDAT ! 0 #117 CALL ERRHDL(PATH,MODNAM,'W','435',DUMMY) MODOPT.f90#212 WRITE (DUMMY,'(I4)') NTYP ! 0 #213 CALL ERRHDL(PATH,MODNAM,'E','290',DUMMY) MXEVNT.f90#64 WRITE (DUMMY,'(3X,I2.2,3X)') IAVEP ! 0 #65 CALL ERRHDL(PATH,MODNAM,'W','413',DUMMY) #126 99 WRITE (DUMMY,'("MAXFL",I3.3)') IMXUNT(IGRP,IAVE) ! 0 #127 CALL ERRHDL(PATH,MODNAM,'E','510',DUMMY) O3EXT.f90#42 WRITE (DUMMY,'(I8.8)') KURDAT ! 0 #43 CALL ERRHDL(PATH,MODNAM,'E','457',DUMMY) #52 WRITE (DUMMY,'(I8.8)') KURDAT ! 0 #53 CALL ERRHDL(PATH,MODNAM,'I','458',DUMMY) #60 WRITE (DUMMY,'(I8.8)') KURDAT ! 0 #61 CALL ERRHDL(PATH,MODNAM,'I','459',DUMMY) OLMGRP.f90#56 WRITE (DUMMY,'(I8)') NOLM ! 0 #57 CALL ERRHDL(PATH,MODNAM,'E','281',DUMMY) OUEVAL.f90#130 99 WRITE (DUMMY,'("EVLFL",I3.3)') IELUNT(INDSRC) ! 0 #131 CALL ERRHDL(PATH,MODNAM,'E','500',DUMMY) OUHIGH.f90#159 WRITE (DUMMY,'(I8)') NVAL ! 0 #160 CALL ERRHDL(PATH,MODNAM,'E','270',DUMMY) OUMXFL.f90#188 DUMMY = 'INITFILE' ! 0 #192 DUMMY = 'MAXIFILE' #239 99 WRITE (DUMMY,'("MAXFL",I3.3)') IMXUNT(INDGRP,INDAVE) ! 0 #240 CALL ERRHDL(PATH,MODNAM,'E','500',DUMMY) #245 919 CALL ERRHDL(PATH,MODNAM,'E','510',DUMMY) ! 0 OUMXVL.f90#95 WRITE (DUMMY,'(I8)') NMAX ! 0 #96 CALL ERRHDL(PATH,MODNAM,'E','280',DUMMY) OUPLOT.f90#244 99 WRITE (DUMMY,'("PLTFL",I3.3)') IPLUNT(INDVAL,INDGRP,INDAVE) ! 0 #245 CALL ERRHDL(PATH,MODNAM,'E','500',DUMMY) OUPOST.f90#235 DUMMY = 'INITFILE' ! 0 #239 DUMMY = 'POSTFILE' #262 DUMMY = 'INITFILE' ! 0 #266 DUMMY = 'POSTFILE' #317 99 WRITE (DUMMY,'("PSTFL",I3.3)') IPSUNT(INDGRP,INDAVE) ! 0 #318 CALL ERRHDL(PATH,MODNAM,'E','500',DUMMY) #323 919 CALL ERRHDL(PATH,MODNAM,'E','510',DUMMY) ! 0 OURANK.f90#102 WRITE (DUMMY,'(I8)') NMAX ! 0 #103 CALL ERRHDL(PATH,MODNAM,'E','280',DUMMY) #178 99 WRITE (DUMMY,'("RNKFL",I3.3)') IRKUNT(INDAVE) ! 0 #179 CALL ERRHDL(PATH,MODNAM,'E','500',DUMMY) OUSEAS.f90#135 99 WRITE (DUMMY,'("SEAHR",I3.3)') ISHUNT(INDGRP) ! 0 #136 CALL ERRHDL(PATH,MODNAM,'E','500',DUMMY) OUTOXX.f90#85 WRITE (DUMMY,'(2X,I4,2X)') IPRDT ! 0 #86 CALL ERRHDL(PATH,MODNAM,'W','385',DUMMY) #185 99 WRITE (DUMMY,'("TOXFL",I3.3)') ITXUNT(INDAVE) ! 0 #186 CALL ERRHDL(PATH,MODNAM,'E','500',DUMMY) PERPLT.f90#163 99 WRITE (DUMMY,'("PLTFL",I3.3)') IPPUNT(INDGRP) ! 0 #164 CALL ERRHDL(PATH,MODNAM,'E','500',DUMMY) PERPST.f90#176 99 WRITE (DUMMY,'("PSTFL",I3.3)') IAPUNT(INDGRP) ! 0 #177 CALL ERRHDL(PATH,MODNAM,'E','500',DUMMY) PFRACT.f90#78 WRITE (DUMMY,'(I8.8)') KURDAT ! 0 #79 CALL ERRHDL(PATH,MODNAM,'I','405',DUMMY) PLOTFL.f90#112 99 WRITE (DUMMY,'("PLTFL",I3.3)') IPLUNT(IVAL,IGRP,IAVE) ! 0 #113 CALL ERRHDL(PATH,MODNAM,'E','520',DUMMY) PLTANN.f90#93 99 WRITE (DUMMY,'("PLTFL",I3.3)') IPPUNT(IGRP) ! 0 #94 CALL ERRHDL(PATH,MODNAM,'E','520',DUMMY) POLDST.f90#63 WRITE (DUMMY,'(I8)') IXM ! 0 #64 CALL ERRHDL(PATH,MODNAM,'E','225',DUMMY) POSTFL.f90#79 99 WRITE (DUMMY,'("PSTFL",I3.3)') IPSUNT(IGRP,IAVE) ! 0 #80 CALL ERRHDL(PATH,MODNAM,'E','520',DUMMY) PSTANN.f90#110 99 WRITE (DUMMY,'("PSTFL",I3.3)') IAPUNT(IGRP) ! 0 #111 CALL ERRHDL(PATH,MODNAM,'E','520',DUMMY) RADRNG.f90#69 WRITE (DUMMY,'(I8)') IYM ! 0 #70 CALL ERRHDL(PATH,MODNAM,'E','226',DUMMY) RANKFL.f90#88 99 WRITE (DUMMY,'("RNKFL",I3.3)') IRKUNT(IAVE) ! 0 #89 CALL ERRHDL(PATH,MODNAM,'E','520',DUMMY) RECART.f90#56 WRITE (DUMMY,'(I8)') NNET ! 0 #57 CALL ERRHDL(PATH,MODNAM,'E','224',DUMMY) REPOLR.f90#54 WRITE (DUMMY,'(I8)') NNET ! 0 #55 CALL ERRHDL(PATH,MODNAM,'E','224',DUMMY) RSINIT.f90#115 99 DUMMY = 'INITFILE' ! 0 #116 CALL ERRHDL(PATH,MODNAM,'E','510',DUMMY) #121 999 DUMMY = 'INITFILE' ! 0 #122 CALL ERRHDL(PATH,MODNAM,'E','580',DUMMY) SETCAR.f90#43 WRITE (DUMMY,'(I8)') NREC ! 0 #44 CALL ERRHDL(PATH,MODNAM,'E','219',DUMMY) #49 WRITE (DUMMY,'(I8)') IXM ! 0 #50 CALL ERRHDL(PATH,MODNAM,'E','225',DUMMY) #55 WRITE (DUMMY,'(I8)') IYM ! 0 #56 CALL ERRHDL(PATH,MODNAM,'E','226',DUMMY) #89 WRITE (DUMMY,'(I8)') NREC ! 0 #90 CALL ERRHDL(PATH,MODNAM,'E','219',DUMMY) #104 WRITE (DUMMY,'(I8)') NREC ! 0 #105 CALL ERRHDL(PATH,MODNAM,'E','219',DUMMY) #119 WRITE (DUMMY,'(I8)') NREC ! 0 #120 CALL ERRHDL(PATH,MODNAM,'E','219',DUMMY) SETPOL.f90#44 WRITE (DUMMY,'(I8)') NREC ! 0 #45 CALL ERRHDL(PATH,MODNAM,'E','219',DUMMY) #50 WRITE (DUMMY,'(I8)') IXM ! 0 #51 CALL ERRHDL(PATH,MODNAM,'E','225',DUMMY) #56 WRITE (DUMMY,'(I8)') IYM ! 0 #57 CALL ERRHDL(PATH,MODNAM,'E','226',DUMMY) #93 WRITE (DUMMY,'(I8)') NREC ! 0 #94 CALL ERRHDL(PATH,MODNAM,'E','219',DUMMY) #108 WRITE (DUMMY,'(I8)') NREC ! 0 #109 CALL ERRHDL(PATH,MODNAM,'E','219',DUMMY) #123 WRITE (DUMMY,'(I8)') NREC ! 0 #124 CALL ERRHDL(PATH,MODNAM,'E','219',DUMMY) SETUP.f90#217 WRITE (DUMMY,'(I5.5)') IFSTAT #218 CALL ERRHDL(PATH,MODNAM,'E','125',DUMMY) SET_DATES.f90#49 WRITE (DUMMY,'("YR= ",I4)') IYR ! 0 #50 CALL ERRHDL(PATH,MODNAM,'E','365',DUMMY) SET_METDATA.f90#305 WRITE (DUMMY,'(I8.8)') KURDAT #306 CALL ERRHDL(PATH,MODNAM,'E','460',DUMMY) #309 WRITE (DUMMY,'(I8.8)') KURDAT ! 208 #310 CALL ERRHDL(PATH,MODNAM,'I','460',DUMMY) SHOUT.f90#82 99 WRITE (DUMMY,'("SHFIL",I3.3)') ISHUNT(IGRP) ! 0 #83 CALL ERRHDL(PATH,MODNAM,'E','520',DUMMY) SOGRP.f90#56 WRITE (DUMMY,'(I8)') NGRP ! 0 #57 CALL ERRHDL(PATH,MODNAM,'E','235',DUMMY) SOLOCA.f90#103 WRITE (DUMMY,'(I8)') NSRC ! 0 #104 CALL ERRHDL(PATH,MODNAM,'E','232',DUMMY) TGDATA.f90#53 CHARACTER TGELEV*6 , DUMMY*8 , PATH*2 , MODNAM*6 #66 WRITE (DUMMY,'(I8)') IASTAT ! 0 #67 CALL ERRHDL(PATH,MODNAM,'E','299',DUMMY) TGQA.f90#130 WRITE (DUMMY,'("RE#",i5.5)') I ! 0 #131 CALL ERRHDL(PATH,MODNAM,'W','394',DUMMY) TOXXFL.f90#78 99 WRITE (DUMMY,'("TOXFL",I3.3)') ITXUNT(IAVE) ! 0 #79 CALL ERRHDL(PATH,MODNAM,'E','520',DUMMY) XYPNTS.f90#65 WRITE (DUMMY,'(I8)') IXM ! 0 #66 CALL ERRHDL(PATH,MODNAM,'E','225',DUMMY) #105 WRITE (DUMMY,'(I8)') IYM ! 0 #106 CALL ERRHDL(PATH,MODNAM,'E','226',DUMMY)
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