ARVERT.f90#43 CALL STONUM(FIELD(K),ILEN_FLD,FNUMX,IMIT) ! 0 #49 CALL STONUM(FIELD(K+1),ILEN_FLD,FNUMY,IMIT) ! 0 COUNIT.f90#46 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 DAYRNG.f90#54 CALL FSPLIT(PATH,KEYWRD,FIELD(I),ILEN_FLD,'-',RMARK,BEGRNG, & 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#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 DSBLDG.f90#28 CHARACTER(LEN=ILEN_FLD) :: SOID #49 CALL FSPLIT(PATH,KEYWRD,SOID,ILEN_FLD,'-',RMARK,LID,HID) 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 EMVARY.f90#34 CHARACTER(LEN=ILEN_FLD) :: SOID #59 CALL FSPLIT(PATH,KEYWRD,SOID,ILEN_FLD,'-',RMARK,LID,HID) 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 EVLOC.f90#60 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) #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 EVPER.f90#79 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 0 #115 CALL STODBL(FIELD(6),ILEN_FLD,DNUM,IMIT) ! 0 FLAGDF.f90#38 CALL STONUM(FIELD(3),ILEN_FLD,ZFLG,IMIT) ! 0 FLGHGT.f90#56 CALL STONUM(FIELD(ISC),ILEN_FLD,FNUM,IMIT) ! 0 #67 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 GASDEP.f90#30 CHARACTER(LEN=ILEN_FLD) :: SOID #59 CALL FSPLIT(PATH,KEYWRD,SOID,ILEN_FLD,'-',RMARK,LID,HID) #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) 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#60 CALL STONUM(FIELD(ISC+K-1),ILEN_FLD,TEMPP(K),IMIT) ! 0 GENPOL.f90#59 CALL STONUM(FIELD(ISC+K-1),ILEN_FLD,TEMPP(K),IMIT) ! 9 GETFLD.f90#33 WRITE (WRTFRM,9004) ILEN_FLD #37 IF ( LOCE(I)-LOCB(I).LE.(ILEN_FLD-1) ) THEN ! 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#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) #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#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) #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) INPPDM.f90#30 CHARACTER(LEN=ILEN_FLD) :: SOID #40 CALL FSPLIT(PATH,KEYWRD,SOID,ILEN_FLD,'-',RMARK,LID,HID) #49 CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 0 #89 CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 0 INPPDN.f90#30 CHARACTER(LEN=ILEN_FLD) :: SOID #40 CALL FSPLIT(PATH,KEYWRD,SOID,ILEN_FLD,'-',RMARK,LID,HID) #49 CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 0 #92 CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 0 INPPHI.f90#28 CHARACTER(LEN=ILEN_FLD) :: SOID #38 CALL FSPLIT(PATH,KEYWRD,SOID,ILEN_FLD,'-',RMARK,LID,HID) #47 CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 0 #90 CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 0 MAIN1.f90#142 & IERRN = 170 , ILEN_FLD = 80 #194 CHARACTER(LEN=ILEN_FLD) :: FIELD , INPFIL , OUTFIL , INCFIL #208 CHARACTER(LEN=ILEN_FLD) :: MSGFIL #243 CHARACTER(LEN=ILEN_FLD) :: SAVFIL , SAVFL2 , INIFIL , EVFILE , & #276 CHARACTER(LEN=ILEN_FLD) :: HRFILE #458 CHARACTER(LEN=ILEN_FLD) :: METINP , SCIM_SFCFIL , SCIM_PROFIL , & #610 CHARACTER(LEN=ILEN_FLD) :: TERINP #739 CHARACTER(LEN=ILEN_FLD) :: THRFIL , PSTFIL , PLTFIL , ANNPST , & METH_2.f90#27 CHARACTER(LEN=ILEN_FLD) :: SOID #52 CALL FSPLIT(PATH,KEYWRD,SOID,ILEN_FLD,'-',RMARK,LID,HID) #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) METSUM.f90#43 ILMAX = MIN(80,ILEN_FLD) #62 ILMAX = MIN(80,ILEN_FLD) NO2EQ.f90#41 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 NO2RAT.f90#28 CHARACTER(LEN=ILEN_FLD) :: SOID #53 CALL FSPLIT(PATH,KEYWRD,SOID,ILEN_FLD,'-',RMARK,LID,HID) #60 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 0 #90 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) O3VAL.f90#41 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 OLMGRP.f90#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 #74 CALL STONUM(FIELD(6),ILEN_FLD,ONX,IMIT) ! 0 #76 CALL STONUM(FIELD(7),ILEN_FLD,ONY,IMIT) OUDALY.f90#58 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) OUEVAL.f90#76 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) ! 0 OUHIGH.f90#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#57 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #110 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) ! 0 #119 IF ( (LOCE(6)-LOCB(6)).LE.(ILEN_FLD-1) ) THEN #130 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 0 OUMXVL.f90#60 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #86 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 3 OUPLOT.f90#74 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #147 IF ( (LOCE(6)-LOCB(6)).LE.(ILEN_FLD-1) ) THEN ! 0 #158 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 0 OUPOST.f90#83 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #146 IF ( (LOCE(6)-LOCB(6)).LE.(ILEN_FLD-1) ) THEN ! 0 #157 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 0 OURANK.f90#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#66 IF ( (LOCE(4)-LOCB(4)).LE.ILEN_FLD-1 ) THEN ! 0 #77 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) ! 0 OUTOXX.f90#58 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #99 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 0 #108 IF ( (LOCE(5)-LOCB(5)).LE.(ILEN_FLD-1) ) THEN #119 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 0 PERPLT.f90#72 IF ( (LOCE(5)-LOCB(5)).LE.(ILEN_FLD-1) ) THEN ! 0 #83 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 0 PERPST.f90#80 IF ( (LOCE(6)-LOCB(6)).LE.(ILEN_FLD-1) ) THEN ! 0 #91 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 0 POLDST.f90#46 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 12 POLORG.f90#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 PREGENCAR.f90#57 CALL STONUM(FIELD(ISC+K-1),ILEN_FLD,TEMPP(K),IMIT) ! 0 PREGENPOL.f90#56 CALL STONUM(FIELD(ISC+K-1),ILEN_FLD,TEMPP(K),IMIT) ! 9 PREPOLDST.f90#45 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 12 PRERADRNG.f90#45 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 PRESET.f90#178 CALL FSPLIT(PATH,KEYWRD,FIELD(I),ILEN_FLD,'-',RMARK,LPRD,& #196 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 3 PREXYPNTS.f90#45 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 #68 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 PRTOPT.f90#367 ILMAX = MIN(80,ILEN_FLD) RADRNG.f90#46 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 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 SETIDG.f90#36 CHARACTER(LEN=ILEN_FLD) :: NUMID 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 #85 CALL STONUM(FIELD(6),ILEN_FLD,SFX,IMIT) ! 0 #87 CALL STONUM(FIELD(7),ILEN_FLD,SFY,IMIT) SOGRP.f90#73 CALL FSPLIT(PATH,KEYWRD,FIELD(I),ILEN_FLD,'-',RMARK,LOWID, & SOLOCA.f90#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#64 CALL STONUM(FIELD(I),ILEN_FLD,TEMP(I-3),IMIT) ! 117 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 TERHGT.f90#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 UADATA.f90#54 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 3 #62 199 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 3 #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 #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#49 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 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