Changeset 43 for trunk/src/paper01/fig15

Timestamp:

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

Author:

pinsard

Message:

add minimal header in paper01 IDL files

File:

• trunk/src/paper01/fig15/fig15_timeseries_mjo.pro (modified) (7 diffs)

trunk/src/paper01/fig15/fig15_timeseries_mjo.pro

@@ -1 @@
-;------------------------------------------------------------
+;+
+; .. _fig15_timeseries_mjo.pro:
+;
+; ========================
+; fig15_timeseries_mjo.pro
+; ========================
+;
+;
+; DESCRIPTION
+; ===========
+;
+; SEE ALSO
+; ========
+;
+; :ref:`tropflux_profile.sh`
+;
+; EXAMPLES
+; ========
+;
+; ::
+;
+;  IDL> @tropflux_init
+;  IDL> fig15_timeseries_mjo
+;
+; EVOLUTIONS
+; ==========
+;
+; $Id$
+;
+; - fplod 20110411T142955Z aedon.locean-ipsl.upmc.fr (Darwin)
+;
+;   * minimal header
+;
+;-
 pro fig15_timeseries_mjo
 @common
-;------------------------------------------------------------
 
 reinitplt, /z,/invert
@@ -8 +40 @@
 
 openps, FILENAME = 'idl.ps'
-;------------------------------------------------------------
 date1=20071001 & date2=20080331
 date1=19990101 & date2=20021231
@@ -79 +110 @@
 
 save, olr,trop, nce2, era, nce, filename="netflux_sctr_1999_2002.idl"
-;------------------------------------------------------------------------------------------------------------------------
 
 trop_hf=trop*0. & nce2_hf=trop*0.
@@ -130 +160 @@
 pltt, nce_hf, "t",/ov1d, color=50
 
-;----------------------------------------------------------
 closeps
 fig='fig15_timeseries_mjo.ps'
@@ -137 +166 @@
 return
 end
-;--------------------------------------------------------------------------
+
 function x_site_location, site
     n1=strpos(site, 's')
@@ -152 +181 @@
 return, float(x)
 end
-;--------------------------------------------------------------------------
+
 function y_site_location, site
     n1=strpos(site, 'e')
@@ -178 +207 @@
 return,float(y)
 end
-
-;--------------------------------------------------------------------------
-