GREGOR.f90#32 INTEGER :: NDAY(12) #36 DATA NDAY/0 , 31 , 59 , 90 , 120 , 151 , 181 , 212 , 243 , 273 , & #55 IDY = JDY - NDAY(INMN) ! 0 #58 IDY = JDY - NDAY(INMN) ! 0 JULIAN.f90#32 INTEGER :: NDAY(12) , IDYMAX(12) #36 DATA NDAY/0 , 31 , 59 , 90 , 120 , 151 , 181 , 212 , 243 , 273 , & #65 JDY = INDY + NDAY(INMN) ! 4326 #75 JDY = INDY + NDAY(INMN) ! 0 SET_METDATA.f90#37 INTEGER :: NDAY(12) , IDYMAX(12) #43 DATA NDAY/31 , 59 , 90 , 120 , 151 , 181 , 212 , 243 , 273 , 304 ,& #99 IF ( JDAY.EQ.NDAY(IMONTH) ) ENDMON = .TRUE. ! 0 #102 IF ( JDAY.EQ.NDAY(IMONTH)+1 ) ENDMON = .TRUE. ! 0 VARINI.f90#47 INTEGER :: I , J , K , IERRST , IWARN , NDAY #292 NDAY = 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