Changeset 89 for trunk

Timestamp:

04/16/08 22:20:14 (16 years ago)

Author:

ericg

Message:

Improved ORCA05 vertical grid choice and included L46 Drakkar config. (needs file meshmaskORAC05_L46.nc)

File:

• trunk/procs/meshes/mesh_orca.pro (modified) (3 diffs)

trunk/procs/meshes/mesh_orca.pro

@@ -49 +49 @@
       'L300': BEGIN & izminmesh  =0 & izmaxmesh  =300 & END 
       'L30': BEGIN & izminmesh  =0 & izmaxmesh  =30 & END 
+      'L46': BEGIN & izminmesh  =0 & izmaxmesh  =45 & END 
+         ELSE: BEGIN 
+            print, '   **** vertical config unknown for ORCA: ',v_config 
+         END 
    ENDCASE 
 ;
@@ -121 +125 @@
       'ORCA05':  BEGIN
          mesmsk = 'micromeshmaskORCA05.nc'
-         ;;cmd_grid =  'ncdf_meshread, sm_file, GLAMBOUNDARY = glamboundary_box'
+         CASE v_config of
+            'L46': mesmsk = 'meshmaskORCA05_L46.nc'
+            'L30': mesmsk = 'meshmaskORCA05_L30.nc'
+            ELSE: BEGIN 
+               print, '   **** vertical config unknown for ORCA05: ',v_config 
+            END 
+         ENDCASE 
          cmd_grid =  'ncdf_meshread, sm_file, GLAMBOUNDARY = glamboundary_box, PERIODIC = periodic'
       END
@@ -135 +145 @@
                   
                   cmd_grid = 'ncdf_meshread, sm_file, GLAMBOUNDARY = glamboundary_box, PERIODIC=periodic'
-                  ;;cmd_grid = 'ncdf_meshread, sm_file, GLAMBOUNDARY =
-                  ;;glamboundary_box, onearth = onearth'
                ENDIF ELSE BEGIN 
-                  ;;cmd_grid = 'ncdf_meshread, sm_file, GLAMBOUNDARY = glamboundary_box
                   cmd_grid = 'ncdf_meshread, sm_file, GLAMBOUNDARY = glamboundary_box, SHIFT=shift, PERIODIC=periodic'
                ENDELSE 
             END 
             'L300': BEGIN
-               mesmsk = 'meshmask.orca.2d.L300.nc'
-               ;;cmd_grid = 'ncdf_meshread, sm_file, GLAMBOUNDARY = glamboundary_box'
+               mesmsk = 'meshmask.orca.2d.L300.nc'
                cmd_grid = 'ncdf_meshread, sm_file, GLAMBOUNDARY = glamboundary_box, PERIODIC=periodic'
             END 
+            ELSE: BEGIN 
+               print, '   **** vertical config unknown for ORCA2: ',v_config 
+            END 
          ENDCASE 
       END 
       'ORCA_R4': BEGIN
-         mesmsk = 'meshmask_orca4.nc'
-         ;;cmd_grid = 'ncdf_meshread, sm_file, GLAMBOUNDARY = glamboundary_box'
+         mesmsk = 'meshmask_orca4.nc'
          cmd_grid = 'ncdf_meshread, sm_file, GLAMBOUNDARY = glamboundary_box, PERIODIC=periodic' 
       END