C $Header: /u/gcmpack/MITgcm/pkg/cal/cal_copydate.F,v 1.2 2003/10/09 04:19:19 edhill 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_,
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