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

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
@@ -142 +138 @@
                     ENDCASE
                     filename_oce = orcares + '-' + drakkar_exp + '_mesh_hgr.nc'
-                 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
               END
       ELSE  : BEGIN
@@ -334 +324 @@
 ;----
 ;
-initocemesh, orcares, DRAKKAR_EXP = drakkar_exp
+CASE orcares OF
+  'ORCA2': BEGIN
+              @initorca2_bab
+           END
+  ENDCASE
 ;
 ;----
@@ -431 +425 @@
 ; ++ 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