Changeset 4
- Timestamp:
- 11/26/07 16:35:03 (17 years ago)
- Location:
- trunk/procs
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/procs/meshes/mesh_orca.pro
r3 r4 16 16 17 17 CASE h_config OF 18 'ORCA05': begin 19 IF keyword_set(WHOLE_ARRAYS) THEN BEGIN 20 ixminmesh =0 & ixmaxmesh =721 21 iyminmesh =0 & iymaxmesh =510 22 ENDIF ELSE BEGIN 23 ixminmesh =2 & ixmaxmesh =720 24 iyminmesh =0 & iymaxmesh =510 25 ENDELSE 26 END 18 27 'ORCA_R2': begin 19 28 IF keyword_set(WHOLE_ARRAYS) THEN BEGIN … … 108 117 109 118 CASE h_config OF 119 'ORCA05': BEGIN 120 mesmsk = 'micromeshmaskORCA05.nc' 121 cmd_grid = 'ncdf_meshread, sm_file, GLAMBOUNDARY = glamboundary_box' 122 END 110 123 'ORCA_R2': BEGIN 111 124 CASE v_config of … … 187 200 IF no_lon_shift EQ 0 THEN BEGIN 188 201 CASE h_config OF 202 'ORCA05': BEGIN 203 ; read offset 204 205 key_offset = [2, 0, 0] 206 ; 207 ; indice i pour grille j moyenne zonale 208 ; 209 diaznl_idx = 100-1 210 211 END 189 212 'ORCA_R2': BEGIN 190 213 ; read offset … … 206 229 diaznl_idx = 25-1 207 230 208 END 231 END 232 209 233 ENDCASE 210 234 ENDIF -
trunk/procs/nc_read.pro
r2 r4 453 453 ENDIF ELSE BEGIN 454 454 ; ocean = always mask 455 idx = where(tmask EQ 0)456 lec_data(idx) = 1.e20455 ; idx = where(tmask EQ 0) 456 ; lec_data(idx) = 1.e20 457 457 CASE vert_type OF 458 458 'z': BEGIN
Note: See TracChangeset
for help on using the changeset viewer.