ACPARM.f90#48 IF ( AQS(ISDX).EQ.0.0 ) CALL ERRHDL(PATH,MODNAM,'W','320',' QS ') ! 0 #52 CALL ERRHDL(PATH,MODNAM,'E','209',' HS ') ! 0 #55 CALL ERRHDL(PATH,MODNAM,'W','320',' HS ') ! 0 #60 CALL ERRHDL(PATH,MODNAM,'E','209',' RADIUS ') ! 0 #63 CALL ERRHDL(PATH,MODNAM,'W','320',' RADIUS ') ! 0 #68 CALL ERRHDL(PATH,MODNAM,'E','209',' SZINIT ') ! 0 #74 CALL ERRHDL(PATH,MODNAM,'W','320',' SZINIT ') ! 0 #79 CALL ERRHDL(PATH,MODNAM,'E','320',' NVERT ') ! 0 #83 CALL ERRHDL(PATH,MODNAM,'E','320',' NVERT ') ! 0 AERMOD.f90#692 CALL ERRHDL(PATH,MODNAM,'E','298',DUMMY) #699 CALL ERRHDL(PATH,MODNAM,'E','298',DUMMY) #786 CALL ERRHDL(PATH,MODNAM,'E','480','NUMYRS=0') ! 0 #792 CALL ERRHDL(PATH,MODNAM,'W','485',DUMMY) ALLRESULT.f90#60 CALL ERRHDL(PATH,MODNAM,'E','299',DUMMY) #77 CALL ERRHDL(PATH,MODNAM,'E','299',DUMMY) #85 CALL ERRHDL(PATH,MODNAM,'E','299',DUMMY) #93 CALL ERRHDL(PATH,MODNAM,'E','299',DUMMY) #102 CALL ERRHDL(PATH,MODNAM,'E','299',DUMMY) ALLSETUP.f90#38 CALL ERRHDL(PATH,MODNAM,'E','298',DUMMY) #51 CALL ERRHDL(PATH,MODNAM,'E','298',DUMMY) #60 CALL ERRHDL(PATH,MODNAM,'E','298',DUMMY) #69 CALL ERRHDL(PATH,MODNAM,'E','298',DUMMY) #83 CALL ERRHDL(PATH,MODNAM,'E','298',DUMMY) #91 CALL ERRHDL(PATH,MODNAM,'E','298',DUMMY) #104 CALL ERRHDL(PATH,MODNAM,'E','298',DUMMY) #114 CALL ERRHDL(PATH,MODNAM,'E','298',DUMMY) #132 CALL ERRHDL(PATH,MODNAM,'E','298',DUMMY) #138 CALL ERRHDL(PATH,MODNAM,'E','298',DUMMY) #144 CALL ERRHDL(PATH,MODNAM,'E','298',DUMMY) #152 CALL ERRHDL(PATH,MODNAM,'E','298',DUMMY) #160 CALL ERRHDL(PATH,MODNAM,'E','298',DUMMY) #168 CALL ERRHDL(PATH,MODNAM,'E','298',DUMMY) #176 CALL ERRHDL(PATH,MODNAM,'E','298',DUMMY) APARM.f90#67 IF ( AQS(ISDX).EQ.0.0 ) CALL ERRHDL(PATH,MODNAM,'W','320',' QS ') ! 9 #71 CALL ERRHDL(PATH,MODNAM,'E','209',' HS ') ! 0 #74 CALL ERRHDL(PATH,MODNAM,'W','320',' HS ') ! 0 #79 & CALL ERRHDL(PATH,MODNAM,'E','209',' XINIT ') #82 & CALL ERRHDL(PATH,MODNAM,'E','209',' YINIT ') #85 CALL ERRHDL(PATH,MODNAM,'W','320',' XINIT ') ! 0 #91 CALL ERRHDL(PATH,MODNAM,'W','320',' YINIT ') ! 0 #97 & CALL ERRHDL(PATH,MODNAM,'W','320',' XINIT ') #100 & CALL ERRHDL(PATH,MODNAM,'W','320',' YINIT ') #103 & CALL ERRHDL(PATH,MODNAM,'W','320',' ANGLE ') #108 CALL ERRHDL(PATH,MODNAM,'E','209',' SZINIT ') ! 0 #114 CALL ERRHDL(PATH,MODNAM,'W','320',' SZINIT ') ! 0 #122 & CALL ERRHDL(PATH,MODNAM,'W','391',SRCID(ISDX)) APPARM.f90#45 IF ( AQS(ISDX).EQ.0.0 ) CALL ERRHDL(PATH,MODNAM,'W','320',' QS ') ! 0 #49 CALL ERRHDL(PATH,MODNAM,'E','209',' HS ') ! 0 #52 CALL ERRHDL(PATH,MODNAM,'W','320',' HS ') ! 0 #57 CALL ERRHDL(PATH,MODNAM,'E','209',' SZINIT ') ! 0 #63 CALL ERRHDL(PATH,MODNAM,'W','320',' SZINIT ') ! 0 #68 CALL ERRHDL(PATH,MODNAM,'E','320',' NVERT ') ! 0 #71 CALL ERRHDL(PATH,MODNAM,'E','320',' NVERT ') ! 0 #74 CALL ERRHDL(PATH,MODNAM,'W','320',' NVERT ') ! 0 AREAIN.f90#71 CALL ERRHDL(PATH,MODNAM,'E','406',SRCID(ISRC)) ! 0 #106 CALL ERRHDL(PATH,MODNAM,'E','406',SRCID(ISRC)) ! 0 ARVERT.f90#46 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #52 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #60 & CALL ERRHDL(PATH,MODNAM,'E','262',SRCID(ISDX)) #62 & CALL ERRHDL(PATH,MODNAM,'E','262',SRCID(ISDX)) #71 CALL ERRHDL(PATH,MODNAM,'E','264',SRCID(ISDX)) ! 0 #77 CALL ERRHDL(PATH,MODNAM,'E','300',KEYWRD) ! 0 ASNGRP.f90#21 & PATH*2 , MODNAM*6 , IID2*8 , LID2*8 , HID2*8 #27 PATH = 'SO' AVETIM.f90#38 IF ( IFC.LT.3 ) CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) #52 & CALL ERRHDL(PATH,MODNAM,'E','294',KEYWRD) #57 IF ( IFC.GT.NAVE+3 ) CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 3 #60 IF ( IFC.GT.NAVE+2 ) CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #72 & CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) #84 & CALL ERRHDL(PATH,MODNAM,'E','211',KEYWRD) #89 CALL ERRHDL(PATH,MODNAM,'E','210',DUMMY) #93 CALL ERRHDL(PATH,MODNAM,'E','203','AVEPER') ! 0 #106 & CALL ERRHDL(PATH,MODNAM,'E','211',KEYWRD) #111 CALL ERRHDL(PATH,MODNAM,'E','210',DUMMY) CALC.f90#30 PATH = 'CN' CHKCLM.f90#35 CALL ERRHDL(PATH,MODNAM,'I','440',DUMMY) CHKDAT.f90#46 CALL ERRHDL(PATH,MODNAM,'E','450',DUMMY) #52 CALL ERRHDL(PATH,MODNAM,'E','450',DUMMY) #57 CALL ERRHDL(PATH,MODNAM,'E','450',DUMMY) CMPDAT.f90#37 CALL ERRHDL(PATH,MODNAM,'E','456',DUMMY) COCARD.f90#62 IF ( ICSTAT(1).NE.1 ) CALL ERRHDL(PATH,MODNAM,'W','135',KEYWRD) #68 CALL ERRHDL(PATH,MODNAM,'W','135',KEYWRD) ! 0 #78 CALL ERRHDL(PATH,MODNAM,'W','135',KEYWRD) ! 0 #88 CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) ! 0 #98 CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) ! 0 #108 CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) ! 0 #111 CALL ERRHDL(PATH,MODNAM,'E','140',KEYWRD) ! 0 #120 CALL ERRHDL(PATH,MODNAM,'W','155',KEYWRD) ! 0 #127 CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) ! 0 #134 CALL ERRHDL(PATH,MODNAM,'W','155',KEYWRD) ! 0 #141 CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) ! 0 #149 CALL ERRHDL(PATH,MODNAM,'E','140',KEYWRD) ! 0 #152 CALL ERRHDL(PATH,MODNAM,'E','140',KEYWRD) ! 0 #161 CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) ! 0 #171 CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) ! 0 #181 CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) ! 0 #191 CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) ! 0 #201 CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) ! 0 #211 CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) ! 0 #221 CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) ! 0 #231 CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) ! 0 #241 CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) ! 0 #251 CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) ! 0 #261 CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) ! 0 #271 CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) ! 0 #281 CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) ! 0 #291 CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) ! 0 #298 CALL ERRHDL(PATH,MODNAM,'E','142',KEYWRD) ! 0 #306 CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) ! 0 #313 CALL ERRHDL(PATH,MODNAM,'E','142',KEYWRD) ! 0 #321 CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) ! 0 #328 CALL ERRHDL(PATH,MODNAM,'E','143',KEYWRD) ! 0 #338 CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) ! 0 #344 & CALL ERRHDL(PATH,MODNAM,'E','130','STARTING') #346 & CALL ERRHDL(PATH,MODNAM,'E','130','TITLEONE') #348 & CALL ERRHDL(PATH,MODNAM,'E','130','MODELOPT') #350 & CALL ERRHDL(PATH,MODNAM,'E','130','AVERTIME') #352 & CALL ERRHDL(PATH,MODNAM,'E','130','POLLUTID') #354 & CALL ERRHDL(PATH,MODNAM,'E','130','RUNORNOT') #364 CALL ERRHDL(PATH,MODNAM,'E','283',DUMMY) ! 0 #387 CALL ERRHDL(PATH,MODNAM,'E','295',' 1h Only') ! 0 #390 CALL ERRHDL(PATH,MODNAM,'E','295',' 1h Only') ! 0 #393 IF ( PERIOD ) CALL ERRHDL(PATH,MODNAM,'E','295',' 1h Only') ! 0 #440 & CALL ERRHDL(PATH,MODNAM,'E','154','ST AVES') #443 & CALL ERRHDL(PATH,MODNAM,'E','154','PERIOD') #448 CALL ERRHDL(PATH,MODNAM,'W','156',' DEPOS ') #452 & CALL ERRHDL(PATH,MODNAM,'E','198','GDSEASON') #455 & CALL ERRHDL(PATH,MODNAM,'E','198','GASDEPDF') #458 & CALL ERRHDL(PATH,MODNAM,'E','198','GASDEPVD') #461 & CALL ERRHDL(PATH,MODNAM,'E','198','GDLANUSE') #482 & CALL ERRHDL(PATH,MODNAM,'E','363','AVERTIME') #484 IF ( PERIOD ) CALL ERRHDL(PATH,MODNAM,'E','363','AVERTIME') #490 & CALL ERRHDL(PATH,MODNAM,'E','284',' NO2 ') #495 99 CALL ERRHDL(PATH,MODNAM,'E','500',DUMMY) ! 0 #508 CALL ERRHDL(PATH,MODNAM,'E','110',KEYWRD) ! 0 COMPTG.f90#45 PATH = 'MX' COUNIT.f90#33 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #37 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 #41 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #49 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 DAYRNG.f90#43 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #54 CALL FSPLIT(PATH,KEYWRD,FIELD(I),ILEN_FLD,'-',RMARK,BEGRNG, & #56 CALL FSPLIT(PATH,KEYWRD,BEGRNG,8,'/',GMARK,CMN1,CDY1) #58 & CALL FSPLIT(PATH,KEYWRD,ENDRNG,8,'/',GMARK,CMN2,CDY2) #65 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #74 CALL ERRHDL(PATH,MODNAM,'E','203','Juli Day') ! 0 #79 CALL ERRHDL(PATH,MODNAM,'W','350',DUMMY) #87 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #95 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #107 CALL ERRHDL(PATH,MODNAM,'E','203','Juli Day') ! 0 #112 CALL ERRHDL(PATH,MODNAM,'W','350',DUMMY) #120 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #128 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #138 CALL ERRHDL(PATH,MODNAM,'E','203','Juli Day') ! 0 #143 CALL ERRHDL(PATH,MODNAM,'W','350',DUMMY) #151 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #159 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #167 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #175 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #189 CALL ERRHDL(PATH,MODNAM,'E','203','Juli Day') ! 0 #194 CALL ERRHDL(PATH,MODNAM,'W','350',DUMMY) #199 CALL ERRHDL(PATH,MODNAM,'E','203','DAYRANGE') ! 0 DCDLAT.f90#34 PATH = 'ME' #50 CALL ERRHDL(PATH,MODNAM,'E','381',ALAT(3:10)) ! 0 #65 CALL ERRHDL(PATH,MODNAM,'E','381',ALAT(3:10)) ! 0 #72 CALL ERRHDL(PATH,MODNAM,'E','382',ALAT(3:10)) ! 0 #83 CALL ERRHDL(PATH,MODNAM,'E','382',ALAT(3:10)) DEBOPT.f90#37 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #40 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #78 CALL ERRHDL(PATH,MODNAM,'E','203',KEYWRD) ! 0 #98 99 CALL ERRHDL(PATH,MODNAM,'E','500',DUMMY) ! 0 DISCAR.f90#43 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #47 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #51 CALL ERRHDL(PATH,MODNAM,'W','228',KEYWRD) ! 0 #54 CALL ERRHDL(PATH,MODNAM,'W','228',KEYWRD) ! 0 #57 CALL ERRHDL(PATH,MODNAM,'W','229',KEYWRD) ! 0 #60 CALL ERRHDL(PATH,MODNAM,'W','229',KEYWRD) ! 0 #63 CALL ERRHDL(PATH,MODNAM,'W','229',KEYWRD) ! 0 #71 CALL ERRHDL(PATH,MODNAM,'E','219',DUMMY) #81 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #89 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #99 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #108 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #117 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #127 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #136 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #146 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #154 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 DISPOL.f90#46 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #50 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #54 CALL ERRHDL(PATH,MODNAM,'W','228',KEYWRD) ! 0 #57 CALL ERRHDL(PATH,MODNAM,'W','228',KEYWRD) ! 0 #60 CALL ERRHDL(PATH,MODNAM,'W','229',' ZFLAG ') ! 0 #63 CALL ERRHDL(PATH,MODNAM,'W','229',KEYWRD) ! 0 #66 CALL ERRHDL(PATH,MODNAM,'W','229',KEYWRD) ! 0 #74 CALL ERRHDL(PATH,MODNAM,'E','219',DUMMY) #84 IF ( IMIT.EQ.-1 ) CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) #89 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #101 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #110 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #119 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #129 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #138 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #148 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #156 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #169 CALL ERRHDL(PATH,MODNAM,'E','300',KEYWRD) ! 0 DPUNIT.f90#34 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #38 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 #42 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #50 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 DSBLDG.f90#39 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #43 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 #49 CALL FSPLIT(PATH,KEYWRD,SOID,ILEN_FLD,'-',RMARK,LID,HID) #61 CALL ERRHDL(PATH,MODNAM,'W','233',SRCID(ISDX)) ! 0 #65 CALL ERRHDL(PATH,MODNAM,'E','300',KEYWRD) ! 0 #73 CALL ERRHDL(PATH,MODNAM,'E','203','SRCRANGE') ! 0 DSFILL.f90#43 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #53 & CALL ERRHDL(PATH,MODNAM,'E','209',KEYWRD) #56 CALL ERRHDL(PATH,MODNAM,'E','234',KEYWRD) ! 0 #68 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #78 & CALL ERRHDL(PATH,MODNAM,'E','209',KEYWRD) #81 CALL ERRHDL(PATH,MODNAM,'E','234',KEYWRD) ! 0 #96 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #106 & CALL ERRHDL(PATH,MODNAM,'E','209',KEYWRD) #109 CALL ERRHDL(PATH,MODNAM,'E','234',KEYWRD) ! 0 #123 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #133 CALL ERRHDL(PATH,MODNAM,'E','234',KEYWRD) ! 0 #147 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #157 CALL ERRHDL(PATH,MODNAM,'E','234',KEYWRD) ! 0 EDECAY.f90#32 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #36 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #44 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #60 & CALL ERRHDL(PATH,MODNAM,'W','206','DCAYCOEF') #65 & CALL ERRHDL(PATH,MODNAM,'W','206','DCAYCOEF') EFFILL.f90#37 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #47 & CALL ERRHDL(PATH,MODNAM,'E','209',KEYWRD) #50 CALL ERRHDL(PATH,MODNAM,'E','231','QFACT') ! 0 EMUNIT.f90#32 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #36 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 #40 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #48 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 EMVARY.f90#45 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #49 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 #53 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 #59 CALL FSPLIT(PATH,KEYWRD,SOID,ILEN_FLD,'-',RMARK,LID,HID) #83 CALL ERRHDL(PATH,MODNAM,'E','203','QFLAG') ! 0 #90 CALL ERRHDL(PATH,MODNAM,'E','260',DUMMY) #94 CALL ERRHDL(PATH,MODNAM,'E','300',KEYWRD) ! 0 #102 CALL ERRHDL(PATH,MODNAM,'E','203','SRCRANGE') ! 0 #127 CALL ERRHDL(PATH,MODNAM,'E','203','QFLAG') ! 0 #134 CALL ERRHDL(PATH,MODNAM,'E','260',DUMMY) ERRFIL.f90#38 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #41 CALL ERRHDL(PATH,MODNAM,'W','207',KEYWRD) ! 0 EVCALC.f90#34 PATH = 'CN' EVCARD.f90#47 IF ( IESTAT(1).NE.1 ) CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) #78 & CALL ERRHDL(PATH,MODNAM,'E','130','EVENTLOC') #84 CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) ! 0 #132 & CALL ERRHDL(PATH,MODNAM,'E','130','STARTING') #134 & CALL ERRHDL(PATH,MODNAM,'E','130','EVENTPER') #136 & CALL ERRHDL(PATH,MODNAM,'E','130','EVENTLOC') #140 CALL ERRHDL(PATH,MODNAM,'E','110',KEYWRD) ! 0 EVCART.f90#42 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 #46 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #55 CALL ERRHDL(PATH,MODNAM,'E','219',DUMMY) #65 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #73 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #81 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #89 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #97 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #117 CALL ERRHDL(PATH,MODNAM,'E','254',DUMMY) EVEFIL.f90#98 99 CALL ERRHDL(PATH,MODNAM,'W','570',RUNST1(13:20)) ! 0 EVLOC.f90#36 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #40 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 #44 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #54 CALL ERRHDL(PATH,MODNAM,'E','203','EVNAME') ! 0 #63 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #73 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #82 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #89 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #102 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #118 CALL ERRHDL(PATH,MODNAM,'E','203','REC-TYPE') ! 0 EVLOOP.f90#90 CALL ERRHDL(PATH,MODNAM,'I','470',DUMMY) EVNTFL.f90#43 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #46 CALL ERRHDL(PATH,MODNAM,'W','207',KEYWRD) ! 0 #55 & CALL ERRHDL(PATH,MODNAM,'W','203','EVPARM') EVPER.f90#43 CALL ERRHDL(PATH,MODNAM,'E','290',DUMMY) #50 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #54 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 #60 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #74 CALL ERRHDL(PATH,MODNAM,'E','313',EVNAME(ISDX)) ! 0 #82 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #94 & CALL ERRHDL(PATH,MODNAM,'E','390',EVNAME(IEVENT)) #98 IF ( .NOT.FIND ) CALL ERRHDL(PATH,MODNAM,'E','203','AVEPER') ! 0 #108 CALL ERRHDL(PATH,MODNAM,'E','203','GROUPID') ! 0 #118 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #139 CALL ERRHDL(PATH,MODNAM,'E','203','Juli Day') ! 0 EV_CHKDAT.f90#40 CALL ERRHDL(PATH,MODNAM,'E','450',DUMMY) EV_HRQEXT.f90#52 CALL ERRHDL(PATH,MODNAM,'I','320','HRTS') ! 0 #58 CALL ERRHDL(PATH,MODNAM,'I','325','HRVS') ! 0 #66 CALL ERRHDL(PATH,MODNAM,'I','320','HRVS') ! 0 EV_METEXT.f90#62 PATH = 'MX' EV_OUCARD.f90#43 & CALL ERRHDL(PATH,MODNAM,'E','130','STARTING') #45 & CALL ERRHDL(PATH,MODNAM,'E','130','EVENTOUT') #48 CALL ERRHDL(PATH,MODNAM,'E','110',KEYWRD) ! 0 EV_SETORD.f90#32 CALL ERRHDL(PPATH,MODNAM,'E','115',PATH) ! 0 #34 IF ( PATH.EQ.'EV' .AND. PPATH.EQ.'ME' ) THEN ! 0 #39 CALL ERRHDL(PPATH,MODNAM,'E','120',PATH) ! 0 #49 CALL ERRHDL(PPATH,MODNAM,'E','115',PATH) ! 0 #50 ELSEIF ( ISTART .AND. PATH.NE.PPATH ) THEN #52 CALL ERRHDL(PPATH,MODNAM,'E','120',PATH) ! 0 #60 CALL ERRHDL(PPATH,MODNAM,'E','115',PATH) ! 0 #61 ELSEIF ( ISTART .AND. PATH.NE.PPATH ) THEN #63 CALL ERRHDL(PPATH,MODNAM,'E','120',PATH) ! 0 #67 PPATH = PATH ! 0 EV_SETUP.f90#131 CALL ERRHDL(PPATH,MODNAM,'E','100',PATH) ! 0 #132 PATH = PPATH #134 ELSEIF ( PATH.EQ.'**' ) THEN #143 CALL ERRHDL(PATH,MODNAM,'E','105',KEYWRD) ! 0 #152 IF ( PATH.EQ.'CO' ) THEN #155 ELSEIF ( PATH.EQ.'SO' ) THEN #158 ELSEIF ( PATH.EQ.'ME' ) THEN #161 ELSEIF ( PATH.EQ.'EV' ) THEN #164 ELSEIF ( PATH.EQ.'TG' ) THEN #167 ELSEIF ( PATH.EQ.'OU' ) THEN #178 IF ( PATH.EQ.'OU' .AND. KEYWRD.EQ.'FINISHED' ) GOTO 999 #195 CALL ERRHDL(PATH,MODNAM,'E','125',DUMMY) EXPATH.f90#39 PATH = INPFLD ! 534 #52 PATH = PPATH FILOPN.f90#53 99 CALL ERRHDL(PATH,MODNAM,'E','500',DUMMY) ! 4 FLAGDF.f90#40 IF ( IMIT.EQ.-1 ) CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) #47 CALL ERRHDL(PATH,MODNAM,'E','209','ZFLAG') ! 0 #50 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #53 CALL ERRHDL(PATH,MODNAM,'E','203',KEYWRD) ! 0 #57 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #60 CALL ERRHDL(PATH,MODNAM,'W','205','ZFLAG=0.') ! 0 FLGHGT.f90#46 CALL ERRHDL(PATH,MODNAM,'E','223',KTYPE) ! 0 #51 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #59 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #70 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 GASDEP.f90#45 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #49 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 #53 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #59 CALL FSPLIT(PATH,KEYWRD,SOID,ILEN_FLD,'-',RMARK,LID,HID) #73 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #75 CALL ERRHDL(PATH,MODNAM,'E','380','PDIFF') ! 0 #84 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #86 CALL ERRHDL(PATH,MODNAM,'E','380','PDIFFW') ! 0 #95 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #97 CALL ERRHDL(PATH,MODNAM,'E','380','RCLI') ! 0 #106 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #108 CALL ERRHDL(PATH,MODNAM,'E','380','HENRY') ! 0 #115 CALL ERRHDL(PATH,MODNAM,'E','300',KEYWRD) ! 0 #123 CALL ERRHDL(PATH,MODNAM,'E','203','SRCRANGE') ! 0 #139 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #141 CALL ERRHDL(PATH,MODNAM,'E','380','PDIFF') ! 0 #150 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #152 CALL ERRHDL(PATH,MODNAM,'E','380','PDIFFW') ! 0 #161 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #163 CALL ERRHDL(PATH,MODNAM,'E','380','RCLI') ! 0 #172 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #174 CALL ERRHDL(PATH,MODNAM,'E','380','HENRY') ! 0 GDDEF.f90#32 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #36 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 #40 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #50 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #60 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #70 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 GDLAND.f90#34 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #38 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 #42 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #52 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #64 CALL ERRHDL(PATH,MODNAM,'E','380',KEYWRD) ! 0 #68 CALL ERRHDL(PATH,MODNAM,'E','234',KEYWRD) ! 0 GDSEAS.f90#33 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #37 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 #41 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #51 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #63 CALL ERRHDL(PATH,MODNAM,'E','380',KEYWRD) ! 0 #67 CALL ERRHDL(PATH,MODNAM,'E','234',KEYWRD) ! 0 GENCAR.f90#43 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #48 CALL ERRHDL(PATH,MODNAM,'E','202',KTYPE) ! 0 #53 CALL ERRHDL(PATH,MODNAM,'E','201',KTYPE) ! 0 #63 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #90 CALL ERRHDL(PATH,MODNAM,'E','225',DUMMY) #100 CALL ERRHDL(PATH,MODNAM,'E','226',DUMMY) GENPOL.f90#42 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #47 CALL ERRHDL(PATH,MODNAM,'E','201',KTYPE) ! 0 #52 CALL ERRHDL(PATH,MODNAM,'E','202',KTYPE) ! 0 #62 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #90 CALL ERRHDL(PATH,MODNAM,'E','226',DUMMY) GRDWS.f90#49 PATH = 'MX' GREGOR.f90#43 CALL ERRHDL(PATH,MODNAM,'E','203','MONTH') ! 0 #47 CALL ERRHDL(PATH,MODNAM,'E','203','Juli Day') ! 0 GVSUBD.f90#32 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #36 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 #40 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #50 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #59 CALL ERRHDL(PATH,MODNAM,'E','209',' USERVD ') ! 0 #62 CALL ERRHDL(PATH,MODNAM,'W','320',' USERVD ') ! 0 #65 CALL ERRHDL(PATH,MODNAM,'W','320',' USERVD ') ! 0 HILHGT.f90#41 CALL ERRHDL(PATH,MODNAM,'E','223',KTYPE) ! 0 #46 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #54 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #65 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 HQREAD.f90#60 CALL ERRHDL(PATH,MODNAM,'E','201','HOUREMIS') ! 0 #70 & CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) #75 & CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) #80 & CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) #85 & CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) #92 & CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) #102 & CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) #106 & CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) #116 CALL ERRHDL(PATH,MODNAM,'E','342',SRCID(IS)) #129 CALL ERRHDL(PATH,MODNAM,'E','455',DUMMY) #136 99 CALL ERRHDL(PATH,MODNAM,'E','510','HOUREMIS') ! 0 HREMIS.f90#53 CALL ERRHDL(PATH,MODNAM,'E','500',KEYWRD) ! 0 #60 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 #74 CALL FSPLIT(PATH,KEYWRD,FIELD(I),ILEN_FLD,'-',RMARK,LOWID, & #82 CALL ERRHDL(PATH,MODNAM,'E','203','SRCRANGE') ! 0 #95 998 CALL ERRHDL(PATH,MODNAM,'E','500',KEYWRD) ! 0 HRLOOP.f90#276 CALL ERRHDL(PATH,MODNAM,'I','470',DUMMY) HRQEXT.f90#55 CALL ERRHDL(PATH,MODNAM,'E','201','HOUREMIS') ! 0 #64 IF ( IMIT.NE.1 ) CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) #68 IF ( IMIT.NE.1 ) CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) #72 IF ( IMIT.NE.1 ) CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) #76 IF ( IMIT.NE.1 ) CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) #82 IF ( IMIT.NE.1 ) CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) #92 IF ( IMIT.NE.1 ) CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) #95 IF ( IMIT.NE.1 ) CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) #108 CALL ERRHDL(PATH,MODNAM,'E','455',DUMMY) #116 CALL ERRHDL(PATH,MODNAM,'E','342',SRCID(IS)) #138 CALL ERRHDL(PATH,MODNAM,'I','320','HRTS') ! 0 #143 CALL ERRHDL(PATH,MODNAM,'I','325','HRVS') ! 0 #151 CALL ERRHDL(PATH,MODNAM,'I','320','HRVS') ! 0 #158 99 CALL ERRHDL(PATH,MODNAM,'E','510','HOUREMIS') ! 0 INCLUD.f90#63 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #66 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #72 99 CALL ERRHDL(PATH,MODNAM,'E','500','INCFILE ') ! 0 #121 CALL ERRHDL(PPATH,MODNAM,'E','100',PATH) ! 0 #122 PATH = PPATH #124 ELSEIF ( PATH.EQ.'**' ) THEN #133 CALL ERRHDL(PATH,MODNAM,'E','105',KEYWRD) ! 0 #145 CALL ERRHDL(PATH,MODNAM,'E','140',KEYWRD) ! 0 #150 CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) ! 0 #154 CALL ERRHDL(PATH,MODNAM,'E','140',KEYWRD) ! 0 #157 ELSEIF ( PATH.EQ.'SO' ) THEN #160 ELSEIF ( PATH.EQ.'RE' ) THEN #163 ELSEIF ( PATH.EQ.'EV' ) THEN INITFL.f90#39 CALL ERRHDL(PATH,MODNAM,'E','145',KEYWRD) ! 0 #45 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #48 CALL ERRHDL(PATH,MODNAM,'W','207',KEYWRD) ! 0 INPPDM.f90#40 CALL FSPLIT(PATH,KEYWRD,SOID,ILEN_FLD,'-',RMARK,LID,HID) #52 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #63 CALL ERRHDL(PATH,MODNAM,'E','245',DUMMY) #70 CALL ERRHDL(PATH,MODNAM,'E','300',KEYWRD) ! 0 #78 CALL ERRHDL(PATH,MODNAM,'E','203','SRCRANGE') ! 0 #92 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #102 CALL ERRHDL(PATH,MODNAM,'E','245',DUMMY) INPPDN.f90#40 CALL FSPLIT(PATH,KEYWRD,SOID,ILEN_FLD,'-',RMARK,LID,HID) #52 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #57 & CALL ERRHDL(PATH,MODNAM,'E','334',SRCID(ISDX)) #66 CALL ERRHDL(PATH,MODNAM,'E','245',DUMMY) #73 CALL ERRHDL(PATH,MODNAM,'E','300',KEYWRD) ! 0 #81 CALL ERRHDL(PATH,MODNAM,'E','203','SRCRANGE') ! 0 #95 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #100 & CALL ERRHDL(PATH,MODNAM,'E','334',SRCID(ISDX)) #108 CALL ERRHDL(PATH,MODNAM,'E','245',DUMMY) INPPHI.f90#38 CALL FSPLIT(PATH,KEYWRD,SOID,ILEN_FLD,'-',RMARK,LID,HID) #50 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #55 & CALL ERRHDL(PATH,MODNAM,'E','332',SRCID(ISDX)) #64 CALL ERRHDL(PATH,MODNAM,'E','245',DUMMY) #71 CALL ERRHDL(PATH,MODNAM,'E','300',KEYWRD) ! 0 #79 CALL ERRHDL(PATH,MODNAM,'E','203','SRCRANGE') ! 0 #93 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #98 & CALL ERRHDL(PATH,MODNAM,'E','332',SRCID(ISDX)) #106 CALL ERRHDL(PATH,MODNAM,'E','245',DUMMY) JULIAN.f90#45 IF ( INYR.LT.100 ) CALL ERRHDL(PATH,MODNAM,'W','360',KEYWRD) #50 CALL ERRHDL(PATH,MODNAM,'E','203','MONTH') ! 0 #55 CALL ERRHDL(PATH,MODNAM,'E','203','DAY') ! 0 #69 CALL ERRHDL(PATH,MODNAM,'E','370',DUMMY) MAIN1.f90#191 CHARACTER PATH*2 , PPATH*2 , KEYWRD*8 , PKEYWD*8 , KEYWD*8 , & MAXFIL.f90#71 CALL ERRHDL(PATH,MODNAM,'E','520',DUMMY) MECARD.f90#40 IF ( IMSTAT(1).NE.1 ) CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) #47 CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) ! 0 #58 CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) ! 0 #69 CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) ! 0 #80 CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) ! 0 #91 CALL ERRHDL(PATH,MODNAM,'E','154',KEYWRD) ! 0 #95 CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) ! 0 #107 CALL ERRHDL(PATH,MODNAM,'E','154',KEYWRD) ! 0 #125 CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) ! 0 #136 CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) ! 0 #147 CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) ! 0 #158 CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) ! 0 #169 CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) ! 0 #180 CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) ! 0 #185 & CALL ERRHDL(PATH,MODNAM,'E','130','STARTING') #187 & CALL ERRHDL(PATH,MODNAM,'E','130','SURFFILE') #189 & CALL ERRHDL(PATH,MODNAM,'E','130','PROFFILE') #191 & CALL ERRHDL(PATH,MODNAM,'E','130','UAIRDATA') #193 & CALL ERRHDL(PATH,MODNAM,'E','130','PROFBASE') #195 & CALL ERRHDL(PATH,MODNAM,'E','130','SCIMBYHR') #232 CALL ERRHDL(PATH,MODNAM,'E','110',KEYWRD) ! 0 MEOPEN.f90#71 998 CALL ERRHDL(PATH,MODNAM,'E','500','SURFFILE') ! 1 #118 CALL ERRHDL(PATH,MODNAM,'E','395',DUMMY) #123 IF ( ISSI.NE.IDSURF ) CALL ERRHDL(PATH,MODNAM,'W','530','SURFDATA'& #126 IF ( IUSI.NE.IDUAIR ) CALL ERRHDL(PATH,MODNAM,'W','530','UAIRDATA'& #131 & CALL ERRHDL(PATH,MODNAM,'W','530','SITEDATA') #141 99 CALL ERRHDL(PATH,MODNAM,'E','510','SURFFILE') ! 0 #154 999 CALL ERRHDL(PATH,MODNAM,'E','500','PROFFILE') ! 1 MEREAD.f90#49 PATH = 'MX' #233 CALL ERRHDL(PATH,MODNAM,'E','465',DUMMY) #292 CALL ERRHDL(PATH,MODNAM,'E','465',DUMMY) #328 98 CALL ERRHDL(PATH,MODNAM,'E','510','PROFFILE') ! 0 #332 99 CALL ERRHDL(PATH,MODNAM,'E','510','SURFFILE') ! 0 METDAT.f90#194 99 CALL ERRHDL(PATH,MODNAM,'E','510','SURFFILE') ! 0 METEXT.f90#82 PATH = 'MX' #255 CALL ERRHDL(PATH,MODNAM,'E','465',DUMMY) #302 CALL ERRHDL(PATH,MODNAM,'E','465',DUMMY) #349 CALL ERRHDL(PATH,MODNAM,'E','487',DUMMY) #361 98 CALL ERRHDL(PATH,MODNAM,'E','510','PROFFILE') ! 0 #365 99 CALL ERRHDL(PATH,MODNAM,'E','510','SURFFILE') ! 0 METH_2.f90#38 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #42 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 #46 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #52 CALL FSPLIT(PATH,KEYWRD,SOID,ILEN_FLD,'-',RMARK,LID,HID) #65 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #75 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #90 CALL ERRHDL(PATH,MODNAM,'E','300',KEYWRD) ! 0 #98 CALL ERRHDL(PATH,MODNAM,'E','203','SRCRANGE') ! 0 #113 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #123 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 METQA.f90#50 CALL ERRHDL(PATH,MODNAM,'W','410',DUMMY) #63 CALL ERRHDL(PATH,MODNAM,'W','420',DUMMY) #69 CALL ERRHDL(PATH,MODNAM,'W','420',DUMMY) #81 CALL ERRHDL(PATH,MODNAM,'W','475',DUMMY) #90 CALL ERRHDL(PATH,MODNAM,'W','430',DUMMY) #97 CALL ERRHDL(PATH,MODNAM,'W','432',DUMMY) #104 CALL ERRHDL(PATH,MODNAM,'W','438',DUMMY) #108 CALL ERRHDL(PATH,MODNAM,'W','438',DUMMY) #117 CALL ERRHDL(PATH,MODNAM,'W','435',DUMMY) MODOPT.f90#61 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #64 CALL ERRHDL(PATH,MODNAM,'W','202',KEYWRD) ! 0 #131 CALL ERRHDL(PATH,MODNAM,'E','198',KOPT) ! 0 #143 CALL ERRHDL(PATH,MODNAM,'W','206',KOPT) ! 0 #152 CALL ERRHDL(PATH,MODNAM,'W','206',KOPT) ! 0 #161 CALL ERRHDL(PATH,MODNAM,'W','206',KOPT) ! 0 #169 CALL ERRHDL(PATH,MODNAM,'W','206',KOPT) ! 0 #176 CALL ERRHDL(PATH,MODNAM,'E','198',KOPT) ! 0 #183 CALL ERRHDL(PATH,MODNAM,'W','206',KOPT) ! 0 #190 CALL ERRHDL(PATH,MODNAM,'W','206',KOPT) ! 0 #197 CALL ERRHDL(PATH,MODNAM,'W','206',KOPT) ! 0 #201 CALL ERRHDL(PATH,MODNAM,'E','203',KOPT) ! 0 #207 & CALL ERRHDL(PATH,MODNAM,'E','141',' ') #213 CALL ERRHDL(PATH,MODNAM,'E','290',DUMMY) #216 CALL ERRHDL(PATH,MODNAM,'W','205','CONC') ! 0 MSGWRT.f90#58 READ (IERUNT,1116,END=99,ERR=999) PATH , ERRTP , ERRCD , & #62 WRITE (IERWRT,1117) PATH , ERRTP , ERRCD , IERRLN , MODNAM(1:6)& #73 999 CALL ERRHDL(PATH,MODNAM,'E','510','ERRORMSG') ! 0 MXEVNT.f90#65 CALL ERRHDL(PATH,MODNAM,'W','413',DUMMY) #127 CALL ERRHDL(PATH,MODNAM,'E','510',DUMMY) MYEAR.f90#35 CALL ERRHDL(PATH,MODNAM,'E','145',KEYWRD) ! 0 #39 CALL ERRHDL(PATH,MODNAM,'E','150',KEYWRD) ! 0 #50 CALL ERRHDL(PATH,MODNAM,'E','352',' H6H ') ! 0 #64 CALL ERRHDL(PATH,MODNAM,'E','352',' H6H ') ! 0 #68 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #71 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 #74 CALL ERRHDL(PATH,MODNAM,'E','352',' H6H ') ! 0 #77 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #82 & CALL ERRHDL(PATH,MODNAM,'W','353','PRE-1997') NO2EQ.f90#32 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #36 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #44 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #53 & CALL ERRHDL(PATH,MODNAM,'E','380','NO2Equil') NO2RAT.f90#39 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #43 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 #47 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #53 CALL FSPLIT(PATH,KEYWRD,SOID,ILEN_FLD,'-',RMARK,LID,HID) #63 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #68 & CALL ERRHDL(PATH,MODNAM,'E','336',SRCID(ISDX)) #73 CALL ERRHDL(PATH,MODNAM,'E','300',KEYWRD) ! 0 #81 CALL ERRHDL(PATH,MODNAM,'E','203','SRCRANGE') ! 0 #93 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #98 & CALL ERRHDL(PATH,MODNAM,'E','336',SRCID(IING)) O3EXT.f90#43 CALL ERRHDL(PATH,MODNAM,'E','457',DUMMY) #53 CALL ERRHDL(PATH,MODNAM,'I','458',DUMMY) #61 CALL ERRHDL(PATH,MODNAM,'I','459',DUMMY) #79 99 CALL ERRHDL(PATH,MODNAM,'E','510','OZONEFIL') ! 0 O3FIL.f90#35 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #39 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 #43 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #61 CALL ERRHDL(PATH,MODNAM,'E','203',' O3UNITS') ! 0 #76 998 CALL ERRHDL(PATH,MODNAM,'E','500',KEYWRD) ! 0 O3VAL.f90#32 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #36 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #44 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #58 CALL ERRHDL(PATH,MODNAM,'E','203',' O3UNITS') ! 0 #72 & CALL ERRHDL(PATH,MODNAM,'W','320',' O3BACK ') OEVENT.f90#33 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #37 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #49 CALL ERRHDL(PATH,MODNAM,'E','203',KEYWRD) ! 0 OLMGRP.f90#37 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #41 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 #57 CALL ERRHDL(PATH,MODNAM,'E','281',DUMMY) #74 CALL FSPLIT(PATH,KEYWRD,FIELD(I),ILEN_FLD,'-',RMARK,LOWID, & #82 CALL ERRHDL(PATH,MODNAM,'E','203','SRCRANGE') ! 0 ONDATA.f90#37 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #41 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 #45 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #52 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #60 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #75 IF ( IMIT.NE.1 ) CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) #77 IF ( IMIT.NE.1 ) CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) OPARM.f90#47 IF ( AQS(ISDX).EQ.0.0 ) CALL ERRHDL(PATH,MODNAM,'W','320',' QS ') #51 CALL ERRHDL(PATH,MODNAM,'E','209',' HS ') ! 0 #54 CALL ERRHDL(PATH,MODNAM,'W','320',' HS ') ! 0 #59 & CALL ERRHDL(PATH,MODNAM,'E','209',' XINIT ') #62 & CALL ERRHDL(PATH,MODNAM,'E','209',' YINIT ') #65 CALL ERRHDL(PATH,MODNAM,'W','320',' XINIT ') ! 0 #71 CALL ERRHDL(PATH,MODNAM,'W','320',' YINIT ') ! 0 #77 & CALL ERRHDL(PATH,MODNAM,'W','320',' XINIT ') #80 & CALL ERRHDL(PATH,MODNAM,'W','320',' YINIT ') #83 & CALL ERRHDL(PATH,MODNAM,'W','320',' ANGLE ') #87 & CALL ERRHDL(PATH,MODNAM,'E','209',' AVOLUM ') #93 & CALL ERRHDL(PATH,MODNAM,'W','392',SRCID(ISDX)) #99 & CALL ERRHDL(PATH,MODNAM,'E','322',SRCID(ISDX)) OUCARD.f90#77 CALL ERRHDL(PATH,MODNAM,'E','154',KEYWRD) ! 0 #96 CALL ERRHDL(PATH,MODNAM,'E','110',KEYWRD) ! 0 OUDALY.f90#35 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #39 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #61 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #77 CALL ERRHDL(PATH,MODNAM,'E','203','AVEPER') ! 0 OUEVAL.f90#35 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #39 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 #43 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #61 CALL ERRHDL(PATH,MODNAM,'E','203','SRCID') ! 0 #71 CALL ERRHDL(PATH,MODNAM,'E','203',' FILNAM ') ! 0 #80 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #86 CALL ERRHDL(PATH,MODNAM,'E','560',KEYWRD) ! 0 #91 CALL ERRHDL(PATH,MODNAM,'W','565',KEYWRD) ! 0 #111 CALL ERRHDL(PATH,MODNAM,'E','550',KEYWRD) ! 0 #116 CALL ERRHDL(PATH,MODNAM,'E','550',KEYWRD) ! 0 #131 CALL ERRHDL(PATH,MODNAM,'E','500',DUMMY) OUHIGH.f90#51 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #55 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 #59 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #83 CALL FSPLIT(PATH,KEYWRD,FIELD(3),ILEN_FLD,'-',RMARK,LPRD,HPRD) ! 0 #89 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #106 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #114 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #135 CALL ERRHDL(PATH,MODNAM,'E','203','AVEPER') ! 0 #144 CALL FSPLIT(PATH,KEYWRD,FIELD(I),ILEN_FLD,'-',RMARK,LPRD,HPRD) ! 3 #154 CALL ERRHDL(PATH,MODNAM,'E','203','HIVALU') ! 0 #160 CALL ERRHDL(PATH,MODNAM,'E','270',DUMMY) #169 & CALL ERRHDL(PATH,MODNAM,'E','354','RECTABLE') OUMXFL.f90#40 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #44 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 #48 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #60 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #78 CALL ERRHDL(PATH,MODNAM,'E','203','AVEPER') ! 0 #96 CALL ERRHDL(PATH,MODNAM,'E','203','GRPID') ! 0 #105 CALL ERRHDL(PATH,MODNAM,'E','211',KEYWRD) ! 0 #114 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #125 CALL ERRHDL(PATH,MODNAM,'E','203',' FILNAM ') ! 0 #134 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #140 CALL ERRHDL(PATH,MODNAM,'E','560',KEYWRD) ! 0 #145 CALL ERRHDL(PATH,MODNAM,'W','565',KEYWRD) ! 0 #155 & CALL ERRHDL(PATH,MODNAM,'W','565',KEYWRD) #169 CALL ERRHDL(PATH,MODNAM,'E','550',KEYWRD) ! 0 #174 CALL ERRHDL(PATH,MODNAM,'E','550',KEYWRD) ! 0 #240 CALL ERRHDL(PATH,MODNAM,'E','500',DUMMY) #245 919 CALL ERRHDL(PATH,MODNAM,'E','510',DUMMY) ! 0 OUMXVL.f90#36 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #40 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 #44 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #63 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #81 CALL ERRHDL(PATH,MODNAM,'E','203','AVEPER') ! 0 #89 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #96 CALL ERRHDL(PATH,MODNAM,'E','280',DUMMY) #100 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 OUPLOT.f90#42 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #46 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 #50 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #68 CALL ERRHDL(PATH,MODNAM,'E','203',' AVEPER ') ! 0 #77 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #95 CALL ERRHDL(PATH,MODNAM,'E','203','AVEPER') ! 0 #113 CALL ERRHDL(PATH,MODNAM,'E','203','GRPID') ! 0 #127 CALL ERRHDL(PATH,MODNAM,'E','203','HIVALU') ! 0 #134 CALL ERRHDL(PATH,MODNAM,'E','203','HIVALU') ! 0 #143 CALL ERRHDL(PATH,MODNAM,'E','211',KEYWRD) ! 0 #153 CALL ERRHDL(PATH,MODNAM,'E','203',' FILNAM ') ! 0 #162 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #168 CALL ERRHDL(PATH,MODNAM,'E','560',KEYWRD) ! 0 #173 CALL ERRHDL(PATH,MODNAM,'W','565',KEYWRD) ! 0 #184 & CALL ERRHDL(PATH,MODNAM,'W','565',KEYWRD) #201 CALL ERRHDL(PATH,MODNAM,'E','550',KEYWRD) ! 0 #207 CALL ERRHDL(PATH,MODNAM,'E','550',KEYWRD) ! 0 #223 CALL ERRHDL(PATH,MODNAM,'E','550',KEYWRD) ! 0 #228 CALL ERRHDL(PATH,MODNAM,'E','550',KEYWRD) ! 0 #245 CALL ERRHDL(PATH,MODNAM,'E','500',DUMMY) OUPOST.f90#51 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #55 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 #59 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #77 CALL ERRHDL(PATH,MODNAM,'E','203',' AVEPER ') ! 0 #86 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #104 CALL ERRHDL(PATH,MODNAM,'E','203','AVEPER') ! 0 #122 CALL ERRHDL(PATH,MODNAM,'E','203','GRPID') ! 0 #133 CALL ERRHDL(PATH,MODNAM,'E','203','FORMAT') ! 0 #142 CALL ERRHDL(PATH,MODNAM,'E','211',KEYWRD) ! 0 #152 CALL ERRHDL(PATH,MODNAM,'E','203',' FILNAM ') ! 0 #161 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #167 CALL ERRHDL(PATH,MODNAM,'E','560',KEYWRD) ! 0 #172 CALL ERRHDL(PATH,MODNAM,'W','565',KEYWRD) ! 0 #182 & CALL ERRHDL(PATH,MODNAM,'W','565',KEYWRD) #196 CALL ERRHDL(PATH,MODNAM,'E','550',KEYWRD) ! 0 #201 CALL ERRHDL(PATH,MODNAM,'E','550',KEYWRD) ! 0 #216 CALL ERRHDL(PATH,MODNAM,'E','550',KEYWRD) ! 0 #221 CALL ERRHDL(PATH,MODNAM,'E','550',KEYWRD) ! 0 #318 CALL ERRHDL(PATH,MODNAM,'E','500',DUMMY) #323 919 CALL ERRHDL(PATH,MODNAM,'E','510',DUMMY) ! 0 OURANK.f90#34 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #38 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 #42 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #54 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #72 CALL ERRHDL(PATH,MODNAM,'E','203','AVEPER') ! 0 #82 CALL ERRHDL(PATH,MODNAM,'E','203','AVEPER') ! 0 #87 CALL ERRHDL(PATH,MODNAM,'E','211',KEYWRD) ! 0 #96 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #103 CALL ERRHDL(PATH,MODNAM,'E','280',DUMMY) #107 CALL ERRHDL(PATH,MODNAM,'E','203','RANKVALU') ! 0 #119 CALL ERRHDL(PATH,MODNAM,'E','203',' FILNAM ') ! 0 #128 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #134 CALL ERRHDL(PATH,MODNAM,'E','560',KEYWRD) ! 0 #139 CALL ERRHDL(PATH,MODNAM,'W','565',KEYWRD) ! 0 #159 CALL ERRHDL(PATH,MODNAM,'E','550',KEYWRD) ! 0 #164 CALL ERRHDL(PATH,MODNAM,'E','550',KEYWRD) ! 0 #179 CALL ERRHDL(PATH,MODNAM,'E','500',DUMMY) OUSEAS.f90#35 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #53 CALL ERRHDL(PATH,MODNAM,'E','203','GRPID') ! 0 #62 CALL ERRHDL(PATH,MODNAM,'E','211',KEYWRD) ! 0 #72 CALL ERRHDL(PATH,MODNAM,'E','203',' FILNAM ') ! 0 #81 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #87 CALL ERRHDL(PATH,MODNAM,'E','560',KEYWRD) ! 0 #92 CALL ERRHDL(PATH,MODNAM,'W','565',KEYWRD) ! 0 #101 IF ( INDGRP.GE.10 ) CALL ERRHDL(PATH,MODNAM,'W','565',KEYWRD) #114 CALL ERRHDL(PATH,MODNAM,'E','550',KEYWRD) ! 0 #119 CALL ERRHDL(PATH,MODNAM,'E','550',KEYWRD) ! 0 #136 CALL ERRHDL(PATH,MODNAM,'E','500',DUMMY) OUTOXX.f90#41 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #45 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 #49 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #61 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #79 CALL ERRHDL(PATH,MODNAM,'E','203','AVEPER') ! 0 #86 CALL ERRHDL(PATH,MODNAM,'W','385',DUMMY) #94 CALL ERRHDL(PATH,MODNAM,'E','211',KEYWRD) ! 0 #103 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #114 CALL ERRHDL(PATH,MODNAM,'E','203',' FILNAM ') ! 0 #123 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #129 CALL ERRHDL(PATH,MODNAM,'E','560',KEYWRD) ! 0 #134 CALL ERRHDL(PATH,MODNAM,'W','565',KEYWRD) ! 0 #143 IF ( INDAVE.GE.5 ) CALL ERRHDL(PATH,MODNAM,'W','565',KEYWRD) #156 CALL ERRHDL(PATH,MODNAM,'E','550',KEYWRD) ! 0 #161 CALL ERRHDL(PATH,MODNAM,'E','550',KEYWRD) ! 0 #186 CALL ERRHDL(PATH,MODNAM,'E','500',DUMMY) OUTPUT.f90#34 PATH = 'OU' OUTQA.f90#40 IF ( IOSTAT(1).EQ.0 ) CALL ERRHDL(PATH,MODNAM,'E','130','STARTING'& #49 & CALL ERRHDL(PATH,MODNAM,'E','190',' ') #59 CALL ERRHDL(PATH,MODNAM,'W','540',KEYMSG) #66 & CALL ERRHDL(PATH,MODNAM,'W','195','DAYTABLE') #70 & CALL ERRHDL(PATH,MODNAM,'E','195','TOXXFILE') #76 CALL ERRHDL(PATH,MODNAM,'W','197','EVENTFIL') ! 0 #82 & CALL ERRHDL(PATH,MODNAM,'E','256','NUMARC=0') PARTDEP.f90#37 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #41 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 PERPLT.f90#41 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #59 CALL ERRHDL(PATH,MODNAM,'E','203','GRPID') ! 0 #68 CALL ERRHDL(PATH,MODNAM,'E','211',KEYWRD) ! 0 #78 CALL ERRHDL(PATH,MODNAM,'E','203',' FILNAM ') ! 0 #87 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #93 CALL ERRHDL(PATH,MODNAM,'E','560',KEYWRD) ! 0 #98 CALL ERRHDL(PATH,MODNAM,'W','565',KEYWRD) ! 0 #107 IF ( INDGRP.GE.10 ) CALL ERRHDL(PATH,MODNAM,'W','565',KEYWRD) #120 CALL ERRHDL(PATH,MODNAM,'E','550',KEYWRD) ! 0 #125 CALL ERRHDL(PATH,MODNAM,'E','550',KEYWRD) ! 0 #141 CALL ERRHDL(PATH,MODNAM,'E','550',KEYWRD) ! 0 #146 CALL ERRHDL(PATH,MODNAM,'E','550',KEYWRD) ! 0 #164 CALL ERRHDL(PATH,MODNAM,'E','500',DUMMY) PERPST.f90#38 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #56 CALL ERRHDL(PATH,MODNAM,'E','203','GRPID') ! 0 #65 CALL ERRHDL(PATH,MODNAM,'E','211',KEYWRD) ! 0 #76 CALL ERRHDL(PATH,MODNAM,'E','203','FORMAT') ! 0 #86 CALL ERRHDL(PATH,MODNAM,'E','203',' FILNAM ') ! 0 #95 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #101 CALL ERRHDL(PATH,MODNAM,'E','560',KEYWRD) ! 0 #106 CALL ERRHDL(PATH,MODNAM,'W','565',KEYWRD) ! 0 #115 IF ( INDGRP.GE.10 ) CALL ERRHDL(PATH,MODNAM,'W','565',KEYWRD) #128 CALL ERRHDL(PATH,MODNAM,'E','550',KEYWRD) ! 0 #133 CALL ERRHDL(PATH,MODNAM,'E','550',KEYWRD) ! 0 #148 CALL ERRHDL(PATH,MODNAM,'E','550',KEYWRD) ! 0 #153 CALL ERRHDL(PATH,MODNAM,'E','550',KEYWRD) ! 0 #177 CALL ERRHDL(PATH,MODNAM,'E','500',DUMMY) PFLINI.f90#34 PATH = 'MX' PFRACT.f90#79 CALL ERRHDL(PATH,MODNAM,'I','405',DUMMY) PLOTFL.f90#113 CALL ERRHDL(PATH,MODNAM,'E','520',DUMMY) PLTANN.f90#94 CALL ERRHDL(PATH,MODNAM,'E','520',DUMMY) POLDST.f90#38 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #49 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #59 & CALL ERRHDL(PATH,MODNAM,'W','250',NETIDT) #64 CALL ERRHDL(PATH,MODNAM,'E','225',DUMMY) POLLID.f90#32 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #36 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 POLORG.f90#41 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #46 CALL ERRHDL(PATH,MODNAM,'E','202',KTYPE) ! 0 #57 CALL ERRHDL(PATH,MODNAM,'E','300',KEYWRD) ! 0 #69 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #76 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 POSTFL.f90#80 CALL ERRHDL(PATH,MODNAM,'E','520',DUMMY) PPARM.f90#40 IF ( AQS(ISDX).EQ.0.0 ) CALL ERRHDL(PATH,MODNAM,'W','320',' QS ') #44 CALL ERRHDL(PATH,MODNAM,'E','209',' HS ') ! 0 #47 CALL ERRHDL(PATH,MODNAM,'W','320',' HS ') ! 0 #55 CALL ERRHDL(PATH,MODNAM,'W','320',' TS ') ! 0 #60 CALL ERRHDL(PATH,MODNAM,'W','325',' VS ') ! 0 #68 CALL ERRHDL(PATH,MODNAM,'W','320',' VS ') ! 0 #73 CALL ERRHDL(PATH,MODNAM,'E','209',' DS ') ! 0 #79 CALL ERRHDL(PATH,MODNAM,'W','320',' DS ') ! 0 PRBASE.f90#39 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #46 CALL ERRHDL(PATH,MODNAM,'W','203','ZRUNIT') ! 0 #50 CALL ERRHDL(PATH,MODNAM,'W','340',KEYWRD) ! 0 #53 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #57 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #60 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 PREINCLUD.f90#112 PATH = PPATH ! 0 #114 ELSEIF ( PATH.EQ.'**' ) THEN #128 PPATH = PATH ! 0 #132 IF ( PATH.EQ.'SO' ) THEN #135 ELSEIF ( PATH.EQ.'RE' ) THEN #138 ELSEIF ( PATH.EQ.'EV' ) THEN PRESET.f90#114 PATH = PPATH ! 0 #116 ELSEIF ( PATH.EQ.'**' ) THEN #130 PPATH = PATH ! 369 #134 IF ( PATH.EQ.'CO' .AND. KEYWRD.EQ.'MODELOPT' ) THEN #148 IF ( PATH.EQ.'CO' .AND. KEYWRD.EQ.'AVERTIME' ) THEN ! 369 #155 IF ( PATH.EQ.'SO' ) CALL SRCSIZ ! 369 #157 IF ( PATH.EQ.'RE' ) THEN #162 IF ( PATH.EQ.'EV' ) THEN ! 369 #172 IF ( PATH.EQ.'ME' .AND. KEYWRD.EQ.'SURFDATA' ) CALL SET_WINDOW ! 369 #174 IF ( PATH.EQ.'OU' .AND. KEYWRD.EQ.'RECTABLE' ) THEN #178 CALL FSPLIT(PATH,KEYWRD,FIELD(I),ILEN_FLD,'-',RMARK,LPRD,& #194 IF ( PATH.EQ.'OU' .AND. KEYWRD.EQ.'MAXTABLE' ) THEN ! 369 #209 IF ( PATH.EQ.'OU' .AND. KEYWRD.EQ.'FINISHED' ) GOTO 999 PROFIL.f90#51 CALL ERRHDL(PATH,MODNAM,'E','203',' PROFRM ') ! 0 #55 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #58 CALL ERRHDL(PATH,MODNAM,'W','200',KEYWRD) ! 0 PSTANN.f90#111 CALL ERRHDL(PATH,MODNAM,'E','520',DUMMY) RADRNG.f90#38 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #49 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #65 & CALL ERRHDL(PATH,MODNAM,'W','250',NETIDT) #70 CALL ERRHDL(PATH,MODNAM,'E','226',DUMMY) RANKFL.f90#89 CALL ERRHDL(PATH,MODNAM,'E','520',DUMMY) RECARD.f90#49 IF ( IRSTAT(1).NE.1 ) CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) #87 CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) ! 0 #92 CALL ERRHDL(PATH,MODNAM,'E','152',' RE') ! 0 #111 CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) ! 0 #116 & CALL ERRHDL(PATH,MODNAM,'E','130','STARTING') #121 & CALL ERRHDL(PATH,MODNAM,'E','185',' ') #124 IF ( ISTA ) CALL ERRHDL(PATH,MODNAM,'E','175',PNETID) #129 IF ( NUMREC.EQ.0 ) CALL ERRHDL(PATH,MODNAM,'E','227','NUMREC=0'& #141 CALL ERRHDL(PATH,MODNAM,'E','110',KEYWRD) ! 0 RECART.f90#36 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #57 CALL ERRHDL(PATH,MODNAM,'E','224',DUMMY) #67 CALL ERRHDL(PATH,MODNAM,'E','170',PNETID) ! 0 #90 & CALL ERRHDL(PATH,MODNAM,'W','252',NTID(I)) #94 IF ( IXYSET.NE.0 ) CALL ERRHDL(PATH,MODNAM,'E','180',NETIDT) ! 0 #100 IF ( INCSET.NE.0 ) CALL ERRHDL(PATH,MODNAM,'E','180',NETIDT) ! 0 #121 CALL ERRHDL(PATH,MODNAM,'E','200','STA') ! 0 #130 & CALL ERRHDL(PATH,MODNAM,'E','212',NETIDT) #134 CALL ERRHDL(PATH,MODNAM,'W','214',NETIDT) ! 0 #138 CALL ERRHDL(PATH,MODNAM,'W','213',NETIDT) ! 0 #148 CALL ERRHDL(PATH,MODNAM,'W','216',NETIDT) ! 0 #151 CALL ERRHDL(PATH,MODNAM,'W','215',NETIDT) ! 0 #161 & CALL ERRHDL(PATH,MODNAM,'E','218','ELEV') #164 & CALL ERRHDL(PATH,MODNAM,'E','218','ZHILL') #169 & CALL ERRHDL(PATH,MODNAM,'E','218','FLAG') #174 CALL ERRHDL(PATH,MODNAM,'E','170',NETIDT) ! 0 REELUN.f90#41 CALL ERRHDL(PATH,MODNAM,'E','203','RE_ELEV') ! 0 #45 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #48 CALL ERRHDL(PATH,MODNAM,'E','200','ElevUnit') ! 0 REPOLR.f90#32 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #55 CALL ERRHDL(PATH,MODNAM,'E','224',DUMMY) #67 CALL ERRHDL(PATH,MODNAM,'E','170',PNETID) ! 0 #88 & CALL ERRHDL(PATH,MODNAM,'W','252',NTID(I)) #92 IF ( IORSET.NE.0 ) CALL ERRHDL(PATH,MODNAM,'E','160',NETIDT) ! 3 #102 IF ( IDRSET.NE.0 ) CALL ERRHDL(PATH,MODNAM,'E','180',NETIDT) ! 3 #108 IF ( IGRSET.NE.0 ) CALL ERRHDL(PATH,MODNAM,'E','180',NETIDT) ! 0 #129 CALL ERRHDL(PATH,MODNAM,'E','200','STA') ! 0 #138 CALL ERRHDL(PATH,MODNAM,'W','220',NETIDT) ! 0 #143 IF ( IXRSET.EQ.0 ) CALL ERRHDL(PATH,MODNAM,'E','221',NETIDT) ! 3 #146 & CALL ERRHDL(PATH,MODNAM,'E','222',NETIDT) #150 CALL ERRHDL(PATH,MODNAM,'W','214',NETIDT) ! 0 #154 CALL ERRHDL(PATH,MODNAM,'W','213',NETIDT) ! 0 #164 CALL ERRHDL(PATH,MODNAM,'W','216',NETIDT) ! 0 #167 CALL ERRHDL(PATH,MODNAM,'W','215',NETIDT) ! 0 #177 & CALL ERRHDL(PATH,MODNAM,'E','218','ELEV') #180 & CALL ERRHDL(PATH,MODNAM,'E','218','ZHILL') #185 & CALL ERRHDL(PATH,MODNAM,'E','218','FLAG') #190 CALL ERRHDL(PATH,MODNAM,'E','170',NETIDT) ! 0 RSDUMP.f90#176 99 CALL ERRHDL(PATH,MODNAM,'E','500','SAVEFILE') ! 0 RSINIT.f90#116 CALL ERRHDL(PATH,MODNAM,'E','510',DUMMY) #122 CALL ERRHDL(PATH,MODNAM,'E','580',DUMMY) RUNNOT.f90#40 CALL ERRHDL(PATH,MODNAM,'E','203',KEYWRD) ! 0 #44 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #47 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 SAVEFL.f90#35 CALL ERRHDL(PATH,MODNAM,'E','145',KEYWRD) ! 0 #48 IF ( IMIT.EQ.-1 ) CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) #55 IF ( IMIT.EQ.-1 ) CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) #59 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #62 CALL ERRHDL(PATH,MODNAM,'W','207',KEYWRD) ! 0 SCIMIT.f90#41 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #48 & CALL ERRHDL(PATH,MODNAM,'E','380','StartHr') #53 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #60 & CALL ERRHDL(PATH,MODNAM,'E','380','NRegInt') #65 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #74 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #83 CALL ERRHDL(PATH,MODNAM,'W','157',KEYWRD) ! 0 #93 CALL ERRHDL(PATH,MODNAM,'E','383',KEYWRD) ! 0 #98 & CALL ERRHDL(PATH,MODNAM,'E','380','NWetStrt') #103 CALL ERRHDL(PATH,MODNAM,'E','380','NWetInt') ! 0 #116 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #119 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 SETCAR.f90#44 CALL ERRHDL(PATH,MODNAM,'E','219',DUMMY) #50 CALL ERRHDL(PATH,MODNAM,'E','225',DUMMY) #56 CALL ERRHDL(PATH,MODNAM,'E','226',DUMMY) #90 CALL ERRHDL(PATH,MODNAM,'E','219',DUMMY) #105 CALL ERRHDL(PATH,MODNAM,'E','219',DUMMY) #120 CALL ERRHDL(PATH,MODNAM,'E','219',DUMMY) SETORD.f90#32 CALL ERRHDL(PPATH,MODNAM,'E','115',PATH) ! 0 #34 IF ( PATH.EQ.'OU' .AND. PPATH.EQ.'ME' ) THEN ! 3 #39 CALL ERRHDL(PPATH,MODNAM,'E','120',PATH) ! 0 #49 CALL ERRHDL(PPATH,MODNAM,'E','115',PATH) ! 0 #50 ELSEIF ( ISTART .AND. PATH.NE.PPATH ) THEN #52 CALL ERRHDL(PPATH,MODNAM,'E','120',PATH) ! 0 #60 CALL ERRHDL(PPATH,MODNAM,'E','115',PATH) ! 0 #61 ELSEIF ( ISTART .AND. PATH.NE.PPATH ) THEN #63 CALL ERRHDL(PPATH,MODNAM,'E','120',PATH) ! 0 #67 PPATH = PATH ! 369 SETPOL.f90#45 CALL ERRHDL(PATH,MODNAM,'E','219',DUMMY) #51 CALL ERRHDL(PATH,MODNAM,'E','225',DUMMY) #57 CALL ERRHDL(PATH,MODNAM,'E','226',DUMMY) #94 CALL ERRHDL(PATH,MODNAM,'E','219',DUMMY) #109 CALL ERRHDL(PATH,MODNAM,'E','219',DUMMY) #124 CALL ERRHDL(PATH,MODNAM,'E','219',DUMMY) SETUP.f90#137 CALL ERRHDL(PPATH,MODNAM,'E','100',PATH) ! 0 #138 PATH = PPATH #140 ELSEIF ( PATH.EQ.'**' ) THEN #149 CALL ERRHDL(PATH,MODNAM,'E','105',KEYWRD) ! 0 #158 IF ( PATH.EQ.'CO' ) THEN #167 ELSEIF ( PATH.EQ.'SO' ) THEN #173 ELSEIF ( PATH.EQ.'RE' ) THEN #176 ELSEIF ( PATH.EQ.'ME' ) THEN #184 ELSEIF ( PATH.EQ.'TG' ) THEN #190 ELSEIF ( PATH.EQ.'OU' ) THEN #201 IF ( PATH.EQ.'OU' .AND. KEYWRD.EQ.'FINISHED' ) GOTO 999 #218 CALL ERRHDL(PATH,MODNAM,'E','125',DUMMY) SET_DATES.f90#50 CALL ERRHDL(PATH,MODNAM,'E','365',DUMMY) SET_METDATA.f90#306 CALL ERRHDL(PATH,MODNAM,'E','460',DUMMY) #310 CALL ERRHDL(PATH,MODNAM,'I','460',DUMMY) SET_WINDOW.f90#55 CALL ERRHDL(PATH,MODNAM,'W','360',KEYWRD) ! 0 #69 CALL ERRHDL(PATH,MODNAM,'E','365',KEYWRD) ! 0 SFDATA.f90#42 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #46 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 #50 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #57 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #65 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #86 IF ( IMIT.NE.1 ) CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) #88 IF ( IMIT.NE.1 ) CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) SHOUT.f90#83 CALL ERRHDL(PATH,MODNAM,'E','520',DUMMY) SOCARD.f90#49 CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) ! 0 #63 & CALL ERRHDL(PATH,MODNAM,'E','140','SRCGROUP') #71 & CALL ERRHDL(PATH,MODNAM,'E','140','SRCGROUP') #84 & CALL ERRHDL(PATH,MODNAM,'E','140','SRCGROUP') #108 & CALL ERRHDL(PATH,MODNAM,'E','140','SRCGROUP') #116 & CALL ERRHDL(PATH,MODNAM,'E','140','SRCGROUP') #118 CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) ! 0 #124 CALL ERRHDL(PATH,MODNAM,'E','158',' ') ! 0 #138 & CALL ERRHDL(PATH,MODNAM,'E','140','SRCGROUP') #147 & CALL ERRHDL(PATH,MODNAM,'E','140','SRCGROUP') #150 CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) ! 0 #153 CALL ERRHDL(PATH,MODNAM,'E','152',' SO') ! 0 #163 & CALL ERRHDL(PATH,MODNAM,'E','140','SRCGROUP') #175 & CALL ERRHDL(PATH,MODNAM,'E','140','SRCGROUP') #177 CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) ! 0 #179 CALL ERRHDL(PATH,MODNAM,'E','159',KEYWRD) ! 0 #189 & CALL ERRHDL(PATH,MODNAM,'E','140','SRCGROUP') #191 CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) ! 0 #193 CALL ERRHDL(PATH,MODNAM,'E','159',KEYWRD) ! 0 #204 & CALL ERRHDL(PATH,MODNAM,'E','140','SRCGROUP') #229 & CALL ERRHDL(PATH,MODNAM,'E','140','SRCGROUP') #232 CALL ERRHDL(PATH,MODNAM,'E','198',KEYWRD) ! 0 #238 CALL ERRHDL(PATH,MODNAM,'E','196',KEYWRD) ! 0 #246 & CALL ERRHDL(PATH,MODNAM,'E','140','SRCGROUP') #249 CALL ERRHDL(PATH,MODNAM,'E','198',KEYWRD) ! 0 #260 & CALL ERRHDL(PATH,MODNAM,'E','140','SRCGROUP') #266 CALL ERRHDL(PATH,MODNAM,'E','130','URBANOPT') ! 0 #274 & CALL ERRHDL(PATH,MODNAM,'E','140','SRCGROUP') #280 CALL ERRHDL(PATH,MODNAM,'E','142',KEYWRD) ! 0 #288 & CALL ERRHDL(PATH,MODNAM,'E','140','SRCGROUP') #294 CALL ERRHDL(PATH,MODNAM,'E','144',KEYWRD) ! 0 #301 & CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) #305 & CALL ERRHDL(PATH,MODNAM,'E','130','STARTING') #307 & CALL ERRHDL(PATH,MODNAM,'E','130','LOCATION') #309 & CALL ERRHDL(PATH,MODNAM,'E','130','SRCPARAM') #311 & CALL ERRHDL(PATH,MODNAM,'E','130','SRCGROUP') #314 & CALL ERRHDL(PATH,MODNAM,'E','130','SRCPARAM') #318 & CALL ERRHDL(PATH,MODNAM,'E','140','SRCGROUP') #322 CALL ERRHDL(PATH,MODNAM,'E','248','NUMSRC=0') ! 0 #330 & CALL ERRHDL(PATH,MODNAM,'E','198',' GASDEP ') #333 & CALL ERRHDL(PATH,MODNAM,'E','198',' WETDEP ') #349 CALL ERRHDL(PATH,MODNAM,'E','110',KEYWRD) ! 0 SOELUN.f90#41 CALL ERRHDL(PATH,MODNAM,'E','203','SO_ELEV') ! 0 #45 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #48 CALL ERRHDL(PATH,MODNAM,'E','200','ElevUnit') ! 0 SOGRP.f90#37 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #41 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 #57 CALL ERRHDL(PATH,MODNAM,'E','235',DUMMY) #73 CALL FSPLIT(PATH,KEYWRD,FIELD(I),ILEN_FLD,'-',RMARK,LOWID, & #81 CALL ERRHDL(PATH,MODNAM,'E','203','SRCRANGE') ! 0 SOLOCA.f90#39 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #43 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 #47 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #74 & CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) #78 & CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) #84 & CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) #92 & CALL ERRHDL(PATH,MODNAM,'W','205','ZS = 0.0') #96 CALL ERRHDL(PATH,MODNAM,'E','203','SRCTYP') ! 0 #104 CALL ERRHDL(PATH,MODNAM,'E','232',DUMMY) #109 CALL ERRHDL(PATH,MODNAM,'E','310',SOID) ! 0 SOPARM.f90#42 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #46 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 #57 CALL ERRHDL(PATH,MODNAM,'E','315',SRCID(ISDX)) ! 0 #67 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #74 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #78 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 #82 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #89 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #93 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 #97 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #104 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #108 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 #112 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #119 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #123 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 #127 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #134 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #138 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 #142 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #150 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #154 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 #158 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #166 CALL ERRHDL(PATH,MODNAM,'E','300',KEYWRD) ! 0 SRCQA.f90#58 & CALL ERRHDL(PATH,MODNAM,'E','236',SRCID(I)) #61 & CALL ERRHDL(PATH,MODNAM,'E','237',SRCID(I)) #66 & CALL ERRHDL(PATH,MODNAM,'E','241',SRCID(I)) #69 & CALL ERRHDL(PATH,MODNAM,'E','246',SRCID(I)) #72 & CALL ERRHDL(PATH,MODNAM,'E','247',SRCID(I)) #79 CALL ERRHDL(PATH,MODNAM,'E','239',SRCID(I)) ! 0 #82 CALL ERRHDL(PATH,MODNAM,'E','239',SRCID(I)) ! 0 #85 CALL ERRHDL(PATH,MODNAM,'E','239',SRCID(I)) ! 0 #88 CALL ERRHDL(PATH,MODNAM,'E','239',SRCID(I)) ! 0 #91 CALL ERRHDL(PATH,MODNAM,'E','239',SRCID(I)) ! 0 #94 CALL ERRHDL(PATH,MODNAM,'E','239',SRCID(I)) ! 0 #98 CALL ERRHDL(PATH,MODNAM,'E','239',SRCID(I)) ! 0 #110 & ) CALL ERRHDL(PATH,MODNAM,'E','240',SRCID(I)) #120 & CALL ERRHDL(PATH,MODNAM,'W','330',SRCID(I)) #123 CALL ERRHDL(PATH,MODNAM,'E','244',SRCID(I)) ! 0 #129 CALL ERRHDL(PATH,MODNAM,'E','323',SRCID(I)) ! 0 #138 & CALL ERRHDL(PATH,MODNAM,'E','242',SRCID(I)) #145 CALL ERRHDL(PATH,MODNAM,'E','265',SRCID(I)) ! 0 #204 IF ( ITOTSRC.EQ.0 ) CALL ERRHDL(PATH,MODNAM,'W','319',GRPID(J))! 3 #209 & CALL ERRHDL(PATH,MODNAM,'E','130','URBANSRC') #218 IF ( ITOTGRP.GT.1 ) CALL ERRHDL(PATH,MODNAM,'E','282',SRCID(I))! 27 #228 & CALL ERRHDL(PATH,MODNAM,'E','338',SRCID(I)) STAEND.f90#49 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #56 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #63 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #70 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #77 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #84 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #110 CALL ERRHDL(PATH,MODNAM,'E','365',KEYWRD) ! 0 #116 CALL ERRHDL(PATH,MODNAM,'E','365',KEYWRD) ! 0 #124 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #131 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #138 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #145 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #152 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #159 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #166 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #173 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #196 CALL ERRHDL(PATH,MODNAM,'E','365',KEYWRD) ! 0 #202 CALL ERRHDL(PATH,MODNAM,'E','365',KEYWRD) ! 0 #209 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #212 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 SUMTBL.f90#73 READ (IERUNT,1116,END=99,ERR=9999) PATH , ERRTP , ERRCD , & #77 WRITE (IOUNIT,1117) PATH , ERRTP , ERRCD , IERRLN , & #98 READ (IERUNT,1116,END=999,ERR=9999) PATH , ERRTP , ERRCD , & #104 WRITE (IOUNIT,1117) PATH , ERRTP , ERRCD , IERRLN , & #135 9999 CALL ERRHDL(PATH,MODNAM,'E','510','ERRORMSG') ! 0 SURFIL.f90#51 CALL ERRHDL(PATH,MODNAM,'E','203',' METFRM ') ! 0 #55 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #58 CALL ERRHDL(PATH,MODNAM,'W','200',KEYWRD) ! 0 TERFIL.f90#38 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #41 CALL ERRHDL(PATH,MODNAM,'W','200',KEYWRD) ! 0 TERHGT.f90#47 CALL ERRHDL(PATH,MODNAM,'E','223',KTYPE) ! 0 #52 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #60 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #71 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 TERLOC.f90#38 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #44 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #56 CALL ERRHDL(PATH,MODNAM,'W','203','TGUNIT') ! 0 #61 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #64 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 TERRST.f90#42 READ (IERUNT,1116,END=99,ERR=9999) PATH , ERRTP , ERRCD , & #77 9999 CALL ERRHDL(PATH,MODNAM,'E','510','ERRORMSG') ! 0 TGCARD.f90#37 IF ( ITSTAT(1).NE.1 ) CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) #43 CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) ! 0 #53 CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) ! 0 #63 CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) ! 0 #73 CALL ERRHDL(PATH,MODNAM,'E','135',KEYWRD) ! 0 #83 99 CALL ERRHDL(PATH,MODNAM,'E','500',' TER-INP') ! 0 #90 CALL ERRHDL(PATH,MODNAM,'E','510',' TER-INP') ! 0 #103 CALL ERRHDL(PATH,MODNAM,'E','110',KEYWRD) ! 0 TGDATA.f90#53 CHARACTER TGELEV*6 , DUMMY*8 , PATH*2 , MODNAM*6 #57 PATH = 'TG' #67 CALL ERRHDL(PATH,MODNAM,'E','299',DUMMY) TGELUN.f90#41 CALL ERRHDL(PATH,MODNAM,'E','203','TG_ELEV') ! 0 #45 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #48 CALL ERRHDL(PATH,MODNAM,'E','200','ElevUnit') ! 0 TGINIT.f90#44 PATH = 'MX' TGQA.f90#93 CALL ERRHDL(PATH,MODNAM,'E','305','GRID') ! 0 #117 & CALL ERRHDL(PATH,MODNAM,'W','393',SRCID(I)) #131 CALL ERRHDL(PATH,MODNAM,'W','394',DUMMY) TITLES.f90#33 & CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) #38 & CALL ERRHDL(PATH,MODNAM,'W','200',KEYWRD) TOXXFL.f90#79 CALL ERRHDL(PATH,MODNAM,'E','520',DUMMY) UADATA.f90#42 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #46 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 #50 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #57 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #65 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #86 IF ( IMIT.NE.1 ) CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) #88 IF ( IMIT.NE.1 ) CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) URBANS.f90#37 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #43 CALL FSPLIT(PATH,KEYWRD,FIELD(I),ILEN_FLD,'-',RMARK,LOWID, & #50 CALL ERRHDL(PATH,MODNAM,'E','203','SRCRANGE') ! 0 URBOPT.f90#44 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #48 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #53 IF ( IMIT.EQ.-1 ) CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) #56 CALL ERRHDL(PATH,MODNAM,'W','200',KEYWRD) ! 0 #66 IF ( IMIT.EQ.-1 ) CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) #69 CALL ERRHDL(PATH,MODNAM,'W','320','URBAN Z0') ! 0 #72 CALL ERRHDL(PATH,MODNAM,'W','320','URBAN Z0') ! 0 #75 CALL ERRHDL(PATH,MODNAM,'E','320','URBAN Z0') ! 0 VPARM.f90#39 IF ( AQS(ISDX).EQ.0.0 ) CALL ERRHDL(PATH,MODNAM,'W','320',' QS ') #43 CALL ERRHDL(PATH,MODNAM,'E','209',' HS ') ! 0 #46 CALL ERRHDL(PATH,MODNAM,'W','320',' HS') ! 0 #51 CALL ERRHDL(PATH,MODNAM,'E','209',' SYINIT ') ! 0 #54 CALL ERRHDL(PATH,MODNAM,'W','320',' SYINIT ') ! 0 #59 CALL ERRHDL(PATH,MODNAM,'W','320',' SYINIT ') ! 0 #64 CALL ERRHDL(PATH,MODNAM,'E','209',' SZINIT ') ! 0 #67 CALL ERRHDL(PATH,MODNAM,'W','320',' SZINIT ') ! 0 #72 CALL ERRHDL(PATH,MODNAM,'W','320',' SZINIT ') ! 0 WDROTA.f90#38 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #41 CALL ERRHDL(PATH,MODNAM,'E','380','ROTANG') ! 0 #45 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #48 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 WSCATS.f90#41 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #44 CALL ERRHDL(PATH,MODNAM,'E','380','UCAT') ! 0 #50 & CALL ERRHDL(PATH,MODNAM,'E','203','UCAT') #55 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #58 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 XYPNTS.f90#42 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #52 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #61 & CALL ERRHDL(PATH,MODNAM,'W','250',NETIDT) #66 CALL ERRHDL(PATH,MODNAM,'E','225',DUMMY) #81 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #92 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 #101 & CALL ERRHDL(PATH,MODNAM,'W','250',NETIDT) #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