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.
Changeset 4495 for branches/2013/dev_MERGE_2013/NEMOGCM/CONFIG – NEMO

Ignore:
Timestamp:
2014-02-10T16:51:42+01:00 (10 years ago)
Author:
flavoni
Message:

commit FRAM strait export for idl plots, see ticket #724

Location:
branches/2013/dev_MERGE_2013/NEMOGCM/CONFIG/ORCA2_LIM/IDL_scripts
Files:
9 edited

Legend:

Unmodified
Added
Removed

  • branches/2013/dev_MERGE_2013/NEMOGCM/CONFIG/ORCA2_LIM/IDL_scripts/std_ts_AMOC.pro

    r4394 r4495  
    9898        ,  small = [1, 2, 1],  TITLE = title, YTITLE = varunit, _extra = ex 
    9999  IF prefix NE prefix2 then begin 
    100     title = prefix+' '+d1_d2+' - '+prefix2+' '+d1_d2_2+'!C'+'Max Atlantic MOC between 40N and 50N' 
    101     pltt, t45 - t45_2, 't', -9., 9., date1, date2, /REMPLI, /NOERASE $ 
    102           ,  COLOR = 250, small = [1, 2, 2],  TITLE = title, YTITLE = varunit, _extra = ex 
     100    title = prefix+' (BLACK) - '+prefix2+' (RED) '+d1_d2_2+'!C'+'Max Atlantic MOC between 40N and 50N' 
     101    pltt, t45, 't', 0., 30., date1, date2, /REMPLI, /NOERASE $ 
     102          ,  small = [1, 2, 2],  TITLE = title, YTITLE = varunit, _extra = ex ; BLACK 
     103    pltt, t45_2, 't', 0., 30., date1, date2, /REMPLI, /NOERASE $ 
     104          ,  /ov1d, COLOR = 250, small = [1, 2, 2],  TITLE = title, YTITLE = varunit, _extra = ex ; RED 
    103105  endif 
    104106   
    … …  
    111113        , small = [1, 2, 1],  TITLE = title, YTITLE = varunit, _extra = ex 
    112114  if prefix NE prefix2 then begin  
    113     title = prefix+' '+d1_d2+' - '+prefix2+' '+d1_d2_2+'!C'+'Max AntArctic Bottom Water between 80S and 65S' 
    114     pltt, -t70 + t70_2, 't', -5., 5., date1, date2, /REMPLI, /NOERASE $ 
    115           ,  COLOR = 250, small = [1, 2, 2],  TITLE = title, YTITLE = varunit, _extra = ex 
     115    title = prefix+' (BLACK) - '+prefix2+' (RED) '+d1_d2_2+'!C'+'Max AntArctic Bottom Water between 80S and 65S' 
     116    pltt, -t70, 't', 0., 20., date1, date2, /REMPLI, /NOERASE $ 
     117          ,  small = [1, 2, 2],  TITLE = title, YTITLE = varunit, _extra = ex ; BLACK 
     118    pltt, -t70_2, 't', 0., 20., date1, date2, /REMPLI, /NOERASE $ 
     119          , /ov1d, COLOR = 250, small = [1, 2, 2],  TITLE = title, YTITLE = varunit, _extra = ex ; RED 
    116120  endif 
    117121   
    … …  
    124128        ,  small = [1, 2, 1],  TITLE = title, YTITLE = varunit, _extra = ex 
    125129  if prefix NE prefix2 then begin 
    126     title = prefix+' '+d1_d2+' - '+prefix2+' '+d1_d2_2+'!C'+'Max AntArctic Bottom Cell between 65S and 30N' 
    127     pltt, -t50 + t50_2, 't', -5., 5., date1, date2, /REMPLI, /NOERASE  $ 
    128           ,  COLOR = 250, small = [1, 2, 2],  TITLE = title, YTITLE = varunit, _extra = ex 
     130    title = prefix+' (BLACK) - '+prefix2+' (RED) '+d1_d2_2+'!C'+'Max AntArctic Bottom Cell between 65S and 30N' 
     131    pltt, -t50 , 't', 5., 30., date1, date2, /REMPLI, /NOERASE  $ 
     132          ,  small = [1, 2, 2],  TITLE = title, YTITLE = varunit, _extra = ex ; BLACK 
     133    pltt, -t50_2, 't', 5., 30., date1, date2, /REMPLI, /NOERASE  $ 
     134          , /ov1d, COLOR = 250, small = [1, 2, 2],  TITLE = title, YTITLE = varunit, _extra = ex ; RED 
    129135  endif 
    130136   

  • branches/2013/dev_MERGE_2013/NEMOGCM/CONFIG/ORCA2_LIM/IDL_scripts/std_ts_Drake.pro

    r4394 r4495  
    5959    time = tsave   &   IF n_elements(time) NE jpt THEN stop 
    6060 
    61     title = prefix+' '+d1_d2+' - '+prefix2+' '+d1_d2_2+'!C'+blabla 
    62     pltt, drk1 - drk2, 't', -30., 30., date1, date2, /REMPLI, /NOERASE $ 
    63           , COLOR = 250, small = [1, 2, 2],  TITLE = title, YTITLE = varunit, _extra = ex 
     61    title = prefix+' (BLACK) - '+prefix2+' (RED)  '+d1_d2_2+'!C'+blabla 
     62    pltt, drk1 , 't', 0., 200., date1, date2, /REMPLI, /NOERASE $ 
     63          , COLOR = 000, small = [1, 2, 2],  TITLE = title, YTITLE = varunit, _extra = ex ; BLACK 
     64    pltt, drk2, 't', 0., 200., date1, date2, /REMPLI, /NOERASE $ 
     65          , /ov1d, COLOR = 250, small = [1, 2, 2],  TITLE = title, YTITLE = varunit, _extra = ex ; RED 
    6466     
    6567  endif 

  • branches/2013/dev_MERGE_2013/NEMOGCM/CONFIG/ORCA2_LIM/IDL_scripts/std_ts_ICE.pro

    r4395 r4495  
    8888  ICE_S_15 = {arr:ICE_S_15 * 1.e-12, unit : '10^12 m^2'} 
    8989  ; 
    90   title = 'Northern Hemisphere'+'!C'+prefix+' '+d1_d2+'!C'+' Global Annual Mean Ice Area (BLACK)'+'!C'+ 'and Extend minus 15% (BLUE)'+'!C'+'Observation (DASHED)' 
     90  title = 'Northern Hemisphere'+'!C'+prefix+' (BLACK) '+d1_d2+'!C'+'OBSERVATION (light blue) '+'!C'+' Global Annual Mean Ice Area (CONTINUOUS) '+'!C'+ 'and Extend minus 15% (DASHED)' 
    9191  jpt=12 
    9292  time=julday(1,15,1900)+30*lindgen(12) 
    93   pltt, ICE_N, 't', 0., 15., 19000101, 19001231, /REMPLI, /PORTRAIT, MIN = 4., MAX = 16. $ 
     93  pltt, ICE_N, 't', 0., 15., /REMPLI, /PORTRAIT, MIN = 4., MAX = 16. $ 
    9494       , COLOR = 000 , small = [1, 2, 1], YTITLE = '10^12 m^2 ', TITLE = title, _extra = ex 
    95   pltt, ICE_N_15, 't', 0., 15., 19000101, 19001231, /REMPLI, /PORTRAIT, LINESTYLE=2 $       ;;; dashed lines is LINESTYLE=2  $ 
     95  pltt, ICE_N_15, 't', 0., 15., /REMPLI, /PORTRAIT, LINESTYLE=2 $       ;;; dashed lines is LINESTYLE=2  $ 
    9696        , /ov1d, COLOR = 000, small = [1, 2, 1], YTITLE = '10^12 m^2 ', TITLE = title, _extra = ex  
    97   pltt, vICE_area_NH, 't', 0., 15., 19000101, 19001231, /REMPLI, /PORTRAIT $  
     97  pltt, vICE_area_NH, 't', 0., 15., /REMPLI, /PORTRAIT $  
    9898        , /ov1d, COLOR = 100, small = [1, 2, 1], YTITLE = '10^12 m^2 ', TITLE = title, _extra = ex 
    99   pltt, vICE_ext_NH, 't', 0., 15., 19000101, 19001231, /REMPLI, /PORTRAIT, LINESTYLE=2 $   ;;; dashed lines is LINESTYLE=2  $ 
     99  pltt, vICE_ext_NH, 't', 0., 15., /REMPLI, /PORTRAIT, LINESTYLE=2 $   ;;; dashed lines is LINESTYLE=2  $ 
    100100        , /ov1d, COLOR = 100, small = [1, 2, 1], YTITLE = '10^12 m^2 ', TITLE = title, _extra = ex 
    101101; 
    102   title ='Southern Hemisphere !C'+prefix+' '+d1_d2+' - '+'!C'+'Global Annual Mean Ice Area (BLACK)'+'!C'+ 'and Extend minus 15% (BLUE)'+'!C'+'Observation (DASHED)' 
    103   pltt, ICE_S, 't', 0., 15.,19000101 ,19001231 , /REMPLI, /NOERASE , MIN = 0., MAX = 20. $ 
     102  title = 'Southern Hemisphere'+'!C'+prefix+' (BLACK) '+d1_d2+'!C'+'OBSERVATION (light blue) '+'!C'+' Global Annual Mean Ice Area (CONTINUOUS) '+'!C'+ 'and Extend minus 15% (DASHED)' 
     103  pltt, ICE_S, 't', 0., 15., /REMPLI, /NOERASE , MIN = 0., MAX = 20. $ 
    104104        ,COLOR = 000, small = [1, 2, 2], YTITLE = '10^12 m^2 ', TITLE = title, _extra = ex 
    105   pltt, ICE_S_15, 't', 0., 15., 19000101, 19001231, /REMPLI, /PORTRAIT, LINESTYLE=2 $  
     105  pltt, ICE_S_15, 't', 0., 15., /REMPLI, /PORTRAIT, LINESTYLE=2 $  
    106106        , /ov1d, COLOR = 000, small = [1, 2, 1], YTITLE = '10^12 m^2 ', TITLE = title, _extra = ex  
    107   pltt,  vICE_area_SH, 't', 0., 15., 19000101, 19001231, /REMPLI, /PORTRAIT $  
     107  pltt,  vICE_area_SH, 't', 0., 15., /REMPLI, /PORTRAIT $  
    108108         , /ov1d, COLOR = 100, small = [1, 2, 1], YTITLE = '10^12 m^2 ', TITLE = title, _extra = ex 
    109   pltt,  vICE_ext_SH, 't', 0., 15., 19000101, 19001231, /REMPLI, /PORTRAIT, LINESTYLE=2 $  
     109  pltt,  vICE_ext_SH, 't', 0., 15., /REMPLI, /PORTRAIT, LINESTYLE=2 $  
    110110        , /ov1d, COLOR = 100, small = [1, 2, 1], YTITLE = '10^12 m^2 ', TITLE = title, _extra = ex 
    111111; 
    … …  
    162162  jpt=12 
    163163  time=julday(1,15,1900)+30*lindgen(12) 
    164   pltt, ICE_N.arr, 't', -.2, .2, 19000101, 19001231, /REMPLI, /PORTRAIT,MIN = 4., MAX = 16., window = 2 $ 
     164  pltt, ICE_N, 't', -.2, .2,  /REMPLI, /PORTRAIT, MIN = 4., MAX = 16., window = 2 $ 
    165165        , COLOR = 000, small = [1, 2, 1], YTITLE = '10^12 m^2 ', TITLE = title, _extra = ex ; BLACK 
    166   pltt, ICE_N2.arr, 't', -.2, .2, 19000101, 19001231, /REMPLI, /PORTRAIT, window = 2 $ 
     166  pltt, ICE_N2, 't', -.2, .2,  /REMPLI, /PORTRAIT $ 
    167167        , /ov1d, COLOR = 250, small = [1, 2, 1], YTITLE = '10^12 m^2 ', TITLE = title, _extra = ex  ; RED 
    168   pltt, ICE_N_15.arr, 't', -.2, .2, 19000101, 19001231, /REMPLI, /PORTRAIT, LINESTYLE=2 $ ; linee tratteggiate LINESTYLE=2  $ 
     168  pltt, ICE_N_15, 't', -.2, .2, /REMPLI, /PORTRAIT, LINESTYLE=2 $ ; linee tratteggiate LINESTYLE=2  $ 
    169169        , /ov1d, COLOR = 000, small = [1, 2, 1], YTITLE = '10^12 m^2 ', TITLE = title, _extra = ex  
    170   pltt, ICE_N2_15.arr , 't', -.2, .2, 19000101, 19001231, /REMPLI, /PORTRAIT, LINESTYLE=2 $ ; linee tratteggiate LINESTYLE=2  $ 
     170  pltt, ICE_N2_15, 't', -.2, .2, /REMPLI, /PORTRAIT, LINESTYLE=2 $ ; linee tratteggiate LINESTYLE=2  $ 
    171171        , /ov1d, COLOR = 250, small = [1, 2, 1], YTITLE = '10^12 m^2 ', TITLE = title, _extra = ex 
    172   pltt, vICE_area_NH, 't', -2., 2., 19000101, 19001231, /REMPLI, /PORTRAIT $  
     172  pltt, vICE_area_NH, 't', -2., 2., /REMPLI, /PORTRAIT $  
    173173        , /ov1d, COLOR = 100, small = [1, 2, 1], YTITLE = '10^12 m^2 ', TITLE = title, _extra = ex  ; light blue 
    174   pltt, vICE_ext_NH, 't', -2., 2., 19000101, 19001231, /REMPLI, /PORTRAIT, LINESTYLE=2 $  
     174  pltt, vICE_ext_NH, 't', -2., 2., /REMPLI, /PORTRAIT, LINESTYLE=2 $  
    175175        , /ov1d, COLOR = 100, small = [1, 2, 1], YTITLE = '10^12 m^2 ', TITLE = title, _extra = ex  ; blu scuro 
    176176; 
    177177  title ='Southern Hemisphere'+'!C'+prefix+' (BLACK) - '+prefix2+' (RED) '+d1_d2_2+'!C'+'OBSERVATION (light blue) '+'!C'+'Global Annual Mean Ice Area (CONTINUS)'+'!C'+ 'and Extend minus 15% (DASHED)' 
    178178;  title ='Southern Hemisphere'+'!C' 
    179   pltt, ICE_S.arr, 't', -2., 2., 19000101, 19001231, /REMPLI, /NOERASE, MIN = 0., MAX = 20. $ 
     179  pltt, ICE_S.arr, 't', -2., 2., /REMPLI, /NOERASE, MIN = 0., MAX = 20. $ 
    180180         , COLOR = 000, small = [1, 2, 2], YTITLE = '10^12 m^2 ', TITLE = title, _extra = ex 
    181   pltt, ICE_S2.arr, 't', -2., 2., 19000101, 19001231, /REMPLI, /NOERASE $ 
     181  pltt, ICE_S2.arr, 't', -2., 2., /REMPLI, /NOERASE $ 
    182182        , /ov1d, COLOR = 250, small = [1, 2, 2], YTITLE = '10^12 m^2 ', TITLE = title, _extra = ex 
    183   pltt, ICE_S_15.arr , 't', -2., 2., 19000101, 19001231, /REMPLI, /PORTRAIT, LINESTYLE=2 $ ; linee tratteggiate LINESTYLE=2  $ 
     183  pltt, ICE_S_15.arr , 't', -2., 2., /REMPLI, /PORTRAIT, LINESTYLE=2 $ ; linee tratteggiate LINESTYLE=2  $ 
    184184        , /ov1d, COLOR = 000, small = [1, 2, 2], YTITLE = '10^12 m^2 ', TITLE = title, _extra = ex 
    185   pltt, ICE_S2_15.arr , 't', -2., 2., 19000101, 19001231, /REMPLI, /PORTRAIT, LINESTYLE=2 $ ; linee tratteggiate LINESTYLE=2  $ 
     185  pltt, ICE_S2_15.arr , 't', -2., 2., /REMPLI, /PORTRAIT, LINESTYLE=2 $ ; linee tratteggiate LINESTYLE=2  $ 
    186186        , /ov1d, COLOR = 250, small = [1, 2, 2], YTITLE = '10^12 m^2 ', TITLE = title, _extra = ex 
    187   pltt,  vICE_area_SH, 't', -2., 2., 19000101, 19001231, /REMPLI, /PORTRAIT $  
     187  pltt,  vICE_area_SH, 't', -2., 2., /REMPLI, /PORTRAIT $  
    188188          , /ov1d, COLOR = 100, small = [1, 2, 2], YTITLE = '10^12 m^2 ', TITLE = title, _extra = ex 
    189   pltt,  vICE_ext_SH, 't', -2., 2., 19000101, 19001231, /REMPLI, /PORTRAIT, LINESTYLE=2 $  
     189  pltt,  vICE_ext_SH, 't', -2., 2., /REMPLI, /PORTRAIT, LINESTYLE=2 $  
    190190        , /ov1d, COLOR = 100, small = [1, 2, 2], YTITLE = '10^12 m^2 ', TITLE = title, _extra = ex 
    191191; 

  • branches/2013/dev_MERGE_2013/NEMOGCM/CONFIG/ORCA2_LIM/IDL_scripts/std_ts_ICE_FRAM.pro

    r4395 r4495  
    7171  ICE_area_export = reform(ICE_area_export, 12, nyr) 
    7272  ICE_area_export = total(ICE_area_export,2)/nyr 
    73   ICE_area_export = {arr:ICE_area_export * 1.e-12 * 86400 * 365 , unit : '10^6 Km^2/year'} 
     73  ; ICE_area_export = {arr:ICE_area_export * 1.e-12 * 86400 * 365 , unit : '10^6 Km^2/year'}  ; annual mean 
     74  ICE_area_export = {arr:ICE_area_export * 1.e-12 * 86400 * 30 , unit : '10^6 Km^2/month'}    ; monthly mean 
     75   
    7476  ; 
    7577  ICE_vol_export = reform(ICE_vol_export, 12, nyr) 
    7678  ICE_vol_export = total(ICE_vol_export,2)/nyr 
    77   ICE_vol_export = {arr:ICE_vol_export * 1.e-12 * 86400 * 365 , unit : '10^3 Km^3/year'} 
     79  ; ICE_vol_export = {arr:ICE_vol_export * 1.e-12 * 86400 * 365 , unit : '10^3 Km^3/year'}      ; annual mean 
     80  ICE_vol_export = {arr:ICE_vol_export * 1.e-12 * 86400 * 30 , unit : '10^3 Km^3/month'}      ; monthly mean 
    7881 
    7982  ; 
    … …  
    8285  jpt=12 
    8386  time=julday(1,15,1900)+30*lindgen(12) 
    84   pltt, ICE_area_export, 't', 0., 15., 19000101, 19001231, /REMPLI, /PORTRAIT,MIN = 0., MAX = 2. $ 
    85         , small = [1, 2, 1],YTITLE = '10^6 Km^2/year',  TITLE = title, _extra = ex 
     87  ;; pltt, ICE_area_export, 't', 0., 15., 19000101, 19001231, /REMPLI, /PORTRAIT,MIN = 0., MAX = .5 $ 
     88  pltt, ICE_area_export, 't', 0., 15., /REMPLI, /PORTRAIT,MIN = 0., MAX = .5 $ 
     89  ;;      , small = [1, 2, 1], YTITLE = varunit, TITLE = title, _extra = ex 
     90        , small = [1, 2, 1],YTITLE = '10^6 Km^2/month',  TITLE = title, _extra = ex     
    8691  ; 
    8792  ;title ='Southern Hemisphere' +'!C'+prefix+' '+d1_d2+' - '+'!C'+'Global Annual Mean Ice Volume (Black SOLID simulation)' 
    8893  title = 'Fram Strait Volume Export'+'!C'+prefix+' '+d1_d2 
    89   pltt, ICE_vol_export, 't', 0., 15.,19000101 ,19001231 , /REMPLI, /NOERASE , MIN = 0., MAX = 6. $ 
    90         , small = [1, 2, 2], YTITLE = '10^3 Km^3/year', TITLE = title, _extra = ex 
     94  ;; pltt, ICE_vol_export, 't', 0., 15.,19000101 ,19001231 , /REMPLI, /NOERASE , MIN = 0., MAX = .5 $ 
     95  pltt, ICE_vol_export, 't', 0., 15., /REMPLI, /NOERASE , MIN = 0., MAX = .5 $ 
     96  ;;       , small = [1, 2, 2], YTITLE = varunit, TITLE = title, _extra = ex 
     97       , small = [1, 2, 2], YTITLE = '10^3 Km^3/month', TITLE = title, _extra = ex 
    9198  ; 
    9299  htmltxt = [ htmltxt, '<hr>'+blabla, '<br><img width="80%" src='+filename+'.png  />  ' ] 
    … …  
    119126    ICE_area_export_2 = reform(ICE_area_export_2, 12, nyr) 
    120127    ICE_area_export_2 = total(ICE_area_export_2,2)/nyr 
    121     ICE_area_export_2 = {arr:ICE_area_export_2 * 1.e-12 * 86400 * 365 , unit : '10^6 Km^2/year'} 
     128    ; ICE_area_export_2 = {arr:ICE_area_export_2 * 1.e-12 * 86400 * 365 , unit : '10^6 Km^2/year'}   ; annual mean 
     129    ICE_area_export_2 = {arr:ICE_area_export_2 * 1.e-12 * 86400 * 30 , unit : '10^6 Km^2/month'}     ; monthly mean 
    122130    ; 
    123131    ICE_vol_export_2 = reform(ICE_vol_export_2, 12, nyr) 
    124132    ICE_vol_export_2 = total(ICE_vol_export_2,2)/nyr 
    125     ICE_vol_export_2 = {arr:ICE_vol_export_2 * 1.e-12 * 86400 * 365 , unit : '10^3 Km^3/year'} 
     133    ; ICE_vol_export_2 = {arr:ICE_vol_export_2 * 1.e-12 * 86400 * 365 , unit : '10^3 Km^3/year'}     ; annual mean 
     134    ICE_vol_export_2 = {arr:ICE_vol_export_2 * 1.e-12 * 86400 * 30 , unit : '10^3 Km^3/month'}       ; monthly mean 
    126135    ; 
    127136    ; 
    … …  
    131140    jpt=12 
    132141    time=julday(1,15,1900)+30*lindgen(12) 
    133     pltt, ICE_area_export.arr, 't', 0., 15., 19000101, 19001231, /REMPLI, /PORTRAIT, MIN = 0., MAX = 2., window = 2 $ 
    134         , small = [1, 2, 1],YTITLE = '10^6 Km^2/year',  TITLE = title, _extra = ex 
    135     pltt, ICE_area_export_2.arr ,'t', 0., 15., 19000101, 19001231, /REMPLI, /PORTRAIT $ 
    136         , /ov1d, COLOR = 250, small = [1, 2, 1],YTITLE = '10^6 Km^2/year',  TITLE = title, _extra = ex 
    137     ; 
     142    ;; pltt, ICE_area_export.arr, 't', 0., 15., 19000101, 19001231, /REMPLI, /PORTRAIT, MIN = 0., MAX = .5, window = 2 $ 
     143    pltt, ICE_area_export, 't', 0., 15., /REMPLI, /PORTRAIT, MIN = 0., MAX = .5, window = 2 $ 
     144    ;;    , small = [1, 2, 1], YTITLE = varunit, TITLE = title, _extra = ex 
     145        , small = [1, 2, 1], YTITLE = '10^6 Km^2/month',  TITLE = title, _extra = ex     
     146    ;; pltt, ICE_area_export_2.arr ,'t', 0., 15., 19000101, 19001231, /REMPLI, /PORTRAIT $ 
     147    pltt, ICE_area_export_2 ,'t', 0., 15., /REMPLI, /PORTRAIT $ 
     148    ;;    , /ov1d, COLOR = 250, small = [1, 2, 1], YTITLE = varunit,  TITLE = title, _extra = ex 
     149        , /ov1d, COLOR = 250, small = [1, 2, 1],YTITLE = '10^6 Km^2/month',  TITLE = title, _extra = ex 
    138150    ; 
    139151    title = 'Fram Strait Volume Export'+'!C'+prefix+' (BLACK) - '+prefix2+' (RED) '+d1_d2_2 
    140     pltt, ICE_vol_export.arr, 't', 0., 15.,19000101 ,19001231 , /REMPLI, /NOERASE , MIN = 0., MAX = 6. $ 
    141         , small = [1, 2, 2], YTITLE = '10^3 Km^3/year', TITLE = title, _extra = ex 
    142     pltt, ICE_vol_export_2.arr, 't', 0., 15.,19000101 ,19001231 , /REMPLI, /NOERASE  $ 
    143         , /ov1d, COLOR = 250, small = [1, 2, 2], YTITLE = '10^3 Km^3/year', TITLE = title, _extra = ex 
     152    ;; pltt, ICE_vol_export.arr, 't', 0., 15.,19000101 ,19001231 , /REMPLI, /NOERASE , MIN = 0., MAX = .5 $ 
     153    pltt, ICE_vol_export, 't', 0., 15., /REMPLI, /NOERASE , MIN = 0., MAX = .5 $ 
     154    ;;    , small = [1, 2, 2], YTITLE = varunit, TITLE = title, _extra = ex 
     155        , small = [1, 2, 2], YTITLE = '10^3 Km^3/month', TITLE = title, _extra = ex 
     156    ;; pltt, ICE_vol_export_2.arr, 't', 0., 15.,19000101 ,19001231 , /REMPLI, /NOERASE  $ 
     157    pltt, ICE_vol_export_2, 't', 0., 15.,  /REMPLI, /NOERASE  $ 
     158    ;;    , /ov1d, COLOR = 250, small = [1, 2, 2], YTITLE = varunit, TITLE = title, _extra = ex 
     159        , /ov1d, COLOR = 250, small = [1, 2, 2], YTITLE = '10^3 Km^3/month', TITLE = title, _extra = ex 
    144160    ; 
    145161 

  • branches/2013/dev_MERGE_2013/NEMOGCM/CONFIG/ORCA2_LIM/IDL_scripts/std_ts_ICE_Vol.pro

    r4395 r4495  
    6565  jpt=12 
    6666  time=julday(1,15,1900)+30*lindgen(12) 
    67   pltt, ICE_vol_N, 't', 0., 15., 19000101, 19001231, /REMPLI, /PORTRAIT,MIN = 0., MAX = 30000. $ 
    68         , small = [1, 2, 1], YTITLE = 'Km^3 ', TITLE = title, _extra = ex 
     67  pltt, ICE_vol_N, 't', 0., 15., /REMPLI, /PORTRAIT,MIN = 0., MAX = 30000. $ 
     68        , small = [1, 2, 1], YTITLE = '10^9 Km^3 ', TITLE = title, _extra = ex 
    6969; 
    7070  title ='Southern Hemisphere' +'!C'+prefix+' '+d1_d2+' - '+'!C'+'Global Annual Mean Ice Volume (BLACK)' 
    71   pltt, ICE_vol_S, 't', 0., 15.,19000101 ,19001231 , /REMPLI, /NOERASE , MIN = 0., MAX = 11000. $ 
    72         , small = [1, 2, 2], YTITLE = 'Km^3 ', TITLE = title, _extra = ex 
     71  pltt, ICE_vol_S, 't', 0., 15., /REMPLI, /NOERASE , MIN = 0., MAX = 11000. $ 
     72        , small = [1, 2, 2], YTITLE = '10^9 Km^3 ', TITLE = title, _extra = ex 
    7373; 
    7474  htmltxt = [ htmltxt, '<hr>'+blabla, '<br><img width="80%" src='+filename+'.png  />  ' ] 
    … …  
    112112    jpt=12 
    113113    time=julday(1,15,1900)+30*lindgen(12) 
    114     pltt, ICE_vol_N.arr, 't', -125., -60., 19000101, 19001231, /REMPLI, /PORTRAIT, MIN = 0., MAX = 30000., window = 2 $ 
    115           , small = [1, 2, 1], YTITLE = 'Km^3 ', TITLE = title, _extra = ex 
    116     pltt, ICE_vol_N2.arr , 't', -.2, .2, 19000101, 19001231, /REMPLI, /PORTRAIT $ ; linee tratteggiate LINESTYLE=2  $ 
    117         , /ov1d, COLOR = 250, small = [1, 2, 1], YTITLE = 'Km^3 ', TITLE = title, _extra = ex 
     114    pltt, ICE_vol_N, 't', -125., -60., /REMPLI, /PORTRAIT, MIN = 0., MAX = 30000., window = 2 $ 
     115          , small = [1, 2, 1], YTITLE = '10^9 Km^3 ', TITLE = title, _extra = ex 
     116    pltt, ICE_vol_N2 , 't', -.2, .2, /REMPLI, /PORTRAIT $ ; linee tratteggiate LINESTYLE=2  $ 
     117        , /ov1d, COLOR = 250, small = [1, 2, 1], YTITLE = '10^9 Km^3 ', TITLE = title, _extra = ex 
    118118    ; 
    119119    title = 'Southern Hemisphere'+'!C'+prefix+' (BLACK) - '+prefix2+' (RED) '+d1_d2_2+'!C'+'Global Annual Mean Ice Volume' 
    120     pltt, ICE_vol_S.arr, 't', -620., -10., 19000101, 19001231, /REMPLI, /NOERASE, MIN = 0., MAX = 11000. $ 
    121           , small = [1, 2, 2], YTITLE = 'Km^3 ', TITLE = title, _extra = ex    
    122     pltt, ICE_vol_S2.arr, 't', -620., -10., 19000101, 19001231, /REMPLI, /NOERASE $ 
    123           , /ov1d, COLOR = 250, small = [1, 2, 2], YTITLE = 'Km^3 ', TITLE = title, _extra = ex    
     120    pltt, ICE_vol_S, 't', -620., -10., /REMPLI, /NOERASE, MIN = 0., MAX = 11000. $ 
     121          , small = [1, 2, 2], YTITLE = '10^9 Km^3 ', TITLE = title, _extra = ex    
     122    pltt, ICE_vol_S2, 't', -620., -10., /REMPLI, /NOERASE $ 
     123          , /ov1d, COLOR = 250, small = [1, 2, 2], YTITLE = '10^9 Km^3 ', TITLE = title, _extra = ex    
    124124 
    125125    htmltxt = [ htmltxt, '<hr>'+blabla, '<br><img width="80%" src='+filename+'_2.png  />  ' ] 

  • branches/2013/dev_MERGE_2013/NEMOGCM/CONFIG/ORCA2_LIM/IDL_scripts/std_ts_Q.pro

    r2751 r4495  
    3333    time = tsave   &   IF n_elements(time) NE jpt THEN stop 
    3434 
    35     title = prefix+' '+d1_d2+' - '+prefix2+' '+d1_d2_2+'!C'+blabla 
    36     pltt, ts_Q.arr - ts_Q2.arr, 't', -4., 4., date1, date2, /REMPLI $ 
    37           , color = 250, small = [1, 2, 2], YTITLE = varunit, TITLE = title, /noerase, _extra = ex 
     35    title = prefix+' (BLACK)  - '+prefix2+' (RED) '+d1_d2_2+'!C'+blabla 
     36    pltt, ts_Q.arr , 't', -4., 4., date1, date2, /REMPLI $ 
     37          , small = [1, 2, 2], YTITLE = varunit, TITLE = title, /noerase, _extra = ex 
     38    pltt, ts_Q2.arr, 't', -4., 4., date1, date2, /REMPLI $ 
     39          , /ov1d, color = 250, small = [1, 2, 2], YTITLE = varunit, TITLE = title, /noerase, _extra = ex 
    3840 
    3941  ENDIF  

  • branches/2013/dev_MERGE_2013/NEMOGCM/CONFIG/ORCA2_LIM/IDL_scripts/std_ts_S.pro

    r3610 r4495  
    6868    if KEYWORD_SET(postscript) then openps, filename+'_3.ps', portrait = 1 
    6969 
    70     title = prefix+' '+d1_d2+' - '+prefix2+' '+d1_d2_2+'!C'+blabla 
     70    title = prefix+' - '+prefix2+' '+d1_d2_2+'!C'+blabla 
    7171    pltt, ts_Sal - ts_Sal2, 't', -0.1, 0.1, date1, date2, /REMPLI $ 
    7272          , COLOR = 250, small = [1, 2, 1], YTITLE = varunit, TITLE = title, /PORTRAIT, window = 2, _extra = ex 
    7373 
    74     title = prefix+' '+d1_d2+' - '+prefix2+' '+d1_d2_2+'!C ZT-plot (0-6000m) '+blabla 
     74    title = prefix+' - '+prefix2+' '+d1_d2_2+'!C ZT-plot (0-6000m) '+blabla 
    7575    pltt, ts_z - ts_z2, 'zt', -0.1, 0.1, INTER = .01, date1, date2, /REMPLI, style = 'so0so' $  
    7676          , small = [1, 2, 2], YTITLE = varunit, TITLE = title, boxzoom = 6000., /NOERASE, _extra = ex 

  • branches/2013/dev_MERGE_2013/NEMOGCM/CONFIG/ORCA2_LIM/IDL_scripts/std_ts_SSH.pro

    r4320 r4495  
    3838    time = tsave   &   IF n_elements(time) NE jpt THEN stop 
    3939 
    40     title = prefix+' '+d1_d2+' - '+prefix2+' '+d1_d2_2+'!C'+blabla 
     40    title = prefix+' (BLACK) - '+prefix2+' (RED) '+d1_d2_2+'!C'+blabla 
    4141    pltt, ts_SSH.arr - ts_SSH2.arr, 't', -10., 10., date1, date2, /REMPLI $ 
    4242          ;SF , color = 250, small = [1, 2, 2], YTITLE = 'cm', TITLE = title, /noerase, _extra = ex 

  • branches/2013/dev_MERGE_2013/NEMOGCM/CONFIG/ORCA2_LIM/IDL_scripts/std_ts_T.pro

    r4320 r4495  
    6868    if KEYWORD_SET(postscript) then openps, filename+'_3.ps', portrait = 1 
    6969 
    70     title = prefix+' '+d1_d2+' - '+prefix2+' '+d1_d2_2+'!C'+blabla 
     70    title = prefix+' - '+prefix2+' '+d1_d2_2+'!C'+blabla 
    7171    pltt, ts_Temp - ts_Temp2, 't', -1., 1., date1, date2, /REMPLI $ 
    7272          , COLOR = 250, small = [1, 2, 1], YTITLE = varunit, TITLE = title, /PORTRAIT, window = 2, _extra = ex 
    7373 
    74     title = prefix+' '+d1_d2+' - '+prefix2+' '+d1_d2_2+'!C ZT-plot (0-6000m) '+blabla 
     74    title = prefix+' - '+prefix2+' '+d1_d2_2+'!C ZT-plot (0-6000m) '+blabla 
    7575    pltt, ts_z - ts_z2, 'zt', -1., 1., inter = .1, date1, date2, /REMPLI, style = 'so0so' $  
    7676          , small = [1, 2, 2], YTITLE = varunit, TITLE = title, boxzoom = 6000., /NOERASE, _extra = ex 
Note: See TracChangeset for help on using the changeset viewer.