Changeset 4498


Ignore:
Timestamp:
2014-02-18T15:24:03+01:00 (7 years ago)
Author:
flavoni
Message:

fix small improvements in idl plots, see ticket #724

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  
    6767    plt1d, htr2_atl, 'y', COLOR = 50, /ov1d,  _extra = ex 
    6868 
    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 $ 
    7271           , 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 
    7580     
    7681  endif  
  • branches/2013/dev_MERGE_2013/NEMOGCM/CONFIG/ORCA2_LIM/IDL_scripts/std_ts_ICE_FRAM.pro

    r4497 r4498  
    1010end  
    1111 
    12 ; 
    13 ; 
     12;; here start procedure that use function read_arr2d 
    1413pro std_ts_ICE_FRAM, masknp, s_iodir_data,  POSTSCRIPT = postscript, _extra = ex 
    1514 
     
    2625  vICE2     = getenv('VAR2_ICE')     &   prefix2 = getenv('V2ICE_PREF')   &   suffix2 = getenv('V2ICE_SUFF') 
    2726  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') 
    2928 
    3029  cdti3 = string(cnt, format = '(i3.3)') 
     
    101100  ;title ='Southern Hemisphere' +'!C'+prefix+' '+d1_d2+' - '+'!C'+'Global Annual Mean Ice Volume (Black SOLID simulation)' 
    102101  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 $ 
    104103       , small = [1, 2, 2], YTITLE = '10^3 Km^3/month', TITLE = title, DATE_FORMAT = '%M', _extra = ex 
    105104  pltt, vol_obs, 't', /REMPLI, /NOERASE, psym = 4, THICK = 4  $    ; light blue 
     
    171170    xyouts, julday(7,15,1900), 0.42, 'Data from Kwok et al.(2004), 1979-2002 ', ALIGN = 0, CHARTHICK = 2, CHARSIZE=0.8, COLOR=2 
    172171    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 $ 
    174173        , small = [1, 2, 2], YTITLE = '10^3 Km^3/month', TITLE = title, DATE_FORMAT = '%M', _extra = ex 
    175174    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  
    6565  jpt=12 
    6666  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' $ 
    6868        , small = [1, 2, 1], YTITLE = '10^9 Km^3 ', TITLE = title, _extra = ex 
    6969; 
     
    112112    jpt=12 
    113113    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' $ 
    115115          , small = [1, 2, 1], YTITLE = '10^9 Km^3 ', TITLE = title, _extra = ex 
    116116    pltt, ICE_vol_N2 , 't', /REMPLI, /PORTRAIT $ ; linee tratteggiate LINESTYLE=2  $ 
Note: See TracChangeset for help on using the changeset viewer.