Changeset 131 for trunk/SRC/Tests

Timestamp:

07/06/06 16:52:56 (18 years ago)

Author:

pinsard

Message:

improvements of ReadWrite/?*.pro header

Location:

trunk/SRC/Tests

Files:

• tst_basic.pro (modified) (2 diffs, 2 props)
• tst_initlev.pro (modified) (1 diff, 2 props)
• tst_initlev_index.pro (modified) (1 diff, 2 props)
• tst_initlev_index_stride.pro (modified) (1 diff, 2 props)
• tst_initlev_stride.pro (modified) (1 diff, 2 props)
• tst_initorca05.pro (modified) (1 diff, 2 props)
• tst_initorca05_index.pro (modified) (1 diff, 2 props)
• tst_initorca05_index_stride.pro (modified) (1 diff, 2 props)
• tst_initorca05_short.pro (modified) (1 diff, 2 props)
• tst_initorca05_short_stride.pro (modified) (1 diff, 2 props)
• tst_initorca05_stride.pro (modified) (1 diff, 2 props)
• tst_initorca2.pro (modified) (1 diff, 2 props)
• tst_initorca2_index.pro (modified) (1 diff, 2 props)
• tst_initorca2_index_stride.pro (modified) (1 diff, 2 props)
• tst_initorca2_short.pro (modified) (1 diff, 2 props)
• tst_initorca2_short_stride.pro (modified) (1 diff, 2 props)
• tst_initorca2_stride.pro (modified) (1 diff, 2 props)
• tst_plt.pro (modified) (3 diffs, 2 props)
• tst_pltt.pro (modified) (3 diffs, 2 props)
• tst_pltz.pro (modified) (6 diffs, 2 props)

trunk/SRC/Tests/tst_basic.pro

@@ +1 @@
+;+
+; @file_comments
+; figure 1: basics plots
+; plot and contours
+;
+; @history
+; Sebastien Masson may 2005
+;
+; @version $Id$
+;-
 PRO tst_basic
 ;
-; figure 1: basics plots
-;
 ; 1) plot
-;
 ;
   compile_opt idl2, strictarrsubs
@@ -27 +34 @@
   contour, z, /overplot, c_label = rebin([1, 0], 2, n), levels = n*ind $
            , c_charthick = 2, c_charsize = 1.5, c_colors = 250*ind
-           
   return
 end

trunk/SRC/Tests/tst_initlev.pro

@@ +1 @@
+;+
+; @history
+; Sebastien Masson
+;
+; @version $Id$
+;-
 file = 'Levitus98_1m_01_12_Temperature_Pot_1x1.nc'
 initncdf, file, glamboundary = [20, 380], useasmask = 'votemper' $

trunk/SRC/Tests/tst_initlev_index.pro

@@ +1 @@
+;+
+; @history
+; Sebastien Masson
+;
+; @version $Id$
+;-
 file = 'Levitus98_1m_01_12_Temperature_Pot_1x1.nc'
 initncdf, file, glamboundary = [20, 380], useasmask = 'votemper' $

trunk/SRC/Tests/tst_initlev_index_stride.pro

@@ +1 @@
+;+
+; @history
+; Sebastien Masson
+;
+; @version $Id$
+;-
 file = 'Levitus98_1m_01_12_Temperature_Pot_1x1.nc'
 initncdf, file, glamboundary = [20, 380], useasmask = 'votemper' $

trunk/SRC/Tests/tst_initlev_stride.pro

@@ +1 @@
+;+
+; @history
+; Sebastien Masson
+;
+; @version $Id$
+;-
 file = 'Levitus98_1m_01_12_Temperature_Pot_1x1.nc'
 initncdf, file, glamboundary = [20, 380], useasmask = 'votemper' $

trunk/SRC/Tests/tst_initorca05.pro

@@ +1 @@
+;+
+; @history
+; Sebastien Masson
 ;
+; @version $Id$
+;-
 @cm_4mesh
 @cm_4cal

trunk/SRC/Tests/tst_initorca05_index.pro

@@ -1 @@
-;
+;+
+; @file_comments
 ; definition of the domain on ORCA2 but with i/j index instead of
 ; longitude/latitude
 ;
-; deferent possibilities are proposed
+; different possibilities are proposed
+; @history
+; Sebastien Masson
+;
+; @version $Id$
+;-
 ;
 ; 1) definition with a file

trunk/SRC/Tests/tst_initorca05_index_stride.pro

