ARVERT.f90#35 SOID = FIELD(3) #43 CALL STONUM(FIELD(K),ILEN_FLD,FNUMX,IMIT) ! 0 #49 CALL STONUM(FIELD(K+1),ILEN_FLD,FNUMY,IMIT) ! 0 AVETIM.f90#42 KOPT = FIELD(I) ! 9 #66 KOPT = FIELD(I) ! 9 COUNIT.f90#46 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #54 EMILBL(1) = FIELD(4) #55 OUTLBL(1) = FIELD(5) #56 PERLBL(1) = FIELD(5) DAYRNG.f90#54 CALL FSPLIT(PATH,KEYWRD,FIELD(I),ILEN_FLD,'-',RMARK,BEGRNG, & DEBOPT.f90#45 KOPT = FIELD(I) ! 0 #66 IF ( FIELD(4).NE.'METEOR' ) THEN ! 0 DISCAR.f90#78 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #86 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 0 #96 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) ! 0 #105 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 0 #114 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 0 #124 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) ! 0 #133 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 0 #143 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) ! 0 #151 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 0 DISPOL.f90#80 SOID = FIELD(3) ! 0 #82 CALL STONUM(FIELD(4),ILEN_FLD,RANGE,IMIT) #86 CALL STONUM(FIELD(5),ILEN_FLD,DIRECT,IMIT) #98 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 0 #107 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 0 #116 CALL STONUM(FIELD(8),ILEN_FLD,FNUM,IMIT) ! 0 #126 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 0 #135 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 0 #145 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 0 #153 CALL STONUM(FIELD(8),ILEN_FLD,FNUM,IMIT) ! 0 DPUNIT.f90#47 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #57 EMILBL(I) = FIELD(4) #58 OUTLBL(I) = FIELD(5) #62 PERLBL(I) = FIELD(5) ! 0 #68 EMILBL(I) = FIELD(4) #69 OUTLBL(I) = FIELD(5) #73 PERLBL(I) = FIELD(5) ! 0 DSBLDG.f90#48 SOID = FIELD(3) ! 225 DSFILL.f90#40 CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 9 #65 CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 324 #93 CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 324 #120 CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 324 #144 CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 324 EDECAY.f90#41 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 EFFILL.f90#34 CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 0 EMUNIT.f90#45 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #53 EMILBL(1) = FIELD(4) #54 OUTLBL(1) = FIELD(5) #58 PERLBL(1) = FIELD(5) ! 0 EMVARY.f90#58 SOID = FIELD(3) ! 0 #66 QFLAG(ISDX) = FIELD(4) ! 0 #110 QFLAG(ISDX) = FIELD(4) EVCART.f90#62 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #70 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 0 #78 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) ! 0 #86 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 0 #94 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 0 #106 IF ( FIELD(8).EQ.ARCID(J) ) THEN ! 0 #120 ARCID(NUMARC) = FIELD(8) ! 0 EVLOC.f90#49 USEVN = FIELD(3) ! 0 #58 IDNAM1 = FIELD(4) ! 0 #60 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) #68 IDNAM2 = FIELD(6) ! 0 #70 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) #79 CALL STONUM(FIELD(8),ILEN_FLD,FNUM,IMIT) ! 0 #86 CALL STONUM(FIELD(9),ILEN_FLD,FNUM,IMIT) ! 0 #99 CALL STONUM(FIELD(10),ILEN_FLD,FNUM,IMIT) ! 0 EVNTFL.f90#40 EVPARM = FIELD(4) EVPER.f90#67 USEVN = FIELD(3) ! 0 #79 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 0 #101 EVGRP(IEVENT) = FIELD(5) #115 CALL STODBL(FIELD(6),ILEN_FLD,DNUM,IMIT) ! 0 EV_SETUP.f90#85 IF ( ECHO .AND. (FIELD(1).EQ.'OU' .AND. FIELD(2).EQ.'FINISHED')& #113 IF ( FIELD(1).EQ.'NO' .AND. FIELD(2).EQ.'ECHO' ) THEN ! 0 #126 CALL EXPATH(FIELD(1),PATHWY,7,NOPATH) #139 CALL EXKEY(FIELD(2),NOKEY) ! 0 FLAGDF.f90#38 CALL STONUM(FIELD(3),ILEN_FLD,ZFLG,IMIT) ! 0 FLGHGT.f90#40 IF ( FIELD(I).EQ.'FLAG' ) ISC = I + 1 ! 0 #56 CALL STONUM(FIELD(ISC),ILEN_FLD,FNUM,IMIT) ! 0 #67 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 GASDEP.f90#58 SOID = FIELD(3) ! 0 #70 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) #81 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) #92 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) #103 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) #136 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) #147 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) #158 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) #169 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) GDDEF.f90#47 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #57 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) #67 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) #78 REFSPE = FIELD(6) ! 0 GDLAND.f90#49 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 GDSEAS.f90#48 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 GENCAR.f90#37 IF ( FIELD(I).EQ.'XYINC' ) ISC = I + 1 ! 0 #60 CALL STONUM(FIELD(ISC+K-1),ILEN_FLD,TEMPP(K),IMIT) ! 0 GENPOL.f90#36 IF ( FIELD(I).EQ.'GDIR' ) ISC = I + 1 ! 18 #59 CALL STONUM(FIELD(ISC+K-1),ILEN_FLD,TEMPP(K),IMIT) ! 9 GETFLD.f90#39 WRITE (FIELD(I),WRTFRM) (RUNST(J),J=LOCB(I),LOCE(I)) ! 5646 #43 WRITE (FIELD(I),WRTFRM) (RUNST(J),J=LOCB(I),LOCB(I)+ILEN_FLD& GVSUBD.f90#47 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 HILHGT.f90#35 IF ( FIELD(I).EQ.'HILL' ) ISC = I + 1 ! 0 #51 CALL STONUM(FIELD(ISC),ILEN_FLD,FNUM,IMIT) ! 0 #62 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 HQREAD.f90#67 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #72 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) #77 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) #82 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) #87 HRSOID = FIELD(7) #90 CALL STONUM(FIELD(8),ILEN_FLD,EV_HRQS(IS,IHR),IMIT) ! 0 #100 CALL STONUM(FIELD(9),ILEN_FLD,EV_HRTS(IS,IHR),IMIT) ! 0 #104 CALL STONUM(FIELD(10),ILEN_FLD,EV_HRVS(IS,IHR),IMIT) HREMIS.f90#64 TEMPID = FIELD(4) ! 0 #74 CALL FSPLIT(PATH,KEYWRD,FIELD(I),ILEN_FLD,'-',RMARK,LOWID, & HRQEXT.f90#62 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #66 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) #70 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) #74 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) #78 HRSOID = FIELD(7) #81 CALL STONUM(FIELD(8),ILEN_FLD,HRQS,IMIT) ! 0 #91 CALL STONUM(FIELD(9),ILEN_FLD,HRTS,IMIT) ! 0 #94 CALL STONUM(FIELD(10),ILEN_FLD,HRVS,IMIT) INCLUD.f90#106 IF ( FIELD(1).EQ.'NO' .AND. FIELD(2).EQ.'ECHO' ) GOTO 11 ! 0 #116 CALL EXPATH(FIELD(1),PATHWY,7,NOPATH) #129 CALL EXKEY(FIELD(2),NOKEY) ! 0 INPPDM.f90#39 SOID = FIELD(3) #49 CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 0 #89 CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 0 INPPDN.f90#39 SOID = FIELD(3) #49 CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 0 #92 CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 0 INPPHI.f90#37 SOID = FIELD(3) #47 CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 0 #90 CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 0 MAIN1.f90#194 CHARACTER(LEN=ILEN_FLD) :: FIELD , INPFIL , OUTFIL , INCFIL #198 DIMENSION FIELD(IFMAX) , KEYWD(IKN) , RUNST(ISTRG) METH_2.f90#51 SOID = FIELD(3) ! 0 #62 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) #72 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) #110 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) #120 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) MODOPT.f90#69 KOPT = FIELD(I) ! 6 #86 KOPT = FIELD(I) ! 6 #94 KOPT = FIELD(I) ! 6 MYEAR.f90#41 IF ( FIELD(3).EQ.'H6H' ) THEN ! 0 #53 IF ( FIELD(3).EQ.'H6H' ) THEN ! 0 #69 ELSEIF ( IFC.EQ.3 .AND. FIELD(3).EQ.'H6H' ) THEN #72 ELSEIF ( IFC.EQ.3 .AND. FIELD(3).NE.'H6H' ) THEN NO2EQ.f90#41 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 NO2RAT.f90#52 SOID = FIELD(3) ! 0 #60 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 0 #90 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) O3FIL.f90#56 IF ( FIELD(4).EQ.'PPM' .OR. FIELD(4).EQ.'PPB' .OR. FIELD(4) & #58 O3FILUNITS = FIELD(4) ! 0 #68 O3FORM = FIELD(5) ! 0 O3VAL.f90#41 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #53 IF ( FIELD(4).EQ.'PPM' .OR. FIELD(4).EQ.'PPB' .OR. FIELD(4) & #55 O3VALUNITS = FIELD(4) ! 0 OEVENT.f90#42 OPTION = FIELD(3) ! 0 OLMGRP.f90#39 ELSEIF ( IFC.LE.3 .AND. FIELD(3).NE.'ALL' ) THEN #46 TEMPID = FIELD(3) ! 0 #74 CALL FSPLIT(PATH,KEYWRD,FIELD(I),ILEN_FLD,'-',RMARK,LOWID, & ONDATA.f90#49 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #57 199 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 0 #67 ONNAME = FIELD(5) ! 0 #74 CALL STONUM(FIELD(6),ILEN_FLD,ONX,IMIT) ! 0 #76 CALL STONUM(FIELD(7),ILEN_FLD,ONY,IMIT) OUDALY.f90#44 IF ( FIELD(3).EQ.'ALLAVE' ) THEN ! 0 #53 IF ( FIELD(I).EQ.'MONTH' .AND. MONTH ) THEN ! 0 #58 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) OUEVAL.f90#48 INPSRC = FIELD(3) ! 0 #76 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) ! 0 OUHIGH.f90#64 IF ( FIELD(3).EQ.'ALLAVE' ) THEN ! 3 #71 ELSEIF ( FIELD(3).EQ.'MONTH' .AND. MONTH ) THEN #83 CALL FSPLIT(PATH,KEYWRD,FIELD(3),ILEN_FLD,'-',RMARK,LPRD,HPRD) ! 0 #144 CALL FSPLIT(PATH,KEYWRD,FIELD(I),ILEN_FLD,'-',RMARK,LPRD,HPRD) ! 3 OUMXFL.f90#53 IF ( FIELD(3).EQ.'MONTH' .AND. MONTH ) THEN ! 0 #57 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #83 INPGRP = FIELD(4) ! 0 #110 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) ! 0 #130 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 0 OUMXVL.f90#49 IF ( FIELD(3).EQ.'ALLAVE' ) THEN ! 3 #56 IF ( FIELD(3).EQ.'MONTH' .AND. MONTH ) THEN ! 0 #60 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #86 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 3 #104 IF ( FIELD(3).EQ.'ALLAVE' ) THEN ! 3 OUPLOT.f90#55 IF ( FIELD(3).EQ.'PERIOD' .AND. PERIOD ) THEN ! 0 #60 ELSEIF ( FIELD(3).EQ.'ANNUAL' .AND. ANNUAL ) THEN #65 ELSEIF ( FIELD(3).EQ.'PERIOD' .OR. FIELD(3).EQ.'ANNUAL' ) THEN #70 ELSEIF ( FIELD(3).EQ.'MONTH' .AND. MONTH ) THEN #74 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #100 INPGRP = FIELD(4) ! 0 #120 IF ( FIELD(5).EQ.NCHR1(I) .OR. FIELD(5).EQ.NCHR2(I) ) THEN ! 0 #158 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 0 OUPOST.f90#64 IF ( FIELD(3).EQ.'PERIOD' .AND. PERIOD ) THEN ! 0 #69 ELSEIF ( FIELD(3).EQ.'ANNUAL' .AND. ANNUAL ) THEN #74 ELSEIF ( FIELD(3).EQ.'PERIOD' .OR. FIELD(3).EQ.'ANNUAL' ) THEN #79 ELSEIF ( FIELD(3).EQ.'MONTH' .AND. MONTH ) THEN #83 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #109 INPGRP = FIELD(4) ! 0 #127 IF ( FIELD(5).EQ.'UNFORM' ) THEN ! 0 #129 ELSEIF ( FIELD(5).EQ.'PLOT' ) THEN #157 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 0 #228 IF ( FIELD(5).EQ.'UNFORM' ) THEN ! 0 #255 ELSEIF ( FIELD(5).EQ.'PLOT' ) THEN #298 IF ( RUN .AND. .NOT.FATAL .AND. FIELD(5).EQ.'PLOT' ) THEN ! 0 OURANK.f90#47 IF ( FIELD(3).EQ.'MONTH' .AND. MONTH ) THEN ! 0 #51 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #92 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 0 #124 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 0 OUSEAS.f90#40 INPGRP = FIELD(3) ! 0 #77 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) ! 0 OUTOXX.f90#54 IF ( FIELD(3).EQ.'MONTH' .AND. MONTH ) THEN ! 0 #58 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #99 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 0 #119 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 0 PERPLT.f90#46 INPGRP = FIELD(4) ! 0 #83 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 0 PERPST.f90#43 INPGRP = FIELD(4) ! 0 #70 IF ( FIELD(5).EQ.'UNFORM' ) THEN ! 0 #72 ELSEIF ( FIELD(5).EQ.'PLOT' ) THEN #91 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 0 #161 IF ( FIELD(5).EQ.'UNFORM' ) THEN ! 0 #164 ELSEIF ( FIELD(5).EQ.'PLOT' ) THEN POLDST.f90#32 IF ( FIELD(I).EQ.'DIST' ) ISC = I + 1 ! 21 #46 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 12 POLLID.f90#40 POLLUT = FIELD(3) ! 3 POLORG.f90#35 IF ( FIELD(I).EQ.'ORIG' ) ISC = I + 1 ! 12 #53 SOID = FIELD(ISC) ! 3 #66 CALL STONUM(FIELD(ISC),ILEN_FLD,XINT,IMIT) ! 0 #73 CALL STONUM(FIELD(ISC+1),ILEN_FLD,YINT,IMIT) ! 0 PRBASE.f90#36 CALL STONUM(FIELD(3),ILEN_FLD,ZBASE,IMIT) ! 3 #42 IF ( IFC.EQ.4 .AND. FIELD(4).EQ.'FEET' ) THEN ! 3 #44 ELSEIF ( IFC.EQ.4 .AND. FIELD(4).NE.'METERS' ) THEN PREBOUND.f90#44 SOID = FIELD(3) ! 0 PRECART.f90#32 NETIDT = FIELD(3) ! 0 #39 KTYPE = FIELD(3) #41 KTYPE = FIELD(4) ! 0 #44 KTYPE = FIELD(4) PREGENCAR.f90#37 IF ( FIELD(I).EQ.'XYINC' ) ISC = I + 1 ! 0 #57 CALL STONUM(FIELD(ISC+K-1),ILEN_FLD,TEMPP(K),IMIT) ! 0 PREGENPOL.f90#36 IF ( FIELD(I).EQ.'GDIR' ) ISC = I + 1 ! 18 #56 CALL STONUM(FIELD(ISC+K-1),ILEN_FLD,TEMPP(K),IMIT) ! 9 PREINCLUD.f90#96 IF ( FIELD(1).EQ.'NO' .AND. FIELD(2).EQ.'ECHO' ) GOTO 11 ! 0 #107 CALL EXPATH(FIELD(1),PATHWY,8,NOPATH) #119 CALL EXKEY(FIELD(2),NOKEY) ! 0 PREPOLDST.f90#32 IF ( FIELD(I).EQ.'DIST' ) ISC = I + 1 ! 21 #45 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 12 PREPOLR.f90#33 NETIDT = FIELD(3) ! 15 #40 KTYPE = FIELD(3) #42 KTYPE = FIELD(4) ! 3 #45 KTYPE = FIELD(4) PRERADRNG.f90#32 IF ( FIELD(I).EQ.'DDIR' ) ISC = I + 1 ! 0 #45 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 PRESET.f90#98 IF ( FIELD(1).EQ.'NO' .AND. FIELD(2).EQ.'ECHO' ) GOTO 11 ! 375 #109 CALL EXPATH(FIELD(1),PATHWY,8,NOPATH) #121 CALL EXKEY(FIELD(2),NOKEY) ! 369 #136 IF ( FIELD(I).EQ.'CONC' .OR. FIELD(I).EQ.'DEPOS' .OR. & #137 & FIELD(I).EQ.'DDEP' .OR. FIELD(I).EQ.'WDEP' ) & #140 IF ( FIELD(I).EQ.'PVMRM' ) THEN #142 ELSEIF ( FIELD(I).EQ.'OLM' ) THEN #150 IF ( FIELD(I).NE.'PERIOD' .AND. FIELD(I).NE.'ANNUAL' ) & #178 CALL FSPLIT(PATH,KEYWRD,FIELD(I),ILEN_FLD,'-',RMARK,LPRD,& #196 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 3 PRESOINC.f90#42 IF ( FIELD(4).EQ.'SEASON' ) THEN ! 0 #44 ELSEIF ( FIELD(4).EQ.'MONTH' ) THEN #46 ELSEIF ( FIELD(4).EQ.'HROFDY' ) THEN #48 ELSEIF ( FIELD(4).EQ.'WSPEED' ) THEN #50 ELSEIF ( FIELD(4).EQ.'SEASHR' ) THEN #52 ELSEIF ( FIELD(4).EQ.'SHRDOW' ) THEN #54 ELSEIF ( FIELD(4).EQ.'SHRDOW7' ) THEN #59 IF ( FIELD(3).NE.PREVGRPID ) THEN ! 0 #61 PREVGRPID = FIELD(3) PREXYPNTS.f90#33 IF ( FIELD(I).EQ.'XPNTS' ) ISC = I + 1 ! 0 #45 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 #56 IF ( FIELD(I).EQ.'YPNTS' ) ISC = I + 1 ! 0 #68 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 PROFIL.f90#47 PROFRM = FIELD(4) ! 0 RADRNG.f90#32 IF ( FIELD(I).EQ.'DDIR' ) ISC = I + 1 ! 0 #46 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 RECART.f90#39 NETIDT = FIELD(3) ! 0 #46 KTYPE = FIELD(3) #48 KTYPE = FIELD(4) ! 0 #51 KTYPE = FIELD(4) #89 IF ( FIELD(3).EQ.NTID(I) ) & REELUN.f90#35 IF ( FIELD(3).EQ.'METERS' ) THEN ! 0 #37 ELSEIF ( FIELD(3).EQ.'FEET' ) THEN REPOLR.f90#37 NETIDT = FIELD(3) ! 15 #44 KTYPE = FIELD(3) #46 KTYPE = FIELD(4) ! 3 #49 KTYPE = FIELD(4) #87 IF ( FIELD(3).EQ.NTID(I) ) & RUNNOT.f90#34 IF ( FIELD(3).EQ.'RUN' ) THEN ! 3 #36 ELSEIF ( FIELD(3).EQ.'NOT' ) THEN SAVEFL.f90#45 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) #52 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) SCIMIT.f90#38 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #50 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) #62 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) #71 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 0 #109 SCIM_SFCFIL = FIELD(7) #110 SCIM_PROFIL = FIELD(8) SETUP.f90#91 IF ( ECHO .AND. (FIELD(1).EQ.'OU' .AND. FIELD(2).EQ.'FINISHED')& #119 IF ( FIELD(1).EQ.'NO' .AND. FIELD(2).EQ.'ECHO' ) THEN ! 375 #132 CALL EXPATH(FIELD(1),PATHWY,7,NOPATH) #145 CALL EXKEY(FIELD(2),NOKEY) ! 369 SET_WINDOW.f90#48 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 3 SFDATA.f90#54 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 3 #62 199 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 3 #78 SFNAME = FIELD(5) ! 0 #85 CALL STONUM(FIELD(6),ILEN_FLD,SFX,IMIT) ! 0 #87 CALL STONUM(FIELD(7),ILEN_FLD,SFY,IMIT) SOELUN.f90#35 IF ( FIELD(3).EQ.'METERS' ) THEN ! 3 #37 ELSEIF ( FIELD(3).EQ.'FEET' ) THEN SOGRP.f90#39 ELSEIF ( IFC.LE.3 .AND. FIELD(3).NE.'ALL' ) THEN #46 TEMPID = FIELD(3) ! 3 #73 CALL FSPLIT(PATH,KEYWRD,FIELD(I),ILEN_FLD,'-',RMARK,LOWID, & SOLOCA.f90#53 SOID = FIELD(3) ! 27 #59 SRCID(ISRC) = FIELD(3) ! 27 #60 SRCTYP(ISRC) = FIELD(4) #71 CALL STONUM(FIELD(5),ILEN_FLD,AXS(ISRC),IMIT) ! 27 #75 CALL STONUM(FIELD(6),ILEN_FLD,AYS(ISRC),IMIT) #81 CALL STONUM(FIELD(7),ILEN_FLD,AZS(ISRC),IMIT) ! 27 SOPARM.f90#51 CALL SINDEX(SRCID,NSRC,FIELD(3),ISDX,FIND) ! 27 #64 CALL STONUM(FIELD(I),ILEN_FLD,TEMP(I-3),IMIT) ! 117 SRCSIZ.f90#51 IF ( FIELD(4).EQ.'SEASON' ) THEN ! 0 #53 ELSEIF ( FIELD(4).EQ.'MONTH' ) THEN #55 ELSEIF ( FIELD(4).EQ.'HROFDY' ) THEN #57 ELSEIF ( FIELD(4).EQ.'WSPEED' ) THEN #59 ELSEIF ( FIELD(4).EQ.'SEASHR' ) THEN #61 ELSEIF ( FIELD(4).EQ.'SHRDOW' ) THEN #63 ELSEIF ( FIELD(4).EQ.'SHRDOW7' ) THEN #68 IF ( FIELD(3).NE.PREVGRPID ) THEN ! 0 #70 PREVGRPID = FIELD(3) #75 IF ( FIELD(3).NE.PREVGRPID ) THEN #77 PREVGRPID = FIELD(3) STAEND.f90#46 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #53 198 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 0 #60 298 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) ! 0 #67 398 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 0 #74 498 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 0 #81 598 CALL STONUM(FIELD(8),ILEN_FLD,FNUM,IMIT) ! 0 #121 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 3 #128 199 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 3 #135 299 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) ! 3 #142 399 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 3 #149 499 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 3 #156 599 CALL STONUM(FIELD(8),ILEN_FLD,FNUM,IMIT) ! 3 #163 699 CALL STONUM(FIELD(9),ILEN_FLD,FNUM,IMIT) ! 3 #170 799 CALL STONUM(FIELD(10),ILEN_FLD,FNUM,IMIT) ! 3 SURFIL.f90#47 METFRM = FIELD(4) ! 0 TERHGT.f90#41 IF ( FIELD(I).EQ.'ELEV' ) ISC = I + 1 ! 0 #57 CALL STONUM(FIELD(ISC),ILEN_FLD,FNUM,IMIT) ! 0 #68 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 TERLOC.f90#35 CALL STONUM(FIELD(3),ILEN_FLD,TGX0,IMIT) ! 0 #41 CALL STONUM(FIELD(4),ILEN_FLD,TGY0,IMIT) ! 0 #48 IF ( FIELD(5).EQ.'FEET' ) THEN ! 0 #51 ELSEIF ( FIELD(5).EQ.'KM' ) THEN #54 ELSEIF ( FIELD(5).NE.'METERS' ) THEN TGELUN.f90#35 IF ( FIELD(3).EQ.'METERS' ) THEN ! 0 #37 ELSEIF ( FIELD(3).EQ.'FEET' ) THEN UADATA.f90#54 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 3 #62 199 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 3 #78 UANAME = FIELD(5) ! 0 #85 CALL STONUM(FIELD(6),ILEN_FLD,UAX,IMIT) ! 0 #87 CALL STONUM(FIELD(7),ILEN_FLD,UAY,IMIT) URBANS.f90#43 CALL FSPLIT(PATH,KEYWRD,FIELD(I),ILEN_FLD,'-',RMARK,LOWID, & URBOPT.f90#51 CALL STONUM(FIELD(3),ILEN_FLD,URBPOP,IMIT) ! 0 #60 IF ( IFC.GE.4 ) URBNAM = FIELD(4) ! 0 #64 CALL STONUM(FIELD(5),ILEN_FLD,URBZ0,IMIT) ! 0 WDROTA.f90#35 CALL STONUM(FIELD(3),ILEN_FLD,ROTANG,IMIT) ! 0 WSCATS.f90#38 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 XYPNTS.f90#36 IF ( FIELD(I).EQ.'XPNTS' ) ISC = I + 1 ! 0 #49 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 #75 IF ( FIELD(I).EQ.'YPNTS' ) ISC = I + 1 ! 0 #89 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0
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