pkg/cal/cal_copydate.F

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

#include "CAL_OPTIONS.h"

      subroutine cal_CopyDate(
     I                         indate,
     O                         outdate,
     I                         mythid
     &                       )

c     ==================================================================
c     SUBROUTINE cal_CopyDate
c     ==================================================================
c
c     o Copy a date array or a time interval array to another date array
c       or time interval array.
c              
c     started: Christian Eckert eckert@mit.edu  03-Jan-1999
c
c              - Introduced to calendar version 0.1.1
c
c     changed: Christian Eckert eckert@mit.edu  03-Feb-2000
c
c              - Introduced new routine and function names, cal_<NAME>,
c                for verion 0.1.3.
c
c     ==================================================================
c     SUBROUTINE cal_CopyDate
c     ==================================================================

      implicit none

c     == global variables ==

#include "cal.h"

c     == routine arguments ==

      integer indate(4)
      integer outdate(4)
      integer mythid

c     == local variables ==

c     == end of interface ==

      outdate(1) = indate(1)
      outdate(2) = indate(2)
      outdate(3) = indate(3)
      outdate(4) = indate(4)

      return
      end
1	C $Header: /u/gcmpack/MITgcm/pkg/cal/cal_copydate.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	subroutine cal_CopyDate(
7	I indate,
8	O outdate,
9	I mythid
10	& )
11
12	c ==================================================================
13	c SUBROUTINE cal_CopyDate
14	c ==================================================================
15	c
16	c o Copy a date array or a time interval array to another date array
17	c or time interval array.
18	c
19	c started: Christian Eckert eckert@mit.edu 03-Jan-1999
20	c
21	c - Introduced to calendar version 0.1.1
22	c
23	c changed: Christian Eckert eckert@mit.edu 03-Feb-2000
24	c
25	c - Introduced new routine and function names, cal_<NAME>,
26	c for verion 0.1.3.
27	c
28	c ==================================================================
29	c SUBROUTINE cal_CopyDate
30	c ==================================================================
31
32	implicit none
33
34	c == global variables ==
35
36	#include "cal.h"
37
38	c == routine arguments ==
39
40	integer indate(4)
41	integer outdate(4)
42	integer mythid
43
44	c == local variables ==
45
46	c == end of interface ==
47
48	outdate(1) = indate(1)
49	outdate(2) = indate(2)
50	outdate(3) = indate(3)
51	outdate(4) = indate(4)
52
53	return
54	end