Changeset 3999 for branches/2013/dev_r3918_CNRS_idl_plots/NEMOGCM/CONFIG/ORCA2_LIM/IDL_scripts/std_ts_ICE_Vol.pro

Timestamp:

2013-08-06T13:39:29+02:00 (11 years ago)

Author:

flavoni

Message:

update idl scripts for ORCA2 configurations, see ticket #1115

File:

• branches/2013/dev_r3918_CNRS_idl_plots/NEMOGCM/CONFIG/ORCA2_LIM/IDL_scripts/std_ts_ICE_Vol.pro (modified) (7 diffs)

branches/2013/dev_r3918_CNRS_idl_plots/NEMOGCM/CONFIG/ORCA2_LIM/IDL_scripts/std_ts_ICE_Vol.pro

@@ -26 +26 @@
   v2_Ithick = getenv('VAR2_Ithick')  &   prefix2 = getenv('V2It_PREF')    &   suffix2 = getenv('V2It_SUFF')
 
-; get ice VOLUME climatology info
-;;
-;  std_file_ice =  isafile(getenv('FILE_ICE'), title = 'ICE Extent Climatology', iodir = std_iodir_climato)
-;
-;  time_ice = ncdf_lec( std_file_ice, VAR='time' )
-;  time_ice = (time_ice - FLOOR(time_ice) ) * 12
-;  time_ice = round(time_ice) ; round to nearest integer 
-;  t1 = where(time_ice eq 0)
-;  t1 = t1[0] ;  jannuary
-;  t2 = where(time_ice eq 11, count)
-;  t2 = t2[count-1] ; last day of december
-;  nyear = (t2-t1+1)/12
-;  vICE_Ithick_NH = read_arr2d(std_file_ice, getenv('VAR1_Ithick'), t1, t2 )
-;  vICE_Ithick_SH = read_arr2d(std_file_ice, getenv('VAR_ICE_EXT_SH'), t1, t2 )
-;
-;  vICE_area_NH = read_arr2d(std_file_ice, getenv('VAR_ICE_area_NH'), t1, t2 )
-;  vICE_area_SH = read_arr2d(std_file_ice, getenv('VAR_ICE_area_SH'), t1, t2 )
-;  
   cdti3 = string(cnt, format = '(i3.3)')
   print, cdti3 + ') ' + blabla
-  filename = cdti3 + '_ts_ICE_'+prefix
+  filename = cdti3 + '_ts_ICE_Vol'+prefix
   if prefix NE prefix2 then filename = filename + '_'+prefix2
   if KEYWORD_SET(postscript) then openps, filename+'.ps', portrait = 1
+;
   d1_d2 = '('+strtrim(date1, 1)+' - '+strtrim(date2, 1)+')'
+;
   iodir = std_iodir_data
   ; ICE Area(=Surface) in NORTH Hemisphere
@@ -58 +42 @@
   ICE_vol_N = (ICE_N.arr < 1.e10 ) * ( ICE_thick.arr < 1.e10)  ; limited mask value of 1.e20, because 1.e20 * 1.e20 = inf for idl
   ICE_vol_N = grossemoyenne(ICE_vol_N, 'xy', /integration, mask2d = masknp)
+  ;
   if jpt mod 12 ne 0 then stop
   nyr=jpt/12.
@@ -63 +48 @@
   ICE_vol_N = total(ICE_vol_N,2)/nyr
   ICE_vol_N = {arr:ICE_vol_N * 1.e-9, unit : '10^9 Km^3'}
+  ;
   ;ICE Area(=Surface) in SOUTH Hemisphere
   domdef, 0, jpi-1, -90, -30, /xindex 
@@ -76 +62 @@
   ICE_vol_S = {arr:ICE_vol_S * 1.e-9, unit : '10^9 Km^3'}
   ;
-  title = 'Northern Hemisphere'+'!C'+prefix+' '+d1_d2+'!C'+'Global Annual Mean Ice Volume (Black SOLID simulation) + Observation (dashed)'
+  title = 'Northern Hemisphere'+'!C'+prefix+' '+d1_d2+'!C'+'Global Annual Mean Ice Volume (Black SOLID simulation)'
   jpt=12
   time=julday(1,15,1900)+30*lindgen(12)
   pltt, ICE_vol_N, 't', 0., 15., 19000101, 19001231, /REMPLI, /PORTRAIT,MIN = 0., MAX = 30000. $
-        , small = [1, 2, 1], YTITLE = '10^9 Km^3 ', TITLE = title, _extra = ex
+        , small = [1, 2, 1], YTITLE = 'Km^3 ', TITLE = title, _extra = ex
 ;
-  title ='Southern Hemisphere' +'!C'+prefix+' '+d1_d2+' - '+'!C'+'Global Annual Mean Ice Volume (Black SOLID simulation) + Observation (dashed)'
+  title ='Southern Hemisphere' +'!C'+prefix+' '+d1_d2+' - '+'!C'+'Global Annual Mean Ice Volume (Black SOLID simulation)'
   pltt, ICE_vol_S, 't', 0., 15.,19000101 ,19001231 , /REMPLI, /NOERASE , MIN = 0., MAX = 11000. $
-        , small = [1, 2, 2], YTITLE = '10^9 Km^3 ', TITLE = title, _extra = ex
+        , small = [1, 2, 2], YTITLE = 'Km^3 ', TITLE = title, _extra = ex
 ;
-
   htmltxt = [ htmltxt, '<hr>'+blabla, '<br><img width="80%" src='+filename+'.png  />  ' ]
   if KEYWORD_SET(postscript) then closeps
@@ -96 +81 @@
     domdef, 0, jpi-1, 30, 90, /xindex
     ;ICE Area(=Surface) in NORTH Hemisphere
-    ICE_N2 = rseries_ncdf(vICE2, date1, date2, prefix, suffix, FIRSTONLY = 1 - allrec)
-    ICE_thick2 = rseries_ncdf(v2_Ithick, date1, date2, prefix, suffix, FIRSTONLY = 1 - allrec)
+    ICE_N2 = rseries_ncdf(vICE2, date1_2, date2_2, prefix2, suffix2, FIRSTONLY = 1 - allrec)
+    ICE_thick2 = rseries_ncdf(v2_Ithick, date1_2, date2_2, prefix2, suffix2, FIRSTONLY = 1 - allrec)
     ; Volume = Area(=Surface) * Thickness
     ICE_vol_N2 = (ICE_N2.arr < 1.e10 ) * ( ICE_thick2.arr < 1.e10) ; limited mask value of 1.e20, because 1.e20 * 1.e20 = inf for idl
@@ -109 +94 @@
     ;ICE Area(=Surface) in SOUTH Hemisphere
     domdef, 0, jpi-1, -90, -30, /xindex 
-    ICE_S2 = rseries_ncdf(vICE2, date1, date2, prefix, suffix, FIRSTONLY = 1 - allrec)
-    ICE_thick2 = rseries_ncdf(v2_Ithick, date1, date2, prefix, suffix, FIRSTONLY = 1 - allrec)
+    ICE_S2 = rseries_ncdf(vICE2, date1_2, date2_2, prefix2, suffix2, FIRSTONLY = 1 - allrec)
+    ICE_thick2 = rseries_ncdf(v2_Ithick, date1_2, date2_2, prefix2, suffix2, FIRSTONLY = 1 - allrec)
     ; Volume = Area(=Surface) * Thickness
     ICE_vol_S2 = (ICE_S2.arr < 1.e10 ) * ( ICE_thick.arr < 1.e10) ; limited mask value of 1.e20, because 1.e20 * 1.e20 = inf for idl
@@ -120 +105 @@
     ICE_vol_S2 = {arr:ICE_vol_S2 * 1.e-9, unit : '10^3 Km^3'}
 
-    time = tsave   &   IF n_elements(time) NE jpt THEN stop
+   ; time = tsave   &   IF n_elements(time) NE jpt THEN stop
 
-    if KEYWORD_SET(postscript) then openps, filename+'.ps', portrait = 1
+    if KEYWORD_SET(postscript) then openps, filename+'_2.ps', portrait = 1
 
-    title = prefix+' '+d1_d2+' - '+prefix2+' '+d1_d2_2+'!C'+'Global Annual Mean Ice Volume (North. Hemisp.)'
-    pltt, ICE_vol_N.arr - ICE_vol_N2.arr, 't', -2., 2., date1, date2, /REMPLI, /PORTRAIT, window = 2 $
-          , COLOR = 250, small = [1, 2, 1], YTITLE = '10^9 Km^3 ', TITLE = title, _extra = ex
-   ;
-    title = prefix+' '+d1_d2+' - '+prefix2+' '+d1_d2_2+'!C'+'Global Annual Mean Ice Area (South. Hemisp.)'
-    pltt, ICE_vol_S.arr - ICE_vol_S2.arr, 't', -2., 2., date1, date2, /REMPLI, /NOERASE $
-          , COLOR = 250, small = [1, 2, 2], YTITLE = '10^9 Km^3 ', TITLE = title, _extra = ex    
+    title = 'Northern Hemisphere'+'!C'+'Global Annual Mean Ice Volume'+prefix+' - '+prefix2+' '+d1_d2_2
+    jpt=12
+    time=julday(1,15,1900)+30*lindgen(12)
+    pltt, ICE_vol_N.arr - ICE_vol_N2.arr, 't', -125., -60., 19000101, 19001231, /REMPLI, /PORTRAIT, window = 2 $
+          , small = [1, 2, 1], YTITLE = 'Km^3 ', TITLE = title, _extra = ex
+    ;
+    title = 'Southern Hemisphere'+'!C'+'Global Annual Mean Ice Volume'+prefix+' - '+prefix2+' '+d1_d2_2
+    pltt, ICE_vol_S.arr - ICE_vol_S2.arr, 't', -620., -10., 19000101, 19001231, /REMPLI, /NOERASE $
+          , small = [1, 2, 2], YTITLE = 'Km^3 ', TITLE = title, _extra = ex   
 
-    htmltxt = [ htmltxt, '<hr>'+blabla, '<br><img width="80%" src='+filename+'.png  />  ' ]
+    htmltxt = [ htmltxt, '<hr>'+blabla, '<br><img width="80%" src='+filename+'_2.png  />  ' ]
     if KEYWORD_SET(postscript) then closeps