Back to home page

MITgcm

 
 

    


File indexing completed on 2018-03-02 18:38:15 UTC

view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
6d54cf9ca1 Ed H*0001 #include "CAL_OPTIONS.h"
a63ed37559 Patr*0002 
                0003       subroutine cal_CopyDate(
                0004      I                         indate,
                0005      O                         outdate,
                0006      I                         mythid
                0007      &                       )
                0008 
                0009 c     ==================================================================
                0010 c     SUBROUTINE cal_CopyDate
                0011 c     ==================================================================
                0012 c
                0013 c     o Copy a date array or a time interval array to another date array
                0014 c       or time interval array.
                0015 c              
                0016 c     started: Christian Eckert eckert@mit.edu  03-Jan-1999
                0017 c
                0018 c              - Introduced to calendar version 0.1.1
                0019 c
                0020 c     changed: Christian Eckert eckert@mit.edu  03-Feb-2000
                0021 c
                0022 c              - Introduced new routine and function names, cal_<NAME>,
                0023 c                for verion 0.1.3.
                0024 c
                0025 c     ==================================================================
                0026 c     SUBROUTINE cal_CopyDate
                0027 c     ==================================================================
                0028 
                0029       implicit none
                0030 
                0031 c     == global variables ==
                0032 
                0033 #include "cal.h"
                0034 
                0035 c     == routine arguments ==
                0036 
                0037       integer indate(4)
                0038       integer outdate(4)
                0039       integer mythid
                0040 
                0041 c     == local variables ==
                0042 
                0043 c     == end of interface ==
                0044 
                0045       outdate(1) = indate(1)
                0046       outdate(2) = indate(2)
                0047       outdate(3) = indate(3)
                0048       outdate(4) = indate(4)
                0049 
                0050       return
                0051       end