Changeset 17 for trunk/initorca2_bab.pro


Ignore:
Timestamp:
03/21/07 14:18:07 (17 years ago)
Author:
pinsard
Message:

remove xxx_oneplot.pro and for_createpro.pro which are not supposed to be here : They interfere with xxx temporary files in myuniquetmpdir

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/initorca2_bab.pro

    r2 r17  
     1; + 
     2; @file_comments 
     3; initialisation on ORCA2 grid 
    14; 
     5; @history 
     6; F. Vivier 2003 
     7; F. Pinsard adaptation to new SAXO 
     8; according to SAXO ./SRC/Tests/tst_initorca2.pro 
    29; 
    3 @common 
     10; @todo 
     11; parametrisation for ORCA025 
     12; 
     13; zminmesh and izmaxmesh may be set to 0,0 because we only work with  
     14; surface problem (no z) whatever the resolution of ORCA. this will safe lot  
     15; of memory 
     16;  
     17; use ncdf_getaxis to recover meshmask dimension 
     18; on x, retrieve -1 and -1 (bande de recouvrement haut et bas) 
     19; on y, for ORCA2, retrieve -2 (bande de recouvrement ++ et ++)  
     20; 
     21; reminder : ORCA2 = 182 x 149 and ORCA025 1442 x 1021 
     22;  
     23; for ORCA025, user /keepcont in triangule call. 
     24; 
     25; @version 
     26; $Id$ 
     27;- 
     28; 
     29@cm_4mesh 
     30@cm_4cal 
     31@cm_4data 
     32; 
    433;--------------------------------------------------------- 
    5 ; bornes de la grille 
     34; boundaries of the read grid regarding to the original grid 
    635;---------------------------------------------------------- 
    7 ;ixminmesh  =2 
    8 ;ixmaxmesh  =181 
    9 ; ; 
    10 ; iyminmesh  =0 
    11 ; iymaxmesh  =147 
    12  
     36; 
    1337ixminmesh  =1 
    1438ixmaxmesh  =180 
    15  
    16 ;ixminmesh  =0 
    17 ;ixmaxmesh  =179 
    1839; 
    1940iyminmesh  =0 
    … …  
    2647time = 0 
    2748;------------------------------------------------------ 
    28 ; lecture de la grille 
     49; read the grid 
    2950;------------------------------------------------------ 
    3051iodir = '/usr/work/sur/fvi/OPA/ORCA2/' 
    3152 
    32 ;key_shift = 31 
    33 key_shift = 0 
    3453key_stride = [1, 1, 1] 
    3554ncdf_meshlec, 'meshmask_bab.nc', glamboundary = [20, 380] 
    36 ;, glamboundary = [20, 380] 
    37 ;,/checkdat 
    3855;------------------------------------------------------------- 
    3956domdef 
    4057; 
    41 key_periodique = 1 
    42 triangles = triangule() 
     58triangles_list = triangule() 
    4359;---------------------------------------------------------- 
    44 ; bornes pour la lecture des donnees 
     60; boundaries of the data regarding to the original grid 
    4561;---------------------------------------------------------- 
    4662jpidta = jpiglo 
    … …  
    5369izmindta = 0 
    5470izmaxdta = jpkdta-1 
    55  
     71;---------------------------------------------------------- 
     72@updateold 
Note: See TracChangeset for help on using the changeset viewer.