- Timestamp:
- 2013-11-28T12:41:27+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_MERGE_2013/NEMOGCM/CONFIG/ORCA2_LIM/IDL_scripts/std_ts_SSH.pro
r2751 r4320 22 22 ; 23 23 ts_SSH = rseries_ncdf(vssh, date1, date2, prefix, suffix, FIRSTONLY = 1 - allrec, direc = 'xy', mask2d = masknp) 24 ts_SSH.arr = ts_SSH.arr * 100 & ts_SSH.unit = 'cm' 24 ;SF ts_SSH.arr = ts_SSH.arr * 100 & ts_SSH.unit = 'cm' 25 ts_SSH.arr = ts_SSH.arr & ts_SSH.unit = 'm' 25 26 title = prefix+' '+d1_d2+'!C'+blabla 26 pltt, ts_SSH, 't', -.1, .1, date1, date2, /REMPLI $ 27 , small = [1, 2, 1], YTITLE = 'cm', TITLE = title, /PORTRAIT, _extra = ex 27 pltt, ts_SSH, 't', -12., 12., date1, date2, /REMPLI $ 28 ;SF , small = [1, 2, 1], YTITLE = 'cm', TITLE = title, /PORTRAIT, _extra = ex 29 , small = [1, 2, 1], YTITLE = 'm', TITLE = title, /PORTRAIT, _extra = ex 28 30 29 31 IF prefix NE prefix2 THEN BEGIN … … 32 34 tsave = time 33 35 ts_SSH2 = rseries_ncdf(vssh2, date1_2, date2_2, prefix2, suffix2, FIRSTONLY = 1 - allrec, direc = 'xy', mask2d = masknp) 34 ts_SSH2.arr = ts_SSH2.arr * 100 & ts_SSH2.unit = 'cm' 36 ;SF ts_SSH2.arr = ts_SSH2.arr * 100 & ts_SSH2.unit = 'cm' 37 ts_SSH2.arr = ts_SSH2.arr & ts_SSH2.unit = 'm' 35 38 time = tsave & IF n_elements(time) NE jpt THEN stop 36 39 37 40 title = prefix+' '+d1_d2+' - '+prefix2+' '+d1_d2_2+'!C'+blabla 38 pltt, ts_SSH.arr - ts_SSH2.arr, 't', -.1, .1, date1, date2, /REMPLI $ 39 , color = 250, small = [1, 2, 2], YTITLE = 'cm', TITLE = title, /noerase, _extra = ex 41 pltt, ts_SSH.arr - ts_SSH2.arr, 't', -10., 10., date1, date2, /REMPLI $ 42 ;SF , color = 250, small = [1, 2, 2], YTITLE = 'cm', TITLE = title, /noerase, _extra = ex 43 , color = 250, small = [1, 2, 2], YTITLE = 'm', TITLE = title, /noerase, _extra = ex 40 44 41 45 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.