CHKCLM.f90#34 WRITE (DUMMY,'(I8.8)') KURDAT CHKDAT.f90#41 IF ( KURDAT.LE.IPDATE ) THEN ! 4318 #43 IF ( KURDAT.NE.10101 .OR. IPDATE.NE.99123124 ) THEN ! 0 #45 WRITE (DUMMY,'(I8.8)') KURDAT ! 0 #49 ELSEIF ( IHOUR.NE.1 .AND. (KURDAT-IPDATE).NE.1 ) THEN #51 WRITE (DUMMY,'(I8.8)') KURDAT ! 0 #56 WRITE (DUMMY,'(I8.8)') KURDAT ! 0 CMPDAT.f90#34 IF ( KURDAT.NE.KURPFL ) THEN #36 WRITE (DUMMY,'(I8.8)') KURDAT ! 0 DEPVAR.f90#36 INTEGER :: IGRAV , KST , IOUNIT , KURDAT EVALFL.f90#179 WRITE (IELUNT(ISRC),9000) SRCID(ISRC) , KURDAT , ARCID(I) , & EVLOOP.f90#89 WRITE (DUMMY,'(I8.8)') KURDAT ! 0 EV_METEXT.f90#65 IPDATE = KURDAT GRDPTG.f90#124 PRINT * , ' failed on ' , KURDAT GRDSV.f90#111 WRITE (*,*) ' profile failed on ' , KURDAT GRDSW.f90#114 WRITE (*,*) ' profile failed on ' , KURDAT GRDWD.f90#123 PRINT * , ' of WDIR failed on ' , KURDAT GRDWS.f90#112 PRINT * , ' of speed failed on ' , KURDAT HQREAD.f90#126 IF ( KURDAT.NE.KURHRQ ) THEN #128 WRITE (DUMMY,'(I8.8)') KURDAT ! 0 HRLOOP.f90#64 KURDAT = 0 #133 WRITE (*,910) KURDAT ! 0 #275 WRITE (DUMMY,'(I8.8)') KURDAT ! 0 HRQEXT.f90#105 IF ( KURDAT.NE.KURHRQ ) THEN #107 WRITE (DUMMY,'(I8.8)') KURDAT ! 0 MAIN1.f90#484 INTEGER :: IHOUR , IYEAR , IMONTH , IDAY , KURDAT , ISEAS , & MAXFIL.f90#49 & KAVE(IAVE) , GRPID(IGRP) , KURDAT , & MAXVALUE.f90#56 MXDATE(J+1,IGRP,IAVE,ITYP) = KURDAT ! 1354 #79 MXDATE(1,IGRP,IAVE,ITYP) = KURDAT ! 54 #95 MXDATE(1,IGRP,IAVE,ITYP) = KURDAT ! 0 MEREAD.f90#69 IDATCHK = KURDAT - INT(KURDAT/1000000)*1000000 METEXT.f90#93 IPDATE = KURDAT #348 WRITE (DUMMY,'(I8.8)') KURDAT ! 0 METQA.f90#49 WRITE (DUMMY,'(I8.8)') KURDAT ! 0 #62 WRITE (DUMMY,'(I8.8)') KURDAT ! 0 #68 WRITE (DUMMY,'(I8.8)') KURDAT ! 0 #80 WRITE (DUMMY,'(I8.8)') KURDAT ! 0 #89 WRITE (DUMMY,'(I8.8)') KURDAT ! 0 #96 WRITE (DUMMY,'(I8.8)') KURDAT ! 0 #103 WRITE (DUMMY,'(I8.8)') KURDAT ! 0 #107 WRITE (DUMMY,'(I8.8)') KURDAT ! 0 #116 WRITE (DUMMY,'(I8.8)') KURDAT ! 0 NHIGH.f90#55 NHIDAT(IREC,J+1,IGRP,IAVE,ITYP) = KURDAT ! 3052 #75 NHIDAT(IREC,1,IGRP,IAVE,ITYP) = KURDAT ! 3820 #91 NHIDAT(IREC,1,IGRP,IAVE,ITYP) = KURDAT ! 0 O3EXT.f90#40 IF ( KURDAT.NE.KURO3HR ) THEN #42 WRITE (DUMMY,'(I8.8)') KURDAT ! 0 #52 WRITE (DUMMY,'(I8.8)') KURDAT ! 0 #60 WRITE (DUMMY,'(I8.8)') KURDAT ! 0 PCALC.f90#272 WRITE (DBGUNT,6010) KURDAT , ZMIDMX ! 0 #504 WRITE (IOUNIT,*) 'YYMMDDHH: ' , KURDAT , & PFRACT.f90#78 WRITE (DUMMY,'(I8.8)') KURDAT ! 0 POSTFL.f90#41 WRITE (IPSUNT(IGRP,IAVE),ERR=99) KURDAT , KAVE(IAVE) , & #60 & CHRAVE(IAVE) , GRPID(IGRP) , KURDAT , & PSRDEB.f90#35 WRITE (DBGUNT,6130) KURDAT PSTANN.f90#59 WRITE (IAPUNT(IGRP),ERR=99) KURDAT , IANHRS , & #64 WRITE (IAPUNT(IGRP),ERR=99) KURDAT , NUMYRS , & PVMRM_CALC.f90#299 WRITE (50,9987) KURDAT , IREC , SRCID(IDOM) , DISTDOM , & #306 WRITE (50,9988) KURDAT , IREC , SRCID(IDOM) , DISTDOM , & SET_DATES.f90#46 KURDAT = IYEAR*1000000 + IMONTH*10000 + IDAY*100 + IHOUR SET_METDATA.f90#305 WRITE (DUMMY,'(I8.8)') KURDAT #309 WRITE (DUMMY,'(I8.8)') KURDAT ! 208 VDP.f90#448 WRITE (100,1001) KURDAT , ISRC , RA , RB , RC , VDEPG ! 0 #453 WRITE (101,1002) KURDAT , ISRC , I , RA , RD(I) , VGRAV(I) ,& #458 WRITE (101,1003) KURDAT , ISRC , RA , RP , VGRAV(1) , VDEP(1) ! 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