Alternative small scale meteorology input to a chemical transport ...

DO 10 I=1,NWORDS
XARR(I)=X
10 CONTINUE
C
RETURN
END
c----------------------------------------------------------------------
FUNCTION JULDAY(iyear,imonth,iiday)
c----------------------------------------------------------------------
c --- PURPOSE: Compute the Julian day number from the Gregorian date
c (month, day)
c
c --- INPUTS:
c IYEAR - integer - Year (YYYY)
c IMONTH - integer - Month (MM)
c IDAY - integer - Day (DD)
c
c --- OUTPUT:
c JULDAY - integer - Julian day (DDD)
c
c --- JULDAY called by: MAIN
c --- JULDAY calls: none
c---------------------------------------------------------------------
integer iyear ! Year (YYYY)
integer imonth ! Month (MM)
integer iiday ! Day (DD)
c
integer kday(12)
data kday/0,31,59,90,120,151,181,212,243,273,304,334/
if(imonth.lt.1.or.imonth.gt.12.or.iiday.gt.31)then
write(*,10)imonth
10 format(//2x,'ERROR in SUBR. JULDAY -- invalid date - imonth =
',
1 i8,5x,'iiday = ',i8)
stop
endif
c
JULDAY=kday(imonth)+iiday
if(imonth.le.2) return
if(mod(iyear,4).EQ.0) JULDAY=JULDAY+1
c
return
end function JULDAY
90