time_setdoy()

subroutine time_setdoy	(	integer	day,
		integer	month,
		integer, dimension(7)	date
	)

Definition at line 33 of file time_setdoy.f.

References time_fullyear(), time_util_fatal(), time_util_warning(), time_util_warning_n(), and time_util_warning_report_time().

c 
c Set doy in date from day and month (january first is doy 1).
c This routine will call time_fullyear first!
c 
c This routine is senseless in combination with relative times!
c
c input:
c   day:    day index within month
c   month:  month index within year (contained in date)
c input/output:
c   date:   doy index in time record is changed according to given day and
c           month index and year value in date
c
c last change: V2.10 (25/12/2012)
c
      integer day, month, date(7)
cE
      integer result
      integer sel, mon
      logical time_isleapyear
      integer days(12,2)
      data days/31,28,31,30,31,30,31,31,30,31,30,31,
     &          31,29,31,30,31,30,31,31,30,31,30,31/
c 
      if (date(1).eq.0) then
        call time_util_warning('time_setdoy',
     &                         'do not use this with relative times')
        call time_util_warning('time_setdoy',
     &                         'routine skipped...')
      else
        call time_fullyear(date(1))
        if (time_isleapyear(date(1))) then
          sel=2
        else
          sel=1
        endif
        result=0
        mon=1
    1   if (mon.ge.month) goto 2
          result=result+days(mon,sel)
          mon=mon+1
          if (mon.gt.13) then
            call time_util_warning_report_time('time_setdoy',
     &                                         date)
            call time_util_warning_n('time_setdoy',
     &                               'month value',month)
            call time_util_fatal('time_setdoy',
     &                           'month value out of range')
          endif
          goto 1
    2   continue
        result=result+day
        date(2)=result
      endif
      return

Here is the call graph for this function: