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_EMP.pro in branches/2013/dev_MERGE_2013/NEMOGCM/CONFIG/ORCA2_LIM/IDL_scripts – NEMO

source: branches/2013/dev_MERGE_2013/NEMOGCM/CONFIG/ORCA2_LIM/IDL_scripts/std_ts_EMP.pro @ 4504

Last change on this file since 4504 was 4497, checked in by flavoni, 10 years ago

update idl scripts, see ticket #724

File size: 1.9 KB
Line 
1pro std_ts_EMP, masknp, s_iodir_data, POSTSCRIPT = postscript, _extra = ex
2
3  compile_opt idl2, strictarrsubs
4 
5@common
6@std_common
7
8; get exp1 info
9  vemp = getenv('VAR1_EMP')    &   prefix = getenv('V1EMP_PREF')    &   suffix = getenv('V1EMP_SUFF')
10; get exp2 info
11  vemp2 = getenv('VAR2_EMP')   &   prefix2 = getenv('V2EMP_PREF')   &   suffix2 = getenv('V2EMP_SUFF')
12;
13  cdti3 = string(cnt, format = '(i3.3)')
14  print, cdti3 + ') ' + blabla
15  filename = cdti3 + '_ts_EMP_'+prefix
16  if prefix NE prefix2 then filename = filename + '_'+prefix2
17  if KEYWORD_SET(postscript) then openps, filename+'.ps', portrait = 1
18
19  d1_d2 = '('+strtrim(date1, 1)+' - '+strtrim(date2, 1)+')'
20;
21  iodir = std_iodir_data
22;
23  surf_oce = e1t * e2t * tmask[*,*,0] * masknp
24  surf_oce = total(surf_oce)
25;
26  ts_EMP = rseries_ncdf(vemp, date1, date2, prefix, suffix, FIRSTONLY = 1 - allrec, direc = 'xy', mask2d = masknp)
27  ts_EMP.arr = ts_EMP.arr * ( 1.E-09 * surf_oce )   &   ts_EMP.unit = 'Sv'
28  title = prefix+' '+d1_d2+'!C'+blabla
29  pltt, ts_EMP, 't', MIN = -2.,MAX = 2., date1, date2, /REMPLI, XGRIDSTYLE = 1 $
30        , small = [1, 2, 1], YTITLE = 'Sv', TITLE = title, /PORTRAIT, _extra = ex
31 
32  IF prefix NE prefix2 THEN BEGIN
33
34    d1_d2_2 = '('+strtrim(date1_2, 1)+' - '+strtrim(date2_2, 1)+')'
35    tsave = time
36    ts_EMP2 = rseries_ncdf(vemp2, date1_2, date2_2, prefix2, suffix2, FIRSTONLY = 1 - allrec, direc = 'xy', mask2d = masknp)
37    ts_EMP2.arr = ts_EMP2.arr * ( 1.E-09 * surf_oce )   &   ts_EMP2.unit = 'Sv'
38    time = tsave   &   IF n_elements(time) NE jpt THEN stop
39
40    title = prefix+' (BLACK) - ' +prefix2+' (RED) '+d1_d2_2+'!C'+blabla
41    pltt, ts_EMP.arr - ts_EMP2.arr, 't', MIN = -2., MAX = 2., date1, date2, /REMPLI, XGRIDSTYLE = 1 $
42          , color = 250, small = [1, 2, 2], YTITLE = 'Sv', TITLE = title, /noerase, _extra = ex
43
44  ENDIF
45
46  htmltxt = [ htmltxt, '<hr>'+blabla, '<br><img width="80%" src='+filename+'.png  />  ' ]
47  if KEYWORD_SET(postscript) then closeps
48 
49  return
50end
51
Note: See TracBrowser for help on using the repository browser.