@@ -1 @@
-;
+;+
+; @file_comments
 ; definition of the domain on ORCA2 but with i/j index instead of
 ; longitude/latitude
 ;
-; deferent possibilities are proposed
+; different possibilities are proposed
 ;
+; @history
+; Sebastien Masson
+;
+; @version $Id$
+;-
 ; 1) definition with a file
 ;

trunk/SRC/Tests/tst_initorca05_short.pro

@@ +1 @@
+;+
+; @history
+; Sebastien Masson
+;
+; @version $Id$
+;-
 file = 'Levitus98_1m_01_12_Temperature_Pot_ORCA05.nc'
 initncdf, file, glamboundary = [20, 380], xminmesh = 1, xmaxmesh = -1 $

trunk/SRC/Tests/tst_initorca05_short_stride.pro

@@ +1 @@
+;+
+; @history
+; Sebastien Masson
+;
+; @version $Id$
+;-
 file = 'Levitus98_1m_01_12_Temperature_Pot_ORCA05.nc'
 initncdf, file, glamboundary = [20, 380], xminmesh = 1, xmaxmesh = -1 $

trunk/SRC/Tests/tst_initorca05_stride.pro

@@ +1 @@
+;+
+; @history
+; Sebastien Masson
+;
+; @version $Id$
+;-
 ;
 @cm_4mesh

trunk/SRC/Tests/tst_initorca2.pro

@@ +1 @@
+;+
+; @history
+; Sebastien Masson
+;
+; @version $Id$
+;-
 ;
 @cm_4mesh

trunk/SRC/Tests/tst_initorca2_index.pro

@@ -1 @@
-;
+;+
+; @file_comments
 ; definition of the domain on ORCA2 but with i/j index instead of
 ; longitude/latitude
 ;
-; deferent possibilities are proposed
+; different possibilities are proposed
+; @history
+; Sebastien Masson
 ;
+; @version $Id$
+;-
 ;
 ; 1) definition with a file

trunk/SRC/Tests/tst_initorca2_index_stride.pro

@@ +1 @@
+;+
 ;
+; @file_comments
 ; definition of the domain on ORCA2 but with i/j index instead of
 ; longitude/latitude
 ;
-; deferent possibilities are proposed
+; different possibilities are proposed
 ;
+; @history
+; Sebastien Masson
+;
+; @version $Id$
+;-
 ;
 ; 1) definition with a file

trunk/SRC/Tests/tst_initorca2_short.pro

@@ +1 @@
+;+
+; @history
+; Sebastien Masson
+;
+; @version $Id$
+;-
 file = 'Levitus98_1m_01_12_Temperature_Pot_ORCA2.nc'
 initncdf, file, glamboundary = [20, 380], xminmesh = 1, xmaxmesh = 180 $

trunk/SRC/Tests/tst_initorca2_short_stride.pro

@@ +1 @@
+;+
+; @history
+; Sebastien Masson
+;
+; @version $Id$
+;-
 file = 'Levitus98_1m_01_12_Temperature_Pot_ORCA2.nc'
 initncdf, file, glamboundary = [20, 380], xminmesh = 1, xmaxmesh = 180 $

trunk/SRC/Tests/tst_initorca2_stride.pro

@@ +1 @@
+;+
+; @history
+; Sebastien Masson
+;
+; @version $Id$
+;-
 ;
 @cm_4mesh

trunk/SRC/Tests/tst_plt.pro

@@ +1 @@
+;+
+; @keyword IMAGE
+;
+; @history
+; Sebastien Masson
+;
+; @version $Id$
+;-
 PRO tst_plt, IMAGE = image
 ; commons
@@ -49 +57 @@
 ; zoom
   IF key_onearth THEN box = [40, 375, -20, 20] $
-  ELSE box = [jpi/4, 3*jpi/4, jpj/4, 3*jpj/4] 
+  ELSE box = [jpi/4, 3*jpi/4, jpj/4, 3*jpj/4]
   plt, temp, boxzoom = box, /landscape
   if keyword_set(image) then saveimage, 'tst_plt_'+image+'_'+string(cnt, format='(i2.2)')+'.png', /png $
@@ -57 +65 @@
 ; projections
   IF key_onearth THEN BEGIN
-; 
+;
     plt, temp, boxzoom = [20, 380, 60, 90], /stereo, map = [90, 0, 0], /portrait
     if keyword_set(image) then saveimage, 'tst_plt_'+image+'_'+string(cnt, format='(i2.2)')+'.png', /png $

