pkg/cal/cal_compdates.F

C $Header: /u/gcmpack/MITgcm/pkg/cal/cal_compdates.F,v 1.1.20.1 2003/10/02 18:30:07 adcroft Exp $
C $Name: $

#include "CAL_OPTIONS.h"

      logical function cal_CompDates(
     I                                date_a,
     I                                date_b,
     I                                mythid
     &                              )

c     ==================================================================
c     FUNCTION cal_CompDates
c     ==================================================================
c
c     o Compare two calendar dates or time interval.
c              
c     started: Christian Eckert eckert@mit.edu  24-Feb-2000
c
c              - Introduced to calendar version 0.1.4
c
c     changed: 
c
c     ==================================================================
c     FUNCTION cal_CompDates
c     ==================================================================

      implicit none

c     == global variables ==

#include "cal.h"

c     == routine arguments ==

      integer date_a(4)
      integer date_b(4)
      integer mythid

c     == local variables ==

c     == end of interface ==

      if ( ( date_a(1) .eq. date_b(1) ) .and.
     &     ( date_a(2) .eq. date_b(2) ) .and.
     &     ( date_a(3) .eq. date_b(3) ) .and.
     &     ( date_a(4) .eq. date_b(4) )       ) then
        cal_CompDates = .true.
      else
        cal_CompDates = .false.
      endif

      return
      end

1	C $Header: /u/gcmpack/MITgcm/pkg/cal/cal_compdates.F,v 1.1.20.1 2003/10/02 18:30:07 adcroft Exp $
2	C $Name: $
3
4	#include "CAL_OPTIONS.h"
5
6	logical function cal_CompDates(
7	I date_a,
8	I date_b,
9	I mythid
10	& )
11
12	c ==================================================================
13	c FUNCTION cal_CompDates
14	c ==================================================================
15	c
16	c o Compare two calendar dates or time interval.
17	c
18	c started: Christian Eckert eckert@mit.edu 24-Feb-2000
19	c
20	c - Introduced to calendar version 0.1.4
21	c
22	c changed:
23	c
24	c ==================================================================
25	c FUNCTION cal_CompDates
26	c ==================================================================
27
28	implicit none
29
30	c == global variables ==
31
32	#include "cal.h"
33
34	c == routine arguments ==
35
36	integer date_a(4)
37	integer date_b(4)
38	integer mythid
39
40	c == local variables ==
41
42	c == end of interface ==
43
44	if ( ( date_a(1) .eq. date_b(1) ) .and.
45	& ( date_a(2) .eq. date_b(2) ) .and.
46	& ( date_a(3) .eq. date_b(3) ) .and.
47	& ( date_a(4) .eq. date_b(4) ) ) then
48	cal_CompDates = .true.
49	else
50	cal_CompDates = .false.
51	endif
52
53	return
54	end
55