IS-ENES/core2_cmip: std_ts.pro.clima

File std_ts.pro.clima, 2.7 KB (added by flavoni, 10 years ago)
Line 
1pro std_ts, std_EXP1, std_EXP2, year1, year2, _extra=ex
2
3
4PRINT, 'usage: postscript '
5PRINT, '========================================================================'
6PRINT, 'std_ts, ''std_EXP1'', ''std_EXP2'', ''year_start'', ''year_end'', /postscript'
7PRINT, '========================================================================'
8PRINT, 'std_ts, ''core2000'', ''core2000'', ''1'', ''2000'', /postscript'
9PRINT, '========================================================================'
10
11
12  compile_opt idl2, strictarrsubs
13
14  PRINT, ''
15  PRINT, '  ############################################'
16  PRINT, ''
17  PRINT, '                   plot of all TIME SERIES'
18  PRINT, ''
19  PRINT, '  ############################################'
20  PRINT, ''
21
22
23@common
24@initorca2
25@std_com
26
27
28  std_iodir_data    = '/Users/sflod/idl_PLOTS/DATA_STORE/RUN_CLIMATO/' ; path of data in NetCdf format
29
30
31;#########################################################################
32;######################  TIME SERIES   ################################
33;#########################################################################
34
35; fixed color tabled
36  lct,64
37
38 
39
40  ;; Temperature Mean
41  ;; =======================================
42  PRINT, ' '
43  PRINT, '         Temperature Mean'
44  PRINT, '1 '
45  ts_mean_T, std_EXP1, std_EXP2, year1, year2, std_iodir_data, _extra = ex
46
47  ;; Salinity Mean
48  ;; =======================================
49  PRINT, ' '
50  PRINT, '         Salinity Mean'
51  PRINT, '2 '
52  ts_mean_S, std_EXP1, std_EXP2, year1, year2, std_iodir_data, _extra = ex
53 
54  ;; Sea Surface Height
55  ;; =======================================
56  PRINT, ' '
57  PRINT, '         SSH'
58  PRINT, '3 '
59  ts_mean_SSH, std_EXP1, std_EXP2, year1, year2, std_iodir_data, _extra = ex
60
61   ;; Heat flux Mean
62  ;; =======================================
63  PRINT, ' '
64  PRINT, '         Heat Mean'
65  PRINT, '4 '
66  ts_mean_Q, std_EXP1, std_EXP2, year1, year2, std_iodir_data, _extra = ex
67
68  ;; EMP Mean
69  ;; =======================================
70  PRINT, ' '
71  PRINT, '         EMP Mean'
72  PRINT, '5 '
73  ts_mean_EMP, std_EXP1, std_EXP2, year1, year2, std_iodir_data, _extra = ex
74
75
76  ;; Drake transport
77  ;; =======================================
78  PRINT, ' '
79  PRINT, '              Drake Transport'
80  PRINT, '6 '
81  ts_mean_U, std_EXP1, std_EXP2, year1, year2, std_iodir_data, _extra = ex
82
83  ;; Max AMOC
84  ;; =======================================
85  PRINT, ' '
86  PRINT, '              Max AMOC'
87  PRINT, '7 '
88  ts_mean_V, std_EXP1, std_EXP2, year1, year2, std_iodir_data, _extra = ex
89
90  ;; Sea-Ice Area
91  ;; =======================================
92  PRINT, ' '
93  PRINT, '                       Sea-Ice Area'
94  PRINT, '8 '
95  ts_mean_ICE, std_EXP1, std_EXP2, year1, year2, std_iodir_data, _extra = ex
96
97
98  return
99END