New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
std_ts_all.pro in branches/2014/dev_r4650_UKMO14.5_SST_BIAS_CORRECTION/NEMOGCM/CONFIG/ORCA2_SAS_LIM/IDL_scripts – NEMO

source: branches/2014/dev_r4650_UKMO14.5_SST_BIAS_CORRECTION/NEMOGCM/CONFIG/ORCA2_SAS_LIM/IDL_scripts/std_ts_all.pro @ 5967

Last change on this file since 5967 was 5967, checked in by timgraham, 8 years ago

Reset keywords before merging with head of trunk

  • Property svn:keywords set to Id
File size: 2.7 KB
Line 
1pro std_ts_all, doplot = doplot, _extra=ex
2
3  compile_opt idl2, strictarrsubs
4
5@common
6@std_common
7
8  PRINT, ''
9  PRINT, '  ############################################'
10  PRINT, ''
11  PRINT, '                   plot of all TIME SERIES'
12  PRINT, ''
13  PRINT, '  ############################################'
14  PRINT, ''
15;
16  std_iodir_data    = isadirectory(getenv('DIR_DATA'), title = 'path of data in NetCdf format')
17  std_iodir_climato = isadirectory(getenv('DIR_CLIMATO'), title = 'path of climatological data')
18  std_iodir_mask    = isadirectory(getenv('DIR_MASK'), title = 'path of mask files (ex: subbasins)')
19; meshmask
20  std_file_mesh = isafile(getenv('FILE_MESH_MASK'), title = 'mesh_mask', iodir = std_iodir_mask)
21  std_file_msksub = isafile(getenv('FILE_MASK_SUBDOMAIN'), title = 'sub-bassin masks', iodir = std_iodir_mask)
22; load the grid
23  load_orca, std_file_mesh 
24; reading variables
25  masknp = read_ncdf('tmaskutil', file = std_file_mesh, /nostruct, /cont_nofill)
26
27  date1   = long(getenv('DATE1'))     &   date2   = long(getenv('DATE2'))
28  date1_2 = long(getenv('DATE1_2'))   &   date2_2 = long(getenv('DATE2_2'))
29
30  allrec =  1 - keyword_set(long(getenv('READ_ONLY_FIRST_RECORD')))
31
32;#########################################################################
33;######################  STANDARD PLOTS   ################################
34;#########################################################################
35
36  IF keyword_set(doplot) EQ 0 THEN doplot = 0
37
38; fixed color tabled
39  lct, 64
40  cnt = 0
41  htmltxt = ''
42;
43  cnt = cnt+1   &   blabla = 'Global Mean Temperature'
44  IF doplot EQ cnt OR doplot EQ 0 THEN std_ts_T, masknp, POSTSCRIPT = postscript, _extra = ex
45;
46  cnt = cnt+1   &   blabla = 'Global Mean Salinity'
47  IF doplot EQ cnt OR doplot EQ 0 THEN std_ts_S, masknp, POSTSCRIPT = postscript, _extra = ex
48;
49  cnt = cnt+1   &   blabla = 'Global Mean SSH'
50  IF doplot EQ cnt OR doplot EQ 0 THEN std_ts_SSH, masknp, POSTSCRIPT = postscript, _extra = ex
51;
52  cnt = cnt+1   &   blabla = 'Global Mean Q net'
53  IF doplot EQ cnt OR doplot EQ 0 THEN std_ts_Q, masknp, POSTSCRIPT = postscript, _extra = ex
54;
55  cnt = cnt+1   &   blabla = 'Global Mean EMP'
56  IF doplot EQ cnt OR doplot EQ 0 THEN std_ts_EMP, masknp, POSTSCRIPT = postscript, _extra = ex
57;
58  cnt = cnt+1   &   blabla = 'Drake Transport'
59  IF doplot EQ cnt OR doplot EQ 0 THEN std_ts_Drake, masknp, POSTSCRIPT = postscript, _extra = ex
60;
61  cnt = cnt+1   &   blabla = 'Max AMOC'
62  IF doplot EQ cnt OR doplot EQ 0 THEN std_ts_AMOC, masknp, POSTSCRIPT = postscript, _extra = ex
63;
64  cnt = cnt+1   &   blabla = 'Sea-Ice cover'
65  IF doplot EQ cnt OR doplot EQ 0 THEN std_ts_ICE, masknp, POSTSCRIPT = postscript, _extra = ex
66
67  IF n_elements(htmltxt) GT 1 THEN putfile, psdir+'std_ts_html_body.txt', htmltxt[1:*]
68
69  return
70END
Note: See TracBrowser for help on using the repository browser.