1 | #!/bin/ksh |
---|
2 | |
---|
3 | #************************************************************** |
---|
4 | # Author: Sebastien Denvil |
---|
5 | # Contact: Sebastien.Denvil__at__ipsl.jussieu.fr |
---|
6 | # $Revision:: $ Revision of last commit |
---|
7 | # $Author:: $ Author of last commit |
---|
8 | # $Date:: $ Date of last commit |
---|
9 | # IPSL (2006) |
---|
10 | # This software is governed by the CeCILL licence see libIGCM/libIGCM_CeCILL.LIC |
---|
11 | # |
---|
12 | #************************************************************** |
---|
13 | |
---|
14 | # This script is used to generate a reference file with command : |
---|
15 | # IGCM_date_Test.ksh > IGCM_date_Test.ref 2>&1 |
---|
16 | # The reference file produced is used by the function IGCM_date_Check |
---|
17 | # to verify that the libIGCM_date produce the same results |
---|
18 | |
---|
19 | #================================================= |
---|
20 | libIGCM=`dirname $0`/.. |
---|
21 | typeset TaskType=checking |
---|
22 | . ${libIGCM}/libIGCM_debug/libIGCM_debug.ksh |
---|
23 | . ${libIGCM}/libIGCM_date/libIGCM_date.ksh |
---|
24 | |
---|
25 | if [ X${config_UserChoices_CalendarType} = X ] ; then |
---|
26 | config_UserChoices_CalendarType="leap" |
---|
27 | fi |
---|
28 | |
---|
29 | echo "#=================================#" |
---|
30 | echo "IGCM_date_DaysInYear test" |
---|
31 | echo "#=================================#" |
---|
32 | |
---|
33 | echo "" |
---|
34 | echo "#" |
---|
35 | echo "IGCM_date_DaysInYears 1998" |
---|
36 | echo "#" |
---|
37 | IGCM_date_DaysInYear 1998 |
---|
38 | |
---|
39 | echo "" |
---|
40 | echo "#" |
---|
41 | echo "IGCM_date_DaysInYears 2000" |
---|
42 | echo "#" |
---|
43 | IGCM_date_DaysInYear 2000 |
---|
44 | |
---|
45 | echo "#=================================#" |
---|
46 | echo "IGCM_date_DaysInMonth test" |
---|
47 | echo "#=================================#" |
---|
48 | |
---|
49 | echo "" |
---|
50 | echo "#" |
---|
51 | echo "IGCM_date_DaysInMonth 1998 02" |
---|
52 | echo "#" |
---|
53 | IGCM_date_DaysInMonth 1998 02 |
---|
54 | |
---|
55 | echo "" |
---|
56 | echo "#" |
---|
57 | echo "IGCM_date_DaysInMonth 20000206" |
---|
58 | echo "#" |
---|
59 | IGCM_date_DaysInMonth 20000206 |
---|
60 | |
---|
61 | echo "#==========================================#" |
---|
62 | echo "IGCM_date_ConvertGregorianDateToJulian test" |
---|
63 | echo "#==========================================#" |
---|
64 | |
---|
65 | echo "" |
---|
66 | echo "#" |
---|
67 | echo "IGCM_date_ConvertGregorianDateToJulian 19980312" |
---|
68 | echo "#" |
---|
69 | IGCM_date_ConvertGregorianDateToJulian 19980312 |
---|
70 | |
---|
71 | echo "" |
---|
72 | echo "#" |
---|
73 | echo "IGCM_date_ConvertGregorianDateToJulian 19980830" |
---|
74 | echo "#" |
---|
75 | IGCM_date_ConvertGregorianDateToJulian 19980830 |
---|
76 | |
---|
77 | echo "#==========================================#" |
---|
78 | echo "IGCM_date_ConvertJulianDateToGregorian test" |
---|
79 | echo "#==========================================#" |
---|
80 | |
---|
81 | echo "" |
---|
82 | echo "#" |
---|
83 | echo "IGCM_date_ConvertJulianDateToGregorian 1998326" |
---|
84 | echo "#" |
---|
85 | IGCM_date_ConvertJulianDateToGregorian 1998326 |
---|
86 | |
---|
87 | echo "" |
---|
88 | echo "#" |
---|
89 | echo "IGCM_date_ConvertJulianDateToGregorian 2000298" |
---|
90 | echo "#" |
---|
91 | IGCM_date_ConvertJulianDateToGregorian 2000298 |
---|
92 | |
---|
93 | echo "#==================================#" |
---|
94 | echo "IGCM_date_AddDaysToJulianDate test" |
---|
95 | echo "#==================================#" |
---|
96 | |
---|
97 | echo "" |
---|
98 | echo "#" |
---|
99 | echo "IGCM_date_AddDaysToJulianDate 1998312 14" |
---|
100 | echo "#" |
---|
101 | IGCM_date_AddDaysToJulianDate 1998312 14 |
---|
102 | |
---|
103 | echo "" |
---|
104 | echo "#" |
---|
105 | echo "IGCM_date_AddDaysToJulianDate 2000312 -14" |
---|
106 | echo "#" |
---|
107 | IGCM_date_AddDaysToJulianDate 2000312 -14 |
---|
108 | |
---|
109 | echo "#====================================#" |
---|
110 | echo "IGCM_date_AddDaysToGregorianDate test" |
---|
111 | echo "#====================================#" |
---|
112 | |
---|
113 | echo "" |
---|
114 | echo "#" |
---|
115 | echo "IGCM_date_AddDaysToGregorianDate 19980312 44" |
---|
116 | echo "#" |
---|
117 | IGCM_date_AddDaysToGregorianDate 19980312 44 |
---|
118 | |
---|
119 | echo "" |
---|
120 | echo "#" |
---|
121 | echo "IGCM_date_AddDaysToGregorianDate 20000228 -44" |
---|
122 | echo "#" |
---|
123 | IGCM_date_AddDaysToGregorianDate 20000228 -44 |
---|
124 | |
---|
125 | echo "#====================================#" |
---|
126 | echo "IGCM_date_DaysBetweenJulianDate test" |
---|
127 | echo "#====================================#" |
---|
128 | |
---|
129 | echo "" |
---|
130 | echo "#" |
---|
131 | echo "IGCM_date_DaysBetweenJulianDate 1860001 1865365" |
---|
132 | echo "#" |
---|
133 | IGCM_date_DaysBetweenJulianDate 1860001 1865365 |
---|
134 | |
---|
135 | echo "#======================================#" |
---|
136 | echo "IGCM_date_DaysBetweenGregorianDate test" |
---|
137 | echo "#======================================#" |
---|
138 | |
---|
139 | echo "" |
---|
140 | echo "#" |
---|
141 | echo "IGCM_date_DaysBetweenGregorianDate 18801231 18750101" |
---|
142 | echo "#" |
---|
143 | IGCM_date_DaysBetweenGregorianDate 18801231 18750101 |
---|