Changeset 4498
- Timestamp:
- 2014-02-18T15:24:03+01:00 (10 years ago)
- Location:
- branches/2013/dev_MERGE_2013/NEMOGCM/CONFIG/ORCA2_LIM/IDL_scripts
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_MERGE_2013/NEMOGCM/CONFIG/ORCA2_LIM/IDL_scripts/std_plot_mht.pro
r2760 r4498 67 67 plt1d, htr2_atl, 'y', COLOR = 50, /ov1d, _extra = ex 68 68 69 varunit = 'Tw' 70 title = 'MHT (TeraW) differences!C'+std_file1_T+' - '+std_file2_T 71 plt1d, (htr1-htr2)*1.e3, 'y', min = -250., max = 250., TITLE = title $ 69 title = 'MHT (Black) & Atlantic MHT (Blue) '+std_file1_T+' !C (Red) '+std_file2_T 70 plt1d, htr1, 'y', min = -2., max = 2., TITLE = title $ 72 71 , SMALL = [2, 2, 3], TICKLEN = 1, XGRIDSTYLE = 2 $ 73 , YTITLE = 'TW', YGRIDSTYLE = 2, /NOERASE, _extra = ex 74 plt1d, (htr1_atl - htr2_atl)*1.e3, 'y', COLOR = 50, /ov1d, _extra = ex 72 , YTITLE = 'PW', YGRIDSTYLE = 2, /NOERASE, _extra = ex 73 plt1d, htr2, 'y', COLOR = 250, /ov1d, _extra = ex 74 plt1d, htr1_atl, 'y', COLOR = 50, /ov1d, _extra = ex 75 plt1d, htr2_atl, 'y', COLOR = 250, /ov1d, _extra = ex 76 ;plt1d, (htr1-htr2)*1.e3, 'y', min = -250., max = 250., TITLE = title $ 77 ; , SMALL = [2, 2, 3], TICKLEN = 1, XGRIDSTYLE = 2 $ 78 ; , YTITLE = 'TW', YGRIDSTYLE = 2, /NOERASE, _extra = ex 79 ;plt1d, (htr1_atl - htr2_atl)*1.e3, 'y', COLOR = 50, /ov1d, _extra = ex 75 80 76 81 endif -
branches/2013/dev_MERGE_2013/NEMOGCM/CONFIG/ORCA2_LIM/IDL_scripts/std_ts_ICE_FRAM.pro
r4497 r4498 10 10 end 11 11 12 ; 13 ; 12 ;; here start procedure that use function read_arr2d 14 13 pro std_ts_ICE_FRAM, masknp, s_iodir_data, POSTSCRIPT = postscript, _extra = ex 15 14 … … 26 25 vICE2 = getenv('VAR2_ICE') & prefix2 = getenv('V2ICE_PREF') & suffix2 = getenv('V2ICE_SUFF') 27 26 v2_Ithick = getenv('VAR2_Ithick') & prefix2 = getenv('V2It_PREF') & suffix2 = getenv('V2It_SUFF') 28 v2_IV = getenv('VAR2_IvelV') & prefix = getenv('V2IvV_PREF') & suffix= getenv('V2IvV_SUFF')27 v2_IV = getenv('VAR2_IvelV') & prefix2 = getenv('V2IvV_PREF') & suffix2 = getenv('V2IvV_SUFF') 29 28 30 29 cdti3 = string(cnt, format = '(i3.3)') … … 101 100 ;title ='Southern Hemisphere' +'!C'+prefix+' '+d1_d2+' - '+'!C'+'Global Annual Mean Ice Volume (Black SOLID simulation)' 102 101 title = 'Fram Strait Volume Export'+'!C'+prefix+' '+d1_d2 103 pltt, ICE_vol_export, 't', /REMPLI, MIN = 0., MAX = . 5, /NOERASE, XGRIDSTYLE = 1 $102 pltt, ICE_vol_export, 't', /REMPLI, MIN = 0., MAX = .6 , /NOERASE, XGRIDSTYLE = 1 $ 104 103 , small = [1, 2, 2], YTITLE = '10^3 Km^3/month', TITLE = title, DATE_FORMAT = '%M', _extra = ex 105 104 pltt, vol_obs, 't', /REMPLI, /NOERASE, psym = 4, THICK = 4 $ ; light blue … … 171 170 xyouts, julday(7,15,1900), 0.42, 'Data from Kwok et al.(2004), 1979-2002 ', ALIGN = 0, CHARTHICK = 2, CHARSIZE=0.8, COLOR=2 172 171 title = 'Fram Strait Volume Export'+'!C'+prefix+' (BLACK) - '+prefix2+' (RED) '+d1_d2_2 173 pltt, ICE_vol_export, 't', /REMPLI, MIN = 0., MAX = . 5, /NOERASE, XGRIDSTYLE = 1 $172 pltt, ICE_vol_export, 't', /REMPLI, MIN = 0., MAX = .6, /NOERASE, XGRIDSTYLE = 1 $ 174 173 , small = [1, 2, 2], YTITLE = '10^3 Km^3/month', TITLE = title, DATE_FORMAT = '%M', _extra = ex 175 174 pltt, ICE_vol_export_2, 't', /REMPLI, /NOERASE $ -
branches/2013/dev_MERGE_2013/NEMOGCM/CONFIG/ORCA2_LIM/IDL_scripts/std_ts_ICE_Vol.pro
r4497 r4498 65 65 jpt=12 66 66 time=julday(1,15,1900)+30*lindgen(12) 67 pltt, ICE_vol_N, 't', MIN = 0., MAX = 30000., /REMPLI, /PORTRAIT, XGRIDSTYLE = 1, DATE_FORMAT = '%M' $67 pltt, ICE_vol_N, 't', MIN = 0., MAX = 40000., /REMPLI, /PORTRAIT, XGRIDSTYLE = 1, DATE_FORMAT = '%M' $ 68 68 , small = [1, 2, 1], YTITLE = '10^9 Km^3 ', TITLE = title, _extra = ex 69 69 ; … … 112 112 jpt=12 113 113 time=julday(1,15,1900)+30*lindgen(12) 114 pltt, ICE_vol_N, 't', MIN = 0., MAX = 30000., /REMPLI, /PORTRAIT, XGRIDSTYLE = 1, window = 2, DATE_FORMAT = '%M' $114 pltt, ICE_vol_N, 't', MIN = 0., MAX = 40000., /REMPLI, /PORTRAIT, XGRIDSTYLE = 1, window = 2, DATE_FORMAT = '%M' $ 115 115 , small = [1, 2, 1], YTITLE = '10^9 Km^3 ', TITLE = title, _extra = ex 116 116 pltt, ICE_vol_N2 , 't', /REMPLI, /PORTRAIT $ ; linee tratteggiate LINESTYLE=2 $
Note: See TracChangeset
for help on using the changeset viewer.