trunk/SRC/Tests/tst_pltt.pro

@@ +1 @@
+;+
+; @keyword IMAGE
+;
+; @history
+; Sebastien Masson
+;
+; @version $Id$
+;-
 PRO tst_pltt, IMAGE = image
 ; commons
@@ -50 +58 @@
 ; equatorial plot
 ;
-  IF key_onearth THEN BEGIN 
+  IF key_onearth THEN BEGIN
     a = abs(gphit[0, *])
     yind = where(a EQ min(a))
     domdef, 20, 380, yind[0], yind[n_elements(yind)-1] $
       , gdept[10 < (jpk-1)], gdept[10 < (jpk-1)], gridtype = 'T', /yindex
-  ENDIF ELSE BEGIN 
+  ENDIF ELSE BEGIN
     domdef, min(glamt), max(glamf), jpj/2, jpj/2 $
       , gdept[10 < (jpk-1)], gdept[10 < (jpk-1)], gridtype = 'T', /yindex
-  ENDELSE 
+  ENDELSE
   temp = read_ncdf('votemper', 00101, 01231, file = file)
   IF key_forgetold THEN help, temp.arr ELSE help, temp.tab
@@ -68 +76 @@
 ; yt plot along the column that contain the largest latitude
 ;
-  IF key_onearth THEN BEGIN 
+  IF key_onearth THEN BEGIN
     ind = where(gphit EQ max(gphit))
     ind = ind[0] MOD jpi
     domdef, ind, ind, -90, 90, gdept[0], gdept[0], gridtype = 'T', /xindex
-  ENDIF ELSE BEGIN 
+  ENDIF ELSE BEGIN
     domdef, jpi/2, jpi/2, min(gphit), max(gphif), gdept[0], gdept[0], gridtype = 'T', /xindex
-  ENDELSE 
+  ENDELSE
 
   temp = read_ncdf('votemper', 00101, 01231, file = file)

trunk/SRC/Tests/tst_pltz.pro

@@ +1 @@
+;+
+; @keyword IMAGE
+
+; @history
+; Sebastien Masson
+;
+; @version $Id$
+;-
 PRO tst_pltz, IMAGE = image
 ; commons
@@ -24 +32 @@
   temp = read_ncdf('votemper', 00101, 00131, file = file)
   IF key_forgetold THEN help, temp.arr ELSE help, temp.tab
-; 
+;
   pltz, temp, /portrait
   if keyword_set(image) then saveimage, 'tst_pltz_'+image+'_'+string(cnt, format = '(i2.2)')+'.png', /png $
@@ -67 +75 @@
 ; yt plot along the column that contain the largest latitude
 ;
-  IF key_onearth THEN BEGIN 
+  IF key_onearth THEN BEGIN
     ind = where(gphit EQ max(gphit))
     ind = ind[0] MOD jpi
     domdef, ind, ind, -90, 90, 0, max(gdept), gridtype = 'T', /xindex
-  ENDIF ELSE BEGIN 
+  ENDIF ELSE BEGIN
     domdef, jpi/2, jpi/2, min(gphit), max(gphif), 0, max(gdept), gridtype = 'T', /xindex
-  ENDELSE 
+  ENDELSE
 
   temp = read_ncdf('votemper', 00101, 01231, file = file)
@@ -106 +114 @@
 ; comparison between real section and false oblique sections
 ;
-  IF (where(gphit EQ 0))[0] NE -1 THEN BEGIN 
+  IF (where(gphit EQ 0))[0] NE -1 THEN BEGIN
     IF key_onearth THEN box = [20, 380, 0, 0, 0, 6000] $
     ELSE box = [0, jpi-1, jpj/2, jpj/2, 0, 6000]
@@ -113 +121 @@
     pltz, temp, boxzoom = [6000], /portrait, small = [1, 2, 1] $
           , zoom = 500, zratio = .5
-    
+
     IF key_onearth THEN endpoints = [20, 0, 380, 0] $
     ELSE endpoints = [0, jpj/2, jpi-1, jpj/2]
@@ -121 +129 @@
           , zoom = 500, zratio = .5 $
           , small = [1, 2, 2], /noerase
-    
+
     if keyword_set(image) then saveimage, 'tst_pltz_'+image+'_'+string(cnt, format = '(i2.2)')+'.png', /png
     cnt = cnt + 1
-  ENDIF 
-  
+  ENDIF
+
   return
 end