CHK_ENDYR.f90#41 IF ( IMONTH.EQ.IENDMN .AND. IDAY.EQ.IEND_DAY .AND. & EV_CHKDAT.f90#34 IPDY = IDAY #36 IF ( IYEAR.NE.IPYR .OR. IMONTH.NE.IPMN .OR. IDAY.NE.IPDY .OR. & #39 WRITE (DUMMY,'(4I2.2)') IYEAR , IMONTH , IDAY , IHOUR ! 0 MAIN1.f90#484 INTEGER :: IHOUR , IYEAR , IMONTH , IDAY , KURDAT , ISEAS , & MEREAD.f90#70 IF ( (IMONTH.EQ.12 .AND. IDAY.EQ.31 .AND. IHOUR.EQ.24) .OR. & #121 & IMONTH , IDAY , IJDAY , IHOUR , ASFCHF(IHR) , & #176 & IMONTH , IDAY , IJDAY , IHOUR , ASFCHF(IHR) , & METDAT.f90#87 WRITE (IOUNIT,99026) IYEAR , IMONTH , IDAY , IHOUR , & #94 WRITE (IOUNIT,9026) IYEAR , IMONTH , IDAY , JDAY , & #104 WRITE (IOUNIT,99026) IYEAR , IMONTH , IDAY , IHOUR , & #111 WRITE (IOUNIT,9026) IYEAR , IMONTH , IDAY , IJDAY , & #124 & IMONTH , IDAY , IJDAY , IHOUR , SFCHF , USTAR , & #133 & IMONTH , IDAY , IJDAY , IHOUR , SFCHF , USTAR , & #152 & IDAY , IJDAY , IHOUR , SFCHF , USTAR , WSTAR , VPTGZI , & #162 & IDAY , IJDAY , IHOUR , SFCHF , USTAR , WSTAR , VPTGZI , & METDEB.f90#39 WRITE (DBMUNT,6115) IYEAR , IMONTH , IDAY , IHOUR , ZI , TA , & METDET.f90#40 WRITE (IOUNIT,9026) IYEAR , IMONTH , IDAY , IHOUR , SFCHF , & METEXT.f90#123 IF ( IMONTH.EQ.12 .AND. IDAY.EQ.31 .AND. IHOUR.EQ.24 ) THEN #172 & IDAY , IJDAY , IHOUR , SFCHF , USTAR , WSTAR , VPTGZI , & #208 & IDAY , IJDAY , IHOUR , SFCHF , USTAR , WSTAR , VPTGZI , & #338 IF ( IDAY.GT.1 ) THEN #339 IENDDY = IDAY - 1 ! 0 METSUM.f90#75 WRITE (ISUNIT,9026) IYEAR , IMONTH , IDAY , JDAY , IHOUR , SFCHF ,& SET_DATES.f90#42 CALL JULIAN(IYR,IMONTH,IDAY,JDAY) ! 4320 #46 KURDAT = IYEAR*1000000 + IMONTH*10000 + IDAY*100 + IHOUR #54 FULLDATE = IYR*1000000 + IMONTH*10000 + IDAY*100 + IHOUR ! 4320 SET_METDATA.f90#75 ID = MOD((IDAY+IY+IY/4-IY/100+IY/400+(31*IM)/12),7) VARINI.f90#289 IDAY = 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