Changeset 17 for trunk/step1_diff.pro

Timestamp:

03/21/07 14:18:07 (17 years ago)

Author:

pinsard

Message:

remove xxx_oneplot.pro and for_createpro.pro which are not supposed to be here : They interfere with xxx temporary files in myuniquetmpdir

File:

• trunk/step1_diff.pro (modified) (5 diffs)

trunk/step1_diff.pro

@@ -13 +13 @@
 ;
 ; @examples
-; test (for header and delta) 
+; test (for header and delta)
 ; to compute difference between cond_sed in cond_sed_ORCA2.nc and
 ; itself and write it in ginette.nc :
-; rhodes\@reee522$ cd /home/rech/eee/reee522/incas/geomag/geomag_ws
-; rhodes\@reee522$ idl
-; IDL> step1_diff, 'cond_sed_ORCA2.nc', 'cond_sed_ORCA2.nc', 'ginette.nc'
+; $ cd ${GEOMAG}
+; $ idl
+; IDL> file1=getenv('GEOMAG') + '/cond_sed_ORCA2.nc'
+; IDL> file2=getenv('GEOMAG_OD') + '/cond_sed_ORCA2.nc'
+; IDL> step1_diff, file1, file2, 'ginette.nc'
 ; values of delta must be 0 everywhere
-; rhodes\@reee522$ rm ginette.nc
+; $ rm ginette.nc
 ; idem with BR file
-; IDL> step1_diff, 'Br_ORCA2.nc', 'Br_ORCA2.nc', 'ginette.nc'
+; IDL> file1=getenv('GEOMAG') + '/Br_ORCA2.nc'
+; IDL> file2=getenv('GEOMAG_OD') + '/Br_ORCA2.nc'
+; IDL> step1_diff, file1, file2, 'ginette.nc'
 ;
 ; real life
@@ -28 +32 @@
 ; /home/rech/eee/reee522/geomag_d/cond_sed_ORCA2.nc and write it in
 ; cond_sed_ORCA2_diff.nc :
-; rhodes\@reee522$ cd /home/rech/eee/reee522/incas/geomag/geomag_ws
-; rhodes\@reee522$ idl
-; IDL> step1_diff, 'cond_sed_ORCA2.nc', $
-;      '/home/rech/eee/reee522/geomag_d/cond_sed_ORCA2.nc', $
-;      'cond_sed_ORCA2_diff.nc'
-; IDL> step1_diff, 'Br_ORCA2.nc', $
-;      '/home/rech/eee/reee522/geomag_d/Br_ORCA2.nc', $
-;      'Br_ORCA2_diff.nc'
+; $ cd ${GEOMAG}
+; $ idl
+; IDL> file1=getenv('GEOMAG') + '/cond_sed_ORCA2.nc'
+; IDL> file2=getenv('GEOMAG_OD') + '/cond_sed_ORCA2.nc'
+; IDL> step1_diff, file1, file2, 'cond_sed_ORCA2_diff.nc'
+; IDL> file1=getenv('GEOMAG') + '/Br_ORCA2.nc'
+; IDL> file2=getenv('GEOMAG_OD') + '/Br_ORCA2.nc'
+; IDL> step1_diff, file1, file2, 'Br_ORCA2_diff.nc'
 ;
 ; to see the difference, for example
@@ -41 +45 @@
 ; IDL> xxx,'Br_ORCA2_diff.nc'
 ; select xy on plt wigdet
-; 
+;
 ; @history
 ; reee522 2006-12-18T10:38:49Z rhodes (IRIX64)
@@ -53 +57 @@
 ; $Id$
 ;
-PRO step1_diff, file1,file2,file3
+PRO step1_diff, file1, file2, file3
 ;
 ncverbose=1
@@ -102 +106 @@
 checknonzero=where(delta NE 0.,count)
 IF count EQ 0 THEN BEGIN
-   msg = ' iii : delta is zero everywhere'
+   msg = 'iii : delta is zero everywhere'
    PRINT, msg
 ENDIF ELSE BEGIN
-   msg = ' iii : delta is not zero ' + STRING(count)  + ' times'
+   msg = 'iii : delta is not zero ' + STRING(count)  + ' times'
    PRINT, msg
 ENDELSE