JULIAN.f90#32
      INTEGER :: NDAY(12) , IDYMAX(12)
#38
      DATA IDYMAX/31 , 29 , 31 , 30 , 31 , 30 , 31 , 31 , 30 , 31 , 30 ,&
#53
      ELSEIF ( INDY.GT.IDYMAX(INMN) ) THEN
METEXT.f90#74
      INTEGER :: IDYMAX(12) , GINDEX , IJDAY , JFLAG , LEVEL
#83
      DATA IDYMAX/31 , 29 , 31 , 30 , 31 , 30 , 31 , 31 , 30 , 31 , 30 ,&
#344
                  IENDDY = IDYMAX(IENDMN)
SET_METDATA.f90#37
      INTEGER :: NDAY(12) , IDYMAX(12)
#45
      DATA IDYMAX/31 , 29 , 31 , 30 , 31 , 30 , 31 , 31 , 30 , 31 , 30 ,&
STAEND.f90#37
      INTEGER IDYMAX(12)
#41
      DATA IDYMAX/31 , 29 , 31 , 30 , 31 , 30 , 31 , 31 , 30 , 31 , 30 ,&
#225
         IENDDY = IDYMAX(IENDMN)

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