Changeset 43 for trunk/src/paper01/fig16

Timestamp:

04/11/11 18:05:51 (13 years ago)

Author:

pinsard

Message:

add minimal header in paper01 IDL files

File:

• trunk/src/paper01/fig16/fig16_timeseries_nino3.pro (modified) (8 diffs)

trunk/src/paper01/fig16/fig16_timeseries_nino3.pro

@@ -1 @@
-;------------------------------------------------------------
+;+
+; .. _fig16_timeseries_nino3.pro:
+;
+; ==========================
+; fig16_timeseries_nino3.pro
+; ==========================
+;
+; DESCRIPTION
+; ===========
+;
+; SEE ALSO
+; ========
+;
+; :ref:`tropflux_profile.sh`
+;
+; EXAMPLES
+; ========
+;
+; ::
+;
+;  IDL> @tropflux_init
+;  IDL> fig16_timeseries_nino3
+;
+; EVOLUTIONS
+; ==========
+;
+; $Id$
+;
+; - fplod 20110411T142955Z aedon.locean-ipsl.upmc.fr (Darwin)
+;
+;   * minimal header
+;
+;-
 pro fig16_timeseries_nino3
 @common
-;------------------------------------------------------------
 
 reinitplt, /z,/invert
@@ -8 +39 @@
 
 openps, FILENAME = 'idl.ps'
-;------------------------------------------------------------
 date1=19940101 & date2=20071231
 box=[240,330,-5,5]
@@ -18 +48 @@
 restore, filename="/Users/pkb/work/MY_SAXO/netflux_nino3_1989_2007.idl"
 help, trop, oafl, nce2, era, nce, sst
-;------------------------------------------------------------------------------------------------------------------------
 ;; creating climatology
 ny=(2007-1994)+1
@@ -99 +128 @@
 trop_ano=trop_ano-trop_hf & oafl_ano=oafl_ano-oafl_hf
 nce2_ano=nce2_ano-nce2_hf & era_ano=era_ano-era_hf
-nce_ano=nce_ano-nce_hf    
+nce_ano=nce_ano-nce_hf
 
 nsmooth=30.
@@ -127 +156 @@
 pltt, ts_smooth(nce_ano,nsmooth,/nan), "t",/ov1d, color=65
 
-;----------------------------------------------------------
 closeps
 fig='fig16_timeseries_nino3.ps'
@@ -134 +162 @@
 return
 end
-;--------------------------------------------------------------------------
 function x_site_location, site
     n1=strpos(site, 's')
@@ -149 +176 @@
 return, float(x)
 end
-;--------------------------------------------------------------------------
 function y_site_location, site
     n1=strpos(site, 'e')
@@ -175 +201 @@
 return,float(y)
 end
-
-;--------------------------------------------------------------------------
-