Changeset 43 for trunk/src/paper01/fig14/coare_validation_net_1992_93_all_v10.pro

Timestamp:

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

Author:

pinsard

Message:

add minimal header in paper01 IDL files

File:

• trunk/src/paper01/fig14/coare_validation_net_1992_93_all_v10.pro (modified) (6 diffs)

trunk/src/paper01/fig14/coare_validation_net_1992_93_all_v10.pro

@@ +1 @@
+;+
+; .. _coare_validation_net_1992_93_all_v10.pro:
+;
+; ========================================
+; coare_validation_net_1992_93_all_v10.pro
+; ========================================
+;
+; DESCRIPTION
+; ===========
+;
+; SEE ALSO
+; ========
+;
+; :ref:`tropflux_profile.sh`
+;
+; EXAMPLES
+; ========
+;
+; ::
+;
+;  IDL> @tropflux_init
+;  IDL> coare_validation_net_1992_93_all_v10
+;
+; EVOLUTIONS
+; ==========
+;
+; $Id$
+;
+; - fplod 20110411T142955Z aedon.locean-ipsl.upmc.fr (Darwin)
+;
+;   * minimal header
+;
+;-
 pro coare_validation_net_1992_93_all_v10
 @common
-;------------------------------------------------------------
 reinitplt, /z,/invert
 key_portrait = 1
@@ -7 +39 @@
 
 openps, FILENAME = 'idl.ps'
-;------------------------------------------------------------
 ; partie a changer
-;------------------------------------------------------------
 
 box=[155.5, 156.5, -2, -1]
@@ -143 +173 @@
 shf4=read_ncdf('shf',st4,en4,file=file,/nostr, box=box) & shf4=grossemoyenne(shf4, "xy",/nan, box=box) & shf4=reform(shf4)
 
-net1=swr1+lwr1+lhf1+shf1 & net2=swr2+lwr2+lhf2+shf2 
+net1=swr1+lwr1+lhf1+shf1 & net2=swr2+lwr2+lhf2+shf2
 net3=swr3+lwr3+lhf3+shf3 & net4=swr4+lwr4+lhf4+shf4
 
@@ -278 +308 @@
 
 help, net, era, trop, oaf, nce1, nce2, olr
-;------------------------------------------------------------
 
 statistics, net, era, $
@@ -310 +339 @@
 cstat_olr=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)')
 
-;------------------------------------------------------------
 
 splot, net, era, charsize=1.1, title='Net Flux - COARE Vs ERAI', $
@@ -343 +371 @@
 
 stop
-;------------------------------------------------------------
 closeps
 fig="coare_validation_net_1992_93_all_v11.ps"
 spawn, 'mv '+psdir+'idl.ps '+cpsdir+fig
 spawn, 'gv '+cpsdir+fig
-;------------------------------------------------------------
 return
 end
-