AACALC.f90#33 CHARACTER MODNAM*12 #40 MODNAM = 'AACALC' ! 10694K ACALC.f90#51 CHARACTER MODNAM*12 #60 MODNAM = 'ACALC' ! 9132 ACPARM.f90#22 CHARACTER MODNAM*12 #29 MODNAM = 'ACPARM' ! 0 #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 ACPLUME.f90#53 CHARACTER MODNAM*12 #58 MODNAM = 'ACPLUME' ! 17595K ADISY.f90#27 CHARACTER MODNAM*12 #33 MODNAM = 'ADISY' ! 19560K ADISZ.f90#27 CHARACTER MODNAM*12 #33 MODNAM = 'ADISZ' ! 53688K ADJEMI.f90#29 CHARACTER MODNAM*12 #35 MODNAM = 'ADJEMI' ! 0 AERCALC.f90#35 CHARACTER MODNAM*12 #43 MODNAM = 'AERCALC' !2630016 AERMOD.f90#613 CHARACTER MODNAM*12 #619 MODNAM = 'MAIN' ! 7 #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) AER_ACHI.f90#42 CHARACTER MODNAM*12 #47 MODNAM = 'AER_ACHI' ! 17595K AER_PCHI.f90#46 CHARACTER MODNAM*12 #51 MODNAM = 'AER_PCHI' !3465570 ALCALC.f90#30 CHARACTER MODNAM*12 #36 MODNAM = 'ALCALC' ! 10694K ALLRESULT.f90#29 CHARACTER MODNAM*12 #35 MODNAM = 'ALLRESULT' ! 3 #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#25 CHARACTER MODNAM*12 #31 MODNAM = 'ALLSET' ! 3 #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) AMFRAC.f90#26 CHARACTER MODNAM*12 #32 MODNAM = 'AMFRAC' ! 0 APARM.f90#31 CHARACTER MODNAM*12 #38 MODNAM = 'APARM' ! 9 #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#24 CHARACTER MODNAM*12 #31 MODNAM = 'APPARM' ! 0 #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 ARDIST.f90#34 CHARACTER MODNAM*12 #42 MODNAM = 'ARDIST' !1315008 AREAIN.f90#37 CHARACTER MODNAM*12 #46 MODNAM = 'AREAIN' ! 271432 #71 CALL ERRHDL(PATH,MODNAM,'E','406',SRCID(ISRC)) ! 0 #106 CALL ERRHDL(PATH,MODNAM,'E','406',SRCID(ISRC)) ! 0 ARVERT.f90#22 CHARACTER MODNAM*12 #32 MODNAM = 'ARVERT' #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 #26 MODNAM = 'ASNGRP' ! 0 AVER.f90#23 CHARACTER MODNAM*12 #29 MODNAM = 'AVER' ! 1620 AVEREV.f90#22 CHARACTER MODNAM*12 #28 MODNAM = 'AVEREV' ! 0 AVERTS.f90#24 CHARACTER MODNAM*12 #33 MODNAM = 'AVERTS' ! 0 AVETIM.f90#26 CHARACTER MODNAM*12 #34 MODNAM = 'AVETIM' ! 3 #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) BBCALC.f90#33 CHARACTER MODNAM*12 #39 MODNAM = 'BBCALC' ! 10694K BECALC.f90#30 CHARACTER MODNAM*12 #36 MODNAM = 'BECALC' ! 10694K BID.f90#31 CHARACTER MODNAM*12 #36 MODNAM = 'BID' !4043512 CALC.f90#24 CHARACTER MODNAM*12 #29 MODNAM = 'CALC' ! 3044 CBLPR3.f90#33 CHARACTER MODNAM*12 #38 MODNAM = 'CBLPR3' ! 208794 CBLPRD.f90#29 CHARACTER MODNAM*12 #35 MODNAM = 'CBLPRD' !1822464 CBLPRN.f90#35 CHARACTER MODNAM*12 #41 MODNAM = 'CBLPRN' ! 322030 CENTROID.f90#25 CHARACTER MODNAM*12 #31 MODNAM = 'CENTROID' ! 40087K CHKCLM.f90#22 CHARACTER MODNAM*12 #27 MODNAM = 'CHKCLM' ! 4320 #35 CALL ERRHDL(PATH,MODNAM,'I','440',DUMMY) CHKDAT.f90#32 CHARACTER MODNAM*12 #37 MODNAM = 'CHKDAT' ! 4320 #46 CALL ERRHDL(PATH,MODNAM,'E','450',DUMMY) #52 CALL ERRHDL(PATH,MODNAM,'E','450',DUMMY) #57 CALL ERRHDL(PATH,MODNAM,'E','450',DUMMY) CHKMSG.f90#26 CHARACTER MODNAM*12 #31 MODNAM = 'CHKMSG' ! 3252 CHKREC.f90#33 CHARACTER MODNAM*12 #40 MODNAM = 'CHKREC' ! 3 CHK_ENDYR.f90#23 CHARACTER MODNAM*12 #30 MODNAM = 'CHK_ENDYR' ! 0 CMPDAT.f90#25 CHARACTER MODNAM*12 #30 MODNAM = 'CMPDAT' ! 4320 #37 CALL ERRHDL(PATH,MODNAM,'E','456',DUMMY) COCARD.f90#49 CHARACTER MODNAM*12 #55 MODNAM = 'COCARD' ! 21 #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#38 CHARACTER MODNAM*12 #44 MODNAM = 'COMPTG' ! 4320 COUNIT.f90#23 CHARACTER MODNAM*12 #28 MODNAM = 'COUNIT' ! 0 #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 CPLUME.f90#54 CHARACTER MODNAM*12 #59 MODNAM = 'CPLUME' !3465570 CRCALC.f90#31 CHARACTER MODNAM*12 #37 MODNAM = 'CRCALC' ! 10694K CRITDS.f90#43 CHARACTER MODNAM*12 #57 MODNAM = 'CRITDS' ! 21332K DAYRNG.f90#28 CHARACTER MODNAM*12 #38 MODNAM = 'DAYRNG' ! 0 #43 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #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#27 CHARACTER MODNAM*12 #33 MODNAM = 'DCDLAT' ! 2 #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#26 CHARACTER MODNAM*12 , KOPT*8 #32 MODNAM = 'DEBOPT' ! 0 #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 DEBOUT.f90#44 CHARACTER MODNAM*12 #50 MODNAM = 'DEBOUT' ! 0 DECAY.f90#25 CHARACTER MODNAM*12 #31 MODNAM = 'DECAY' ! 21391K DEFINE.f90#24 CHARACTER MODNAM*12 #30 MODNAM = 'DEFINE' ! 816 DELTAH.f90#46 CHARACTER MODNAM*12 #56 MODNAM = 'DELTAH' !2021756 DISCAR.f90#27 CHARACTER MODNAM*12 #33 MODNAM = 'DISCAR' ! 0 #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#27 CHARACTER MODNAM*12 #36 MODNAM = 'DISPOL' ! 0 #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 DISTF.f90#26 CHARACTER MODNAM*12 #32 MODNAM = 'DISTF' ! 21622 DPUNIT.f90#23 CHARACTER MODNAM*12 #29 MODNAM = 'DPUNIT' ! 0 #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#23 CHARACTER MODNAM*12 #34 MODNAM = 'DSBLDG' #39 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #43 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 #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#28 CHARACTER MODNAM*12 #34 MODNAM = 'DSFILL' ! 225 #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#22 CHARACTER MODNAM*12 #27 MODNAM = 'EDECAY' ! 0 #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#22 CHARACTER MODNAM*12 #28 MODNAM = 'EFFILL' ! 0 #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 EMFACT.f90#33 CHARACTER MODNAM*12 #39 MODNAM = 'EMFACT' ! 27396 EMUNIT.f90#22 CHARACTER MODNAM*12 #27 MODNAM = 'EMUNIT' ! 0 #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#29 CHARACTER MODNAM*12 #40 MODNAM = 'EMVARY' #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 #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) ERFX.f90#23 CHARACTER MODNAM*12 #29 MODNAM = 'ERFX' ! 0 ERRFIL.f90#26 CHARACTER MODNAM*12 #31 MODNAM = 'ERRFIL' ! 0 #38 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #41 CALL ERRHDL(PATH,MODNAM,'W','207',KEYWRD) ! 0 ERRHDL.f90#2 SUBROUTINE ERRHDL(PATHWY,MODNAM,INERTP,INERCD,INPMSG) #26 & INPMSG*(*) , MODNAM*(*) , TMPMOD*6 , TMPMSG*8 #68 WRITE (IERUNT,1111) PATHWY , INERTP , INERCD , ILINE , MODNAM(1:6)& ESCAPE.f90#35 CHARACTER MODNAM*12 #40 MODNAM = 'ESCAPE' ! 0 EVALCK.f90#25 CHARACTER MODNAM*12 #32 MODNAM = 'EVALCK' ! 0 EVALFL.f90#25 CHARACTER MODNAM*12 #34 MODNAM = 'EVALFL' ! 0 EVCALC.f90#28 CHARACTER MODNAM*12 #33 MODNAM = 'EVCALC' ! 0 EVCARD.f90#34 CHARACTER MODNAM*12 #40 MODNAM = 'EVCARD' ! 0 #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#26 CHARACTER MODNAM*12 #32 MODNAM = 'EVCART' ! 0 #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#27 CHARACTER MODNAM*12 #36 MODNAM = 'EVEFIL' ! 0 #98 99 CALL ERRHDL(PATH,MODNAM,'W','570',RUNST1(13:20)) ! 0 EVLINI.f90#26 CHARACTER MODNAM*12 #32 MODNAM = 'EVLINI' ! 0 EVLOC.f90#22 CHARACTER MODNAM*12 #31 MODNAM = 'EVLOC' ! 0 #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#25 CHARACTER MODNAM*12 #32 MODNAM = 'EVLOOP' ! 0 #90 CALL ERRHDL(PATH,MODNAM,'I','470',DUMMY) EVNTFL.f90#26 CHARACTER MODNAM*12 #31 MODNAM = 'EVNTFL' ! 0 #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#28 CHARACTER MODNAM*12 #37 MODNAM = 'EVPER' ! 0 #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#22 CHARACTER MODNAM*12 #28 MODNAM = 'EV_CHKDAT' ! 0 #40 CALL ERRHDL(PATH,MODNAM,'E','450',DUMMY) EV_FLUSH.f90#22 CHARACTER MODNAM*12 #28 MODNAM = 'EV_FLUSH' ! 0 EV_HRQEXT.f90#26 CHARACTER MODNAM*12 #32 MODNAM = 'EV_HRQEXT' ! 0 #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#55 CHARACTER MODNAM*12 #61 MODNAM = 'EV_METEXT' ! 0 EV_OUCARD.f90#23 CHARACTER MODNAM*12 #28 MODNAM = 'EV_OUCARD' ! 0 #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_OUTPUT.f90#24 CHARACTER MODNAM*12 #29 MODNAM = 'EV_OUTPUT' ! 0 EV_SETORD.f90#22 CHARACTER MODNAM*12 #27 MODNAM = 'EV_SETORD' ! 0 #32 CALL ERRHDL(PPATH,MODNAM,'E','115',PATH) ! 0 #39 CALL ERRHDL(PPATH,MODNAM,'E','120',PATH) ! 0 #49 CALL ERRHDL(PPATH,MODNAM,'E','115',PATH) ! 0 #52 CALL ERRHDL(PPATH,MODNAM,'E','120',PATH) ! 0 #60 CALL ERRHDL(PPATH,MODNAM,'E','115',PATH) ! 0 #63 CALL ERRHDL(PPATH,MODNAM,'E','120',PATH) ! 0 EV_SETUP.f90#35 CHARACTER MODNAM*12 #53 MODNAM = 'EV_SETUP' ! 0 #131 CALL ERRHDL(PPATH,MODNAM,'E','100',PATH) ! 0 #143 CALL ERRHDL(PATH,MODNAM,'E','105',KEYWRD) ! 0 #195 CALL ERRHDL(PATH,MODNAM,'E','125',DUMMY) EV_SUMVAL.f90#27 CHARACTER MODNAM*12 #32 MODNAM = 'EV_SUMVAL' ! 0 EXKEY.f90#24 CHARACTER MODNAM*12 #33 MODNAM = 'EXKEY' EXPATH.f90#23 CHARACTER MODNAM*12 #34 MODNAM = 'EXPATH' FILOPN.f90#25 CHARACTER MODNAM*12 #53 99 CALL ERRHDL(PATH,MODNAM,'E','500',DUMMY) ! 4 FLAGDF.f90#27 CHARACTER MODNAM*12 #34 MODNAM = 'FLAGDF' ! 0 #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#29 CHARACTER MODNAM*12 #36 MODNAM = 'FLGHGT' ! 0 #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 FLUXES.f90#25 CHARACTER MODNAM*12 #30 MODNAM = 'FLUXES' ! 9132 FSPLIT.f90#33 & MODNAM*6 , PATHIN*2 , KEYIN*8 #37 MODNAM = 'FSPLIT' ! 231 #58 CALL ERRHDL(PATHIN,MODNAM,'E','203',KEYIN) ! 0 #63 CALL ERRHDL(PATHIN,MODNAM,'E','217',KEYIN) ! 0 FTERM.f90#23 CHARACTER MODNAM*12 #28 MODNAM = 'FTERM' ! 21061K FYPAN.f90#27 CHARACTER MODNAM*12 #33 MODNAM = 'FYPAN' !2761592 FYPLM.f90#27 CHARACTER MODNAM*12 #33 MODNAM = 'FYPLM' !1913982 GAMCALC.f90#28 CHARACTER MODNAM*12 #38 MODNAM = 'GAMCALC' ! 876672 GASDEP.f90#25 CHARACTER MODNAM*12 #36 MODNAM = 'GASDEP' #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 #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#22 CHARACTER MODNAM*12 #27 MODNAM = 'GDDEF' ! 0 #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#23 CHARACTER MODNAM*12 #29 MODNAM = 'GDLAND' ! 0 #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#22 CHARACTER MODNAM*12 #28 MODNAM = 'GDSEAS' ! 0 #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#24 CHARACTER MODNAM*12 #32 MODNAM = 'GENCAR' ! 0 #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) GENCIR.f90#24 CHARACTER MODNAM*12 #31 MODNAM = 'ACPARM' ! 0 GENPOL.f90#23 CHARACTER MODNAM*12 #31 MODNAM = 'GENPOL' ! 3 #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) GETFLD.f90#22 CHARACTER MODNAM*12 #29 MODNAM = 'GETFLD' ! 816 GRDDEN.f90#30 CHARACTER MODNAM*12 GRDEPS.f90#25 CHARACTER MODNAM*12 #33 MODNAM = 'GRDEPS' ! 0 GRDPT.f90#40 CHARACTER MODNAM*12 GRDPTG.f90#38 CHARACTER MODNAM*12 #55 MODNAM = 'GRDPTG' ! 3044 GRDPTURB.f90#39 CHARACTER MODNAM*12 GRDSV.f90#33 CHARACTER MODNAM*12 #49 MODNAM = 'GRDSV ' ! 3044 GRDSW.f90#36 CHARACTER MODNAM*12 #52 MODNAM = 'GRDSW ' ! 3044 GRDURBAN.f90#27 CHARACTER MODNAM*12 #34 MODNAM = 'GRDURB' ! 0 GRDWD.f90#37 CHARACTER MODNAM*12 #53 MODNAM = 'GRDWD ' ! 3044 GRDWS.f90#32 CHARACTER MODNAM*12 #48 MODNAM = 'GRDWS ' ! 3044 GREGOR.f90#29 CHARACTER MODNAM*12 #38 MODNAM = 'GREGOR' ! 0 #43 CALL ERRHDL(PATH,MODNAM,'E','203','MONTH') ! 0 #47 CALL ERRHDL(PATH,MODNAM,'E','203','Juli Day') ! 0 GVSUBD.f90#22 CHARACTER MODNAM*12 #27 MODNAM = 'GVSUBD' ! 0 #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 HEADER.f90#35 CHARACTER MODNAM*12 #42 MODNAM = 'HEADER' ! 52 HEFF.f90#38 CHARACTER MODNAM*12 #44 MODNAM = 'HEFF' ! 43809K HILHGT.f90#23 CHARACTER MODNAM*12 #30 MODNAM = 'HILHGT' ! 0 #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 HIPER.f90#26 CHARACTER MODNAM*12 #32 MODNAM = 'HIPER' ! 2 HIVALS.f90#27 CHARACTER MODNAM*12 #32 MODNAM = 'HIVALS' ! 1620 HPSORT.f90#27 CHARACTER MODNAM*12 #34 MODNAM = 'HPSORT' ! 20762 HQREAD.f90#25 CHARACTER MODNAM*12 #34 MODNAM = 'HQREAD' ! 0 #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#22 CHARACTER MODNAM*12 #33 MODNAM = 'HREMIS' ! 0 #53 CALL ERRHDL(PATH,MODNAM,'E','500',KEYWRD) ! 0 #60 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 #82 CALL ERRHDL(PATH,MODNAM,'E','203','SRCRANGE') ! 0 #95 998 CALL ERRHDL(PATH,MODNAM,'E','500',KEYWRD) ! 0 HRLOOP.f90#52 CHARACTER MODNAM*12 #62 MODNAM = 'HRLOOP' ! 2 #276 CALL ERRHDL(PATH,MODNAM,'I','470',DUMMY) HRQEXT.f90#25 CHARACTER MODNAM*12 #34 MODNAM = 'HRQEXT' ! 0 #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 HSETFG.f90#27 CHARACTER MODNAM*12 #33 MODNAM = 'HSETFG' ! 4312 HSPRIM.f90#24 CHARACTER MODNAM*6 #26 MODNAM = 'HSPRIM' ! 9132 IBLVAL.f90#49 CHARACTER MODNAM*12 #59 MODNAM = 'IBLVAL' ! 40087K INCLUD.f90#27 CHARACTER MODNAM*12 #44 MODNAM = 'INCLUD' ! 0 #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 #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 INITFL.f90#30 CHARACTER MODNAM*12 #35 MODNAM = 'INITFL' ! 0 #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#25 CHARACTER MODNAM*12 #36 MODNAM = 'INPPDM' #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#25 CHARACTER MODNAM*12 #36 MODNAM = 'INPPDN' #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#23 CHARACTER MODNAM*12 #34 MODNAM = 'INPPHI' #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) INPSUM.f90#23 CHARACTER MODNAM*12 #28 MODNAM = 'INPSUM' ! 3 JULIAN.f90#29 CHARACTER MODNAM*12 #40 MODNAM = 'JULIAN' ! 4326 #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) LLCALC.f90#31 CHARACTER MODNAM*12 #37 MODNAM = 'LLCALC' ! 10694K LTOPG.f90#26 CHARACTER MODNAM*12 #34 MODNAM = 'LTOPG' ! 4320 LWIND.f90#27 CHARACTER MODNAM*12 #31 MODNAM = 'LWIND' ! 0 LWRUPR.f90#27 CHARACTER MODNAM*12 #37 MODNAM = 'LWRUPR' ! 816 MAXFIL.f90#30 CHARACTER MODNAM*12 #35 MODNAM = 'MAXFIL' ! 0 #71 CALL ERRHDL(PATH,MODNAM,'E','520',DUMMY) MAXPM10.f90#29 CHARACTER MODNAM*12 #35 MODNAM = 'MAXPM10' ! 0 MAXVALUE.f90#29 CHARACTER MODNAM*12 #35 MODNAM = 'MAXVALUE' ! 1620 MEANDR.f90#39 CHARACTER MODNAM*12 #47 MODNAM = 'MEANDR' !2767680 MECARD.f90#28 CHARACTER MODNAM*12 #34 MODNAM = 'MECARD' ! 24 #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#45 CHARACTER MODNAM*12 #58 MODNAM = 'MEOPEN' ! 3 #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#37 CHARACTER MODNAM*12 #48 MODNAM = 'MEREAD' ! 0 #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 METCHK.f90#27 CHARACTER MODNAM*12 #32 MODNAM = 'METCHK' ! 4320 METDAT.f90#33 CHARACTER MODNAM*12 #41 MODNAM = 'METDAT' ! 2 #194 99 CALL ERRHDL(PATH,MODNAM,'E','510','SURFFILE') ! 0 METDEB.f90#30 CHARACTER MODNAM*12 #36 MODNAM = 'METDEB' ! 0 METDET.f90#22 CHARACTER MODNAM*12 #27 MODNAM = 'METDET' ! 0 METEXT.f90#70 CHARACTER MODNAM*12 #81 MODNAM = 'METEXT' ! 4320 #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#22 CHARACTER MODNAM*12 #33 MODNAM = 'METH_2' #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 #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 METINI.f90#50 CHARACTER MODNAM*12 METQA.f90#35 CHARACTER MODNAM*12 #41 MODNAM = 'METQA' ! 4320 #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) METSUM.f90#27 CHARACTER MODNAM*12 #34 MODNAM = 'METSUM' ! 0 MODOPT.f90#49 CHARACTER MODNAM*12 #56 MODNAM = 'MODOPT' ! 3 #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 MSETFG.f90#24 CHARACTER MODNAM*12 #30 MODNAM = 'MSETFG' ! 790 MSGWRT.f90#22 CHARACTER MODNAM*12 #29 MODNAM = 'MSGWRT' ! 0 #59 & IERRLN , MODNAM , ERRMG1 , ERRMG2 #62 WRITE (IERWRT,1117) PATH , ERRTP , ERRCD , IERRLN , MODNAM(1:6)& #73 999 CALL ERRHDL(PATH,MODNAM,'E','510','ERRORMSG') ! 0 MXEVNT.f90#27 CHARACTER MODNAM*12 #35 MODNAM = 'MXEVNT' ! 0 #65 CALL ERRHDL(PATH,MODNAM,'W','413',DUMMY) #127 CALL ERRHDL(PATH,MODNAM,'E','510',DUMMY) MYEAR.f90#26 CHARACTER MODNAM*12 #31 MODNAM = 'MYEAR' ! 0 #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') NHIGH.f90#28 CHARACTER MODNAM*12 #34 MODNAM = 'NHIGH' ! 1620 NO2EQ.f90#22 CHARACTER MODNAM*12 #27 MODNAM = 'NO2EQ' ! 0 #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#23 CHARACTER MODNAM*12 #34 MODNAM = 'NO2RAT' #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 #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#22 CHARACTER MODNAM*12 #28 MODNAM = 'O3EXT' ! 0 #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#25 CHARACTER MODNAM*12 #30 MODNAM = 'O3FIL' ! 0 #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#22 CHARACTER MODNAM*12 #27 MODNAM = 'O3VAL' ! 0 #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 ') OCALC.f90#42 CHARACTER MODNAM*12 #51 MODNAM = 'OCALC' ! 0 OEVENT.f90#22 CHARACTER MODNAM*12 #28 MODNAM = 'OEVENT' ! 0 #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#23 CHARACTER MODNAM*12 #32 MODNAM = 'OLMGRP' #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) #82 CALL ERRHDL(PATH,MODNAM,'E','203','SRCRANGE') ! 0 OLM_CALC.f90#24 CHARACTER MODNAM*12 #31 MODNAM = 'OLM_CALC' ! 0 ONDATA.f90#27 CHARACTER MODNAM*12 #33 MODNAM = 'ONDATA' ! 0 #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#27 CHARACTER MODNAM*12 #34 MODNAM = 'OPARM' ! 0 #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#24 CHARACTER MODNAM*12 #29 MODNAM = 'OUCARD' ! 12 #77 CALL ERRHDL(PATH,MODNAM,'E','154',KEYWRD) ! 0 #96 CALL ERRHDL(PATH,MODNAM,'E','110',KEYWRD) ! 0 OUDALY.f90#23 CHARACTER MODNAM*12 #30 MODNAM = 'OUDALY' ! 0 #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#22 CHARACTER MODNAM*12 #30 MODNAM = 'OUEVAL' ! 0 #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#23 CHARACTER MODNAM*12 #37 MODNAM = 'OUHIGH' ! 3 #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 #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 #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#27 CHARACTER MODNAM*12 #35 MODNAM = 'OUMXFL' ! 0 #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#23 CHARACTER MODNAM*12 #30 MODNAM = 'OUMXVL' ! 3 #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#24 CHARACTER MODNAM*12 #37 MODNAM = 'OUPLOT' ! 0 #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#30 CHARACTER MODNAM*12 #38 MODNAM = 'OUPOST' ! 0 #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#22 CHARACTER MODNAM*12 #29 MODNAM = 'OURANK' ! 0 #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#22 CHARACTER MODNAM*12 #30 MODNAM = 'OUSEAS' ! 0 #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#22 CHARACTER MODNAM*12 #31 MODNAM = 'OUTOXX' ! 0 #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#28 CHARACTER MODNAM*12 #33 MODNAM = 'OUTPUT' ! 2 OUTQA.f90#27 CHARACTER MODNAM*12 #35 MODNAM = 'OUTQA' ! 3 #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#27 CHARACTER MODNAM*12 #32 MODNAM = 'PARTDE' ! 0 #37 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #41 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 PCALC.f90#86 CHARACTER MODNAM*12 #101 MODNAM = 'PCALC' ! 9132 PDEP.f90#25 CHARACTER MODNAM*12 #32 MODNAM = 'PDEP' ! 0 PDEPG.f90#26 CHARACTER MODNAM*12 #32 MODNAM = 'PDEPG' ! 0 PDEPTH.f90#25 CHARACTER MODNAM*12 #29 MODNAM = 'PDEPTH' ! 0 PDF.f90#31 CHARACTER MODNAM*12 #37 MODNAM = 'PDF' ! 10694K PDIS.f90#34 CHARACTER MODNAM*12 #40 MODNAM = 'PDIS' !4043512 PENFCT.f90#38 CHARACTER MODNAM*12 #43 MODNAM = 'PENFCT' ! 9132 PERAVE.f90#24 CHARACTER MODNAM*12 #30 MODNAM = 'PERAVE' ! 2 PERPLT.f90#28 CHARACTER MODNAM*12 #36 MODNAM = 'PERPLT' ! 0 #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#25 CHARACTER MODNAM*12 #33 MODNAM = 'PERPST' ! 0 #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) PFLCNV.f90#41 CHARACTER MODNAM*12 #50 MODNAM = 'PFLCNV' ! 4320 PFLINI.f90#25 CHARACTER MODNAM*12 #33 MODNAM = 'PFLINI' ! 4320 PFRACT.f90#26 CHARACTER MODNAM*12 #35 MODNAM = 'PFRACT' ! 21061K #79 CALL ERRHDL(PATH,MODNAM,'I','405',DUMMY) PITEFF.f90#25 CHARACTER MODNAM*12 #34 MODNAM = 'PITEFF' ! 0 PITEMI.f90#27 CHARACTER MODNAM*12 #32 MODNAM = 'PITEMI' ! 0 PLOTFL.f90#28 CHARACTER MODNAM*12 #37 MODNAM = 'PLOTFL' ! 0 #113 CALL ERRHDL(PATH,MODNAM,'E','520',DUMMY) PLTANN.f90#24 CHARACTER MODNAM*12 #31 MODNAM = 'PLTANN' ! 0 #94 CALL ERRHDL(PATH,MODNAM,'E','520',DUMMY) PLUMEF.f90#41 CHARACTER MODNAM*12 #49 MODNAM = 'PLUMEF' ! 17595K PLUME_VOL.f90#24 CHARACTER MODNAM*12 #52 MODNAM = 'PLUME_VOL' ! 0 POLDST.f90#22 CHARACTER MODNAM*12 #28 MODNAM = 'POLDST' ! 3 #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#22 CHARACTER MODNAM*12 #27 MODNAM = 'POLLID' ! 3 #32 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #36 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 POLORG.f90#22 CHARACTER MODNAM*12 #30 MODNAM = 'POLORG' ! 3 #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#28 CHARACTER MODNAM*12 #33 MODNAM = 'POSTFL' ! 0 #80 CALL ERRHDL(PATH,MODNAM,'E','520',DUMMY) PPARM.f90#22 CHARACTER MODNAM*12 #29 MODNAM = 'PPARM' ! 9 #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#28 CHARACTER MODNAM*12 #33 MODNAM = 'PRBASE' ! 3 #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 PREBOUND.f90#27 CHARACTER MODNAM*12 #33 MODNAM = 'PREBOUND' ! 0 PRECART.f90#22 CHARACTER MODNAM*12 #27 MODNAM = 'PRECART' ! 0 PREGENCAR.f90#24 CHARACTER MODNAM*12 #32 MODNAM = 'PREGENCAR' ! 0 PREGENPOL.f90#23 CHARACTER MODNAM*12 #31 MODNAM = 'PREGENPOL' ! 3 PREINCLUD.f90#26 CHARACTER MODNAM*12 #43 MODNAM = 'PREINCLUD' ! 0 PREPOLDST.f90#22 CHARACTER MODNAM*12 #28 MODNAM = 'PREPOLDST' ! 3 PREPOLR.f90#22 CHARACTER MODNAM*12 #27 MODNAM = 'PREPOLR' ! 15 PRERADRNG.f90#22 CHARACTER MODNAM*12 #28 MODNAM = 'PRERADRNG' ! 0 PREREINC.f90#24 CHARACTER MODNAM*12 #29 MODNAM = 'PREREINC' ! 0 PRESET.f90#26 CHARACTER MODNAM*12 #52 MODNAM = 'PRESET' ! 3 PRESOINC.f90#27 CHARACTER MODNAM*12 #32 MODNAM = 'PRESOINC' ! 0 PREXYPNTS.f90#22 CHARACTER MODNAM*12 #28 MODNAM = 'PREXYPNTS' ! 0 PRMCALC.f90#33 CHARACTER MODNAM*12 #52 MODNAM = 'PRMCALC' ! 876672 PRMDELH.f90#37 CHARACTER MODNAM*12 #51 MODNAM = 'PRMDELH' ! 473220 PRMHEFF.f90#38 CHARACTER MODNAM*12 #43 MODNAM = 'PRMHEFF' ! 421752 PRM_PCHI.f90#41 CHARACTER MODNAM*12 #48 MODNAM = 'PRM_PCHI' ! 330554 PRM_PDEP.f90#26 CHARACTER MODNAM*12 #33 MODNAM = 'PRM_PDEP' ! 0 PRM_PDEPG.f90#26 CHARACTER MODNAM*12 #32 MODNAM = 'PRM_PDEPG' ! 0 PRM_PLUME.f90#24 CHARACTER MODNAM*12 #29 MODNAM = 'PRM_PLUME' ! 330554 PROFIL.f90#27 CHARACTER MODNAM*12 #31 MODNAM = 'PROFIL' ! 3 #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 PRTANN.f90#27 CHARACTER MODNAM*12 #35 MODNAM = 'PRTANN' ! 2 PRTDAY.f90#26 CHARACTER MODNAM*12 #34 MODNAM = 'PRTDAY' ! 0 PRTDET.f90#24 CHARACTER MODNAM*12 #31 MODNAM = 'PRTDET' ! 0 PRTMAX.f90#27 CHARACTER MODNAM*12 #36 MODNAM = 'PRTMAX' ! 2 PRTMET.f90#26 CHARACTER MODNAM*12 #32 MODNAM = 'PRTMET' ! 3 PRTNHI.f90#31 CHARACTER MODNAM*12 #39 MODNAM = 'PRTNHI' ! 2 PRTOPT.f90#40 CHARACTER MODNAM*12 #47 MODNAM = 'PRTOPT' ! 3 PRTPM10.f90#24 CHARACTER MODNAM*12 #32 MODNAM = 'PRTPM10' ! 0 PRTPM10SUM.f90#22 CHARACTER MODNAM*12 #32 MODNAM = 'PRTSUM' ! 0 PRTREC.f90#31 CHARACTER MODNAM*12 #39 MODNAM = 'PRTREC' ! 3 PRTSOC.f90#28 CHARACTER MODNAM*12 #36 MODNAM = 'PRTSOC' ! 0 PRTSRC.f90#46 CHARACTER MODNAM*12 #61 MODNAM = 'PRTSRC' ! 3 PRTSUM.f90#30 CHARACTER MODNAM*12 #41 MODNAM = 'PRTSUM' ! 2 PSIDE.f90#60 CHARACTER MODNAM*12 #78 MODNAM = 'PSIDE' !1051450 PSIDE2.f90#25 CHARACTER MODNAM*12 #46 MODNAM = 'PSIDE2' ! 20762 PSIDE2_TOX.f90#29 CHARACTER MODNAM*12 #55 MODNAM = 'PSIDE2_TOX' ! 0 PSIDE_TOX.f90#63 CHARACTER MODNAM*12 #86 MODNAM = 'PSIDE_TOX' ! 0 PSRDEB.f90#28 CHARACTER MODNAM*12 #33 MODNAM = 'PSRDEB' ! 0 PSTANN.f90#24 CHARACTER MODNAM*12 #31 MODNAM = 'PSTANN' ! 0 #111 CALL ERRHDL(PATH,MODNAM,'E','520',DUMMY) PTFRAC.f90#25 CHARACTER MODNAM*12 #29 MODNAM = 'PTFRAC' ! 0 PVMRM_CALC.f90#24 CHARACTER MODNAM*12 #43 MODNAM = 'PVMRM_CALC' ! 0 PWIDTH.f90#38 CHARACTER MODNAM*12 #59 MODNAM = 'PWIDTH' ! 18497K RADRNG.f90#22 CHARACTER MODNAM*12 #28 MODNAM = 'RADRNG' ! 0 #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#22 CHARACTER MODNAM*12 #29 MODNAM = 'RANKFL' ! 0 #89 CALL ERRHDL(PATH,MODNAM,'E','520',DUMMY) RECARD.f90#25 CHARACTER MODNAM*12 #31 MODNAM = 'RECARD' ! 21 #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#25 CHARACTER MODNAM*12 #31 MODNAM = 'RECART' ! 0 #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 RECSIZ.f90#24 CHARACTER MODNAM*12 #31 MODNAM = 'RECSIZ' ! 21 REELUN.f90#27 CHARACTER MODNAM*12 #32 MODNAM = 'REELUN' ! 0 #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 REFL_HT.f90#28 CHARACTER MODNAM*12 #37 MODNAM = 'REFL_HT' ! 17592K REFPTG.f90#53 CHARACTER MODNAM*12 REFSV.f90#35 CHARACTER MODNAM*12 #44 MODNAM = 'REFSV ' ! 264828 REFSVC.f90#35 CHARACTER MODNAM*12 #51 MODNAM = 'REFSVC' ! 43326 REFSVM.f90#35 CHARACTER MODNAM*12 #46 MODNAM = 'REFSVM' ! 264828 REFSW.f90#38 CHARACTER MODNAM*12 #50 MODNAM = 'REFSW ' ! 264828 REFSWC.f90#39 CHARACTER MODNAM*12 #50 MODNAM = 'REFSWC' ! 43326 REFSWM.f90#39 CHARACTER MODNAM*12 #51 MODNAM = 'REFSWM' ! 264828 REFWS.f90#46 CHARACTER MODNAM*12 #63 MODNAM = ' REFWS' ! 529656 RELDISP.f90#25 CHARACTER MODNAM*12 #32 MODNAM = 'RELDISP' ! 0 REPOLR.f90#22 CHARACTER MODNAM*12 #28 MODNAM = 'REPOLR' ! 15 #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 RESINI.f90#31 CHARACTER MODNAM*12 #37 MODNAM = 'RESINI' ! 2 RMSSIG.f90#35 CHARACTER MODNAM*12 #40 MODNAM = 'RMSSIG' ! 61677K RSDUMP.f90#40 CHARACTER MODNAM*12 #46 MODNAM = 'RSDUMP' ! 0 #176 99 CALL ERRHDL(PATH,MODNAM,'E','500','SAVEFILE') ! 0 RSINIT.f90#30 CHARACTER MODNAM*12 #36 MODNAM = 'RSINIT' ! 0 #116 CALL ERRHDL(PATH,MODNAM,'E','510',DUMMY) #122 CALL ERRHDL(PATH,MODNAM,'E','580',DUMMY) RUNNOT.f90#26 CHARACTER MODNAM*12 #31 MODNAM = 'RUNNOT' ! 3 #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#26 CHARACTER MODNAM*12 #31 MODNAM = 'SAVEFL' ! 0 #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 SBLRIS.f90#33 CHARACTER MODNAM*12 #39 MODNAM = 'SBLRIS' !2957164 SBYVAL.f90#23 CHARACTER MODNAM*12 #32 MODNAM = 'SBYVAL' ! 9 SCIMIT.f90#30 CHARACTER MODNAM*12 #35 MODNAM = 'SCIMIT' ! 0 #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#24 CHARACTER MODNAM*12 #30 MODNAM = 'SETCAR' ! 0 #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) SETIDG.f90#31 CHARACTER MODNAM*12 #40 MODNAM = 'SETIDG' ! 0 SETORD.f90#22 CHARACTER MODNAM*12 #27 MODNAM = 'SETORD' ! 369 #32 CALL ERRHDL(PPATH,MODNAM,'E','115',PATH) ! 0 #39 CALL ERRHDL(PPATH,MODNAM,'E','120',PATH) ! 0 #49 CALL ERRHDL(PPATH,MODNAM,'E','115',PATH) ! 0 #52 CALL ERRHDL(PPATH,MODNAM,'E','120',PATH) ! 0 #60 CALL ERRHDL(PPATH,MODNAM,'E','115',PATH) ! 0 #63 CALL ERRHDL(PPATH,MODNAM,'E','120',PATH) ! 0 SETPOL.f90#24 CHARACTER MODNAM*12 #31 MODNAM = 'SETPOL' ! 3 #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) SETSRC.f90#33 CHARACTER MODNAM*12 #39 MODNAM = 'SETSRC' ! 27396 SETUP.f90#41 CHARACTER MODNAM*12 #59 MODNAM = 'SETUP' ! 3 #137 CALL ERRHDL(PPATH,MODNAM,'E','100',PATH) ! 0 #149 CALL ERRHDL(PATH,MODNAM,'E','105',KEYWRD) ! 0 #218 CALL ERRHDL(PATH,MODNAM,'E','125',DUMMY) SET_DATES.f90#22 CHARACTER MODNAM*12 #27 MODNAM = 'SET_DATES' ! 4320 #50 CALL ERRHDL(PATH,MODNAM,'E','365',DUMMY) SET_METDATA.f90#33 CHARACTER MODNAM*12 #42 MODNAM = 'SET_METDATA' ! 4320 #306 CALL ERRHDL(PATH,MODNAM,'E','460',DUMMY) #310 CALL ERRHDL(PATH,MODNAM,'I','460',DUMMY) SET_WINDOW.f90#35 CHARACTER MODNAM*12 #40 MODNAM = 'SET_WINDOW' ! 3 #55 CALL ERRHDL(PATH,MODNAM,'W','360',KEYWRD) ! 0 #69 CALL ERRHDL(PATH,MODNAM,'E','365',KEYWRD) ! 0 SFDATA.f90#32 CHARACTER MODNAM*12 #38 MODNAM = 'SFDATA' ! 3 #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) SHAVE.f90#22 CHARACTER MODNAM*12 #28 MODNAM = 'SHAVE' ! 0 SHOUT.f90#22 CHARACTER MODNAM*12 #29 MODNAM = 'SHOUT' ! 0 #83 CALL ERRHDL(PATH,MODNAM,'E','520',DUMMY) SIGY.f90#43 CHARACTER MODNAM*12 #50 MODNAM = 'SIGY' ! 27549K SIGYPR.f90#25 CHARACTER*12 MODNAM #32 MODNAM = 'SIGYPR' ! 837190 SIGZ.f90#38 CHARACTER MODNAM*12 #47 MODNAM = 'SIGZ' ! 61677K SIGZPR.f90#25 CHARACTER*12 MODNAM #32 MODNAM = 'SIGZPR' ! 230226 SINDEX.f90#24 CHARACTER MODNAM*6 #28 MODNAM = 'SINDEX' ! 282 SKCALC.f90#36 CHARACTER MODNAM*12 #44 MODNAM = 'SKCALC' ! 10694K SOCARD.f90#32 CHARACTER MODNAM*12 #38 MODNAM = 'SOCARD' ! 291 #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 ') #337 & CALL ERRHDL('CO',MODNAM,'E','130','GDSEASON') #341 & CALL ERRHDL('CO',MODNAM,'E','130','GDLANUSE') #349 CALL ERRHDL(PATH,MODNAM,'E','110',KEYWRD) ! 0 SOELUN.f90#27 CHARACTER MODNAM*12 #32 MODNAM = 'SOELUN' ! 3 #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#23 CHARACTER MODNAM*12 #32 MODNAM = 'SOGRP' #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) #81 CALL ERRHDL(PATH,MODNAM,'E','203','SRCRANGE') ! 0 SOLOCA.f90#25 CHARACTER MODNAM*12 #34 MODNAM = 'SOLOCA' #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#28 CHARACTER MODNAM*12 #37 MODNAM = 'SOPARM' #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 SPRTHT.f90#27 CHARACTER MODNAM*12 #38 MODNAM = 'SPRTHT' ! 8 SRCQA.f90#38 CHARACTER MODNAM*12 #45 MODNAM = 'SRCQA' ! 3 #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)) SRCSIZ.f90#29 CHARACTER MODNAM*12 #34 MODNAM = 'SRCSIZ' ! 291 STAEND.f90#34 CHARACTER MODNAM*12 #40 MODNAM = 'STAEND' ! 3 #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 STODBL.f90#29 CHARACTER STRVAR*(*) , CHK , MODNAM*6 , NUMS*10 #34 MODNAM = 'STODBL' ! 0 STONUM.f90#23 CHARACTER STRVAR*(*) , CHK , MODNAM*6 , NUMS*10 #29 MODNAM = 'STONUM' ! 2879 SUMTBL.f90#22 CHARACTER MODNAM*12 #30 MODNAM = 'SUMTBL' ! 4 #74 & IERRLN , MODNAM , ERRMG1 , ERRMG2 #78 & MODNAM(1:6) , ERRMG1 , ERRMG2 #99 & IERRLN , MODNAM , ERRMG1 , ERRMG2 #105 & MODNAM(1:6) , ERRMG1 , ERRMG2 #135 9999 CALL ERRHDL(PATH,MODNAM,'E','510','ERRORMSG') ! 0 SUMVAL.f90#26 CHARACTER MODNAM*12 #31 MODNAM = 'SUMVAL' !2901448 SURFIL.f90#27 CHARACTER MODNAM*12 #31 MODNAM = 'SURFIL' ! 3 #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 SZSFCL.f90#37 CHARACTER MODNAM*12 #43 MODNAM = 'SZSFCL' ! 60970K SZSFCLPR.f90#38 CHARACTER MODNAM*12 #44 MODNAM = 'SZSFCLPR' ! 204468 TERFIL.f90#26 CHARACTER MODNAM*12 #31 MODNAM = 'TERFIL' ! 0 #38 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 #41 CALL ERRHDL(PATH,MODNAM,'W','200',KEYWRD) ! 0 TERHGT.f90#29 CHARACTER MODNAM*12 #36 MODNAM = 'TERHGT' ! 0 #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#27 CHARACTER MODNAM*12 #32 MODNAM = 'TERLOC' ! 0 #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#22 CHARACTER MODNAM*12 #29 MODNAM = 'TERRST' ! 6 #43 & IERRLN , MODNAM , ERRMG1 , ERRMG2 #77 9999 CALL ERRHDL(PATH,MODNAM,'E','510','ERRORMSG') ! 0 TGCARD.f90#25 CHARACTER MODNAM*12 #31 MODNAM = 'TGCARD' ! 0 #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 #58 MODNAM = 'TGDATA' #67 CALL ERRHDL(PATH,MODNAM,'E','299',DUMMY) TGELUN.f90#27 CHARACTER MODNAM*12 #32 MODNAM = 'TGELUN' ! 0 #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#35 CHARACTER MODNAM*12 #43 MODNAM = 'TGINIT' ! 3044 TGQA.f90#29 CHARACTER MODNAM*12 #42 MODNAM = 'TGQA' ! 0 #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#22 CHARACTER MODNAM*12 #27 MODNAM = 'TITLES' ! 3 #33 & CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) #38 & CALL ERRHDL(PATH,MODNAM,'W','200',KEYWRD) TOXXFL.f90#24 CHARACTER MODNAM*12 #31 MODNAM = 'TOXXFL' ! 0 #79 CALL ERRHDL(PATH,MODNAM,'E','520',DUMMY) UADATA.f90#32 CHARACTER MODNAM*12 #38 MODNAM = 'UADATA' ! 3 #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#24 CHARACTER MODNAM*12 #32 MODNAM = 'URBANS' ! 0 #37 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 #50 CALL ERRHDL(PATH,MODNAM,'E','203','SRCRANGE') ! 0 URBCALC.f90#35 CHARACTER MODNAM*12 #41 MODNAM = 'URBCAL' ! 0 URBOPT.f90#33 CHARACTER MODNAM*12 #38 MODNAM = 'URBOPT' ! 0 #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 VARINI.f90#44 CHARACTER MODNAM*12 #51 MODNAM = 'VARINI' ! 3 VCALC.f90#41 CHARACTER MODNAM*12 #49 MODNAM = 'VCALC' ! 9132 VDIS.f90#24 CHARACTER MODNAM*12 #30 MODNAM = 'VDIS' !3945120 VOLCALC.f90#35 CHARACTER MODNAM*12 #43 MODNAM = 'VOLCALC' !2630016 VPARM.f90#22 CHARACTER MODNAM*12 #29 MODNAM = 'VPARM' ! 9 #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 VRTCBL.f90#46 CHARACTER MODNAM*12 #55 MODNAM = 'VRTCBL' !7278396 VRTSBL.f90#35 CHARACTER MODNAM*12 #44 MODNAM = 'VRTSBL' ! 17634K VRTSBN.f90#34 CHARACTER MODNAM*12 #41 MODNAM = 'VRTSBN' ! 288376 WAKFLG.f90#32 CHARACTER MODNAM*12 #38 MODNAM = 'WAKFLG' ! 9132 WDROTA.f90#26 CHARACTER MODNAM*12 #32 MODNAM = 'WDROTA' #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#27 CHARACTER MODNAM*12 #33 MODNAM = 'WSCATS' ! 0 #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 XTRPDN.f90#34 CHARACTER MODNAM*12 XTRPTG.f90#38 CHARACTER MODNAM*12 XWIDTH.f90#26 CHARACTER MODNAM*12 #32 MODNAM = 'XWIDTH' ! 17410K XYDIST.f90#33 CHARACTER MODNAM*12 #39 MODNAM = 'XYDIST' !2630016 XYPNTS.f90#25 CHARACTER MODNAM*12 #31 MODNAM = 'XYPNTS' ! 0 #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) ZBRENT.f90#28 CHARACTER MODNAM*12 #39 MODNAM = 'ZBRENT' ! 82256
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