Changes in trunk/condmag_from_orca.pro [19:23]

File:

• trunk/condmag_from_orca.pro (modified) (4 diffs)

trunk/condmag_from_orca.pro

@@ -77 +77 @@
 ;
 ; @history
+; reee522 2007-06-06T15:14:24Z rhodes (IRIX64)
+; replace call of initorca2_bab by initocemesh
+; reee522 2007-06-06T14:57:39Z rhodes (IRIX64)
+; correction for DRAKKAR_EXP usage
 ; fplod 2007-03-21T13:23:55Z aedon.locean-ipsl.upmc.fr (Darwin)
 ; create from condmag_on_orca to validate step1 of GEOMAG
@@ -138 +142 @@
                     ENDCASE
                     filename_oce = orcares + '-' + drakkar_exp + '_mesh_hgr.nc'
-                 END
+                 ENDIF ELSE BEGIN
+                    msg = 'eee : unset DRAKKAR_EXP keyword'
+                    ras = report(msg)
+                    msg = 'eee : orcares must be G42 or G70'
+                    ras = report(msg)
+                    RETURN
+                 ENDELSE
               END
       ELSE  : BEGIN
@@ -324 +334 @@
 ;----
 ;
-CASE orcares OF
-  'ORCA2': BEGIN
-              @initorca2_bab
-           END
-  ENDCASE
+initocemesh, orcares, DRAKKAR_EXP = drakkar_exp
 ;
 ;----
@@ -425 +431 @@
 ; ++ tri par ordre alpha , par ordre de pourcentage croissant ou décroissant
 ; +++ d'utilisation
-  profiler,/REPORT 
-;  shut down all profiling (according to 
+  profiler,/REPORT
+;  shut down all profiling (according to
 ; http://www.dfanning.com/code_tips/whyslow.html)
-  profiler, /CLEAR, /SYSTEM 
+  profiler, /CLEAR, /SYSTEM
   profiler, /CLEAR, /RESET
 ENDIF