Changeset 4

Timestamp:

11/26/07 16:35:03 (16 years ago)

Author:

kolasinski

Message:

Add ORCA05 config and bugfix in nc_read

Location:

trunk/procs

Files:

• meshes/mesh_orca.pro (modified) (4 diffs)
• nc_read.pro (modified) (1 diff)

trunk/procs/meshes/mesh_orca.pro

@@ -16 +16 @@
 
    CASE h_config OF
+      'ORCA05': begin
+         IF keyword_set(WHOLE_ARRAYS) THEN BEGIN
+            ixminmesh  =0 & ixmaxmesh  =721
+            iyminmesh  =0 & iymaxmesh  =510
+         ENDIF ELSE BEGIN   
+            ixminmesh  =2 & ixmaxmesh  =720
+            iyminmesh  =0 & iymaxmesh  =510
+         ENDELSE  
+      END 
       'ORCA_R2': begin
          IF keyword_set(WHOLE_ARRAYS) THEN BEGIN
@@ -108 +117 @@
 
    CASE h_config OF
+      'ORCA05':  BEGIN
+         mesmsk = 'micromeshmaskORCA05.nc'
+         cmd_grid =  'ncdf_meshread, sm_file, GLAMBOUNDARY = glamboundary_box'
+      END
       'ORCA_R2': BEGIN
          CASE v_config of
@@ -187 +200 @@
    IF no_lon_shift EQ 0 THEN BEGIN
       CASE h_config OF
+         'ORCA05': BEGIN
+; read offset
+            
+            key_offset = [2, 0, 0]
+;
+; indice i pour grille j moyenne zonale
+;
+            diaznl_idx = 100-1
+            
+         END 
          'ORCA_R2': BEGIN
 ; read offset
@@ -206 +229 @@
             diaznl_idx = 25-1
             
-         END 
+         END
+         
       ENDCASE 
    ENDIF

trunk/procs/nc_read.pro

@@ -453 +453 @@
                ENDIF ELSE BEGIN
                   ; ocean = always mask
-                  idx = where(tmask EQ 0)
-                  lec_data(idx) = 1.e20
+                  ; idx = where(tmask EQ 0)
+                  ; lec_data(idx) = 1.e20
                   CASE vert_type OF
                      'z': BEGIN