Parent Directory | Revision Log | Revision Graph
o first check-in for the "branch-genmake2" merge o verification suite as run on shelley (gcc 3.2.2): Wed Oct 8 23:42:29 EDT 2003 T S U V G D M c m s m s m s m s E p a R g m m e . m m e . m m e . m m e . N n k u 2 i a a d i a a d i a a d i a a d 2 d e n d n x n . n x n . n x n . n x n . OPTFILE=NONE Y Y Y Y 13 16 16 16 0 16 16 16 16 16 16 16 16 13 12 0 0 pass adjustment.128x64x1 Y Y Y Y 16 16 16 16 0 16 16 16 16 16 16 0 0 16 16 0 0 pass adjustment.cs-32x32x1 Y Y Y Y 16 16 16 16 0 16 16 16 16 16 16 22 0 16 16 22 0 pass adjust_nlfs.cs-32x32x1 Y Y Y Y -- 13 13 16 16 13 13 13 13 16 16 16 16 16 16 16 16 N/O advect_cs Y Y Y Y -- 22 16 16 16 16 16 16 13 16 16 16 16 16 16 16 16 N/O advect_xy Y Y Y Y -- 13 16 13 16 16 16 16 16 16 16 22 16 16 16 16 16 N/O advect_xz Y Y Y Y 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 pass aim.5l_cs Y Y Y Y 14 16 16 16 16 16 16 16 16 13 16 16 16 16 16 13 16 pass aim.5l_Equatorial_Channel Y Y Y Y 16 16 16 16 16 16 16 16 16 16 16 13 16 16 13 13 16 pass aim.5l_LatLon Y Y Y Y 13 16 16 16 16 16 16 16 16 16 13 12 13 13 16 13 16 pass exp0 Y Y Y Y 14 16 16 16 16 16 16 16 22 16 16 16 13 16 16 22 16 pass exp1 Y Y Y Y 13 13 16 13 16 16 16 16 16 13 13 16 16 13 13 13 13 pass exp2 Y Y Y Y 16 16 16 16 16 16 16 16 22 16 16 16 16 16 16 16 16 pass exp4 Y Y Y Y 16 16 16 16 16 16 16 16 16 16 16 22 16 16 16 22 16 pass exp5 Y Y Y Y 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 pass front_relax Y Y Y Y 14 16 16 13 13 16 16 13 13 16 13 13 16 12 13 13 16 pass global_ocean.90x40x15 Y Y Y Y 10 16 16 13 13 16 13 16 16 13 13 13 13 16 16 13 16 FAIL global_ocean.cs32x15 Y Y Y Y 6 11 12 13 13 12 13 16 13 9 9 9 9 10 9 9 11 FAIL global_ocean_pressure Y Y Y Y 14 16 16 13 16 16 16 13 13 13 13 13 16 12 16 13 16 pass global_with_exf Y Y Y Y 14 16 16 16 16 16 16 16 16 11 13 22 13 16 16 9 16 pass hs94.128x64x5 Y Y Y Y 13 16 16 16 16 16 16 16 16 11 16 16 16 13 16 22 13 pass hs94.1x64x5 Y Y Y Y 14 16 16 16 16 16 16 16 16 13 16 13 13 16 16 22 13 pass hs94.cs-32x32x5 Y Y Y Y 10 10 16 13 13 16 16 16 22 16 13 13 13 13 13 22 13 FAIL ideal_2D_oce Y Y Y Y 8 16 16 16 16 16 16 16 16 13 13 8 16 16 16 16 16 FAIL internal_wave Y Y Y Y 14 16 16 16 16 16 16 16 16 13 13 22 13 13 13 22 16 pass inverted_barometer Y Y Y Y 12 16 16 16 16 16 16 16 16 16 13 12 13 13 13 13 13 FAIL lab_sea Y Y Y Y 11 16 16 16 16 16 16 16 13 13 13 12 13 16 13 12 13 FAIL natl_box Y Y Y Y 16 16 16 16 16 16 16 16 22 16 16 16 16 16 16 16 16 pass plume_on_slope Y Y Y Y 13 16 16 16 16 13 16 16 16 16 16 16 16 13 16 16 16 pass solid-body.cs-32x32x1
1 | edhill | 1.4 | C $Header: /u/u3/gcmpack/MITgcm/pkg/cal/cal_convdate.F,v 1.3.2.2 2003/10/07 20:46:37 adcroft Exp $ |
2 | C $Name: $ | ||
3 | heimbach | 1.1 | |
4 | edhill | 1.4 | #include "CAL_OPTIONS.h" |
5 | heimbach | 1.1 | |
6 | subroutine cal_ConvDate( | ||
7 | I date, | ||
8 | O yy, mm, dd, ss, | ||
9 | O lp, wd, | ||
10 | I mythid | ||
11 | & ) | ||
12 | |||
13 | c ================================================================== | ||
14 | c SUBROUTINE cal_ConvDate | ||
15 | c ================================================================== | ||
16 | c | ||
17 | c o Decompose the first part of a date array. | ||
18 | c | ||
19 | c started: Christian Eckert eckert@mit.edu 30-Jun-1999 | ||
20 | c | ||
21 | c changed: Christian Eckert eckert@mit.edu 29-Dec-1999 | ||
22 | c | ||
23 | c - restructured the original version in order to have a | ||
24 | c better interface to the MITgcmUV. | ||
25 | c | ||
26 | c Christian Eckert eckert@mit.edu 03-Feb-2000 | ||
27 | c | ||
28 | c - Introduced new routine and function names, cal_<NAME>, | ||
29 | c for verion 0.1.3. | ||
30 | c | ||
31 | dimitri | 1.2 | c 21-Sep-2003: fixed check_sign logic to work with |
32 | c negative intervals (menemenlis@jpl.nasa.gov) | ||
33 | c | ||
34 | heimbach | 1.1 | c ================================================================== |
35 | c SUBROUTINE cal_ConvDate | ||
36 | c ================================================================== | ||
37 | |||
38 | implicit none | ||
39 | |||
40 | c == global variables == | ||
41 | |||
42 | #include "cal.h" | ||
43 | |||
44 | c == routine arguments == | ||
45 | |||
46 | integer date(4) | ||
47 | integer mythid | ||
48 | |||
49 | c == local variables == | ||
50 | |||
51 | integer yy | ||
52 | integer mm | ||
53 | integer dd | ||
54 | integer ss | ||
55 | integer lp | ||
56 | integer wd | ||
57 | integer fac | ||
58 | integer date_1 | ||
59 | integer date_2 | ||
60 | integer ierr | ||
61 | dimitri | 1.3 | integer check_sign |
62 | heimbach | 1.1 | |
63 | c == end of interface == | ||
64 | |||
65 | fac = 1 | ||
66 | |||
67 | c Check the sign of the date. | ||
68 | |||
69 | dimitri | 1.3 | check_sign = 1 |
70 | if ( ( (date(1).lt.0) .and. date(2).gt.0 ) .or. | ||
71 | & ( (date(1).gt.0) .and. date(2).lt.0 ) ) | ||
72 | & check_sign = -1 | ||
73 | heimbach | 1.1 | |
74 | dimitri | 1.2 | if ( check_sign .ge. 0 ) then |
75 | heimbach | 1.1 | if (date(1) .eq. 0) then |
76 | date_1 = date(1) | ||
77 | if (date(2) .lt. 0) then | ||
78 | date_2 = -date(2) | ||
79 | fac = -1 | ||
80 | else | ||
81 | date_2 = date(2) | ||
82 | fac = 1 | ||
83 | endif | ||
84 | else if (date(1) .lt. 0) then | ||
85 | date_1 = -date(1) | ||
86 | date_2 = -date(2) | ||
87 | fac = -1 | ||
88 | else | ||
89 | date_1 = date(1) | ||
90 | date_2 = date(2) | ||
91 | fac = 1 | ||
92 | endif | ||
93 | else | ||
94 | |||
95 | ierr = 901 | ||
96 | call cal_PrintError( ierr, mythid ) | ||
97 | stop ' stopped in cal_ConvDate.' | ||
98 | |||
99 | endif | ||
100 | |||
101 | c Decompose the entries. | ||
102 | if (date(4) .ne. -1) then | ||
103 | yy = date_1/10000 | ||
104 | mm = mod(date_1/100,100) | ||
105 | dd = mod(date_1,100) | ||
106 | else | ||
107 | yy = 0 | ||
108 | mm = 0 | ||
109 | dd = date_1 | ||
110 | endif | ||
111 | ss = mod(date_2,100) + | ||
112 | & mod(date_2/100,100)*secondsperminute + | ||
113 | & date_2/10000*secondsperhour | ||
114 | |||
115 | c Include the sign. | ||
116 | yy = fac*yy | ||
117 | mm = fac*mm | ||
118 | dd = fac*dd | ||
119 | ss = fac*ss | ||
120 | |||
121 | lp = date(3) | ||
122 | wd = date(4) | ||
123 | |||
124 | return | ||
125 | end | ||
126 |
ViewVC Help | |
Powered by ViewVC 1.1.22 |