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 UTC6d54cf9ca1 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
| [ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
|
This page was automatically generated from https://github.com/MITgcm/MITgcm by the 2.2.1-MITgcm-0.1 LXR engine. The LXR team |
|