- Timestamp:
- 05/02/06 16:30:27 (18 years ago)
- Location:
- trunk
- Files:
-
- 4 added
- 1 deleted
- 2 copied
Legend:
- Unmodified
- Added
- Removed
-
trunk/Obsolete/common.pro
r31 r33 1 ;+ 2 ; 3 ; MODIFICATION HISTORY: Sebastien Masson (smasson@lodyc.jussieu.fr) 4 ; 14/8/98 5 ;- 6 ;environement 7 common acces_lodc,loginlodyc,machlodyc, loginipsl, machipsl 8 ; 9 ;taille de la matrice 10 ; 11 common coord,jpi,jpj,jpk,jpt, jpiglo, jpjglo, jpkglo, jpidta, jpjdta, jpkdta 12 common zoom_grille,ixminmesh,ixmaxmesh,iyminmesh,iymaxmesh,izminmesh,izmaxmesh 13 common parameters, ccmeshparameters, ccreadparameters 14 ; 15 ;tableau definit dans meshmask 16 ; 17 common glam,glamf,glamt,glamu,glamv 18 common gphi,gphif,gphit,gphiu,gphiv 19 common e12,e1t,e2t,e1u,e2u,e1v,e2v,e1f,e2f 20 common mask,tmask,umaskred,vmaskred, fmaskredx, fmaskredy 21 common tab,ff,gdept,gdepw,e3t,e3w 22 ; 23 ; pour la lecture des champs 24 ; 25 common zoom_data,ixmindta,ixmaxdta,iymindta,iymaxdta,izmindta,izmaxdta 26 ; 27 ; 28 ; variables liees aux hovmoller 29 ; 30 common axe_temps,jptmax,time 31 ; 32 ; 33 ; variables liees a la def du tableau a traiter 34 ; 35 common date,year,month,day,niveau,prefix 36 common attributs,varname,vargrid,vardate,varexp,varunit,valmask 37 ; 38 ; fenetre 39 ; 40 COMMON sauvegarde, sauveps 41 ; 42 ; graph 43 ; 44 COMMON certaines_couleurs, c_lab, c_cont, c_cote 45 COMMON taille_feuille, grandfeuille, petitfeuille, margescadre, ccwindowsize 46 common pour_palit, coefpalit 47 common vecteur_couleur,rouge,vert,bleu ,couleur 48 common pour_placecolor,colorbardiv,colorbarinf,colorbarsup 49 ; 50 ; grille et situation geographique 51 ; 52 common carte,lat1,lat2,lon1,lon2,prof1,prof2 53 common liees_a_domdef, $ 54 nxt,nyt,nzt,nxu,nyu,nxv,nyv,nxf,nyf,nzw, $ 55 premierxt,premierxu,premierxv,premierxf, $ 56 premieryt,premieryu,premieryv,premieryf,premierzt,premierzw, $ 57 dernierxt,dernierxu,dernierxv,dernierxf, $ 58 dernieryt,dernieryu,dernieryv,dernieryf,dernierzt,dernierzw 59 ; 60 COMMON liees_a_triangule, triangles, cointerremont, cointerredesc 61 ; 62 COMMON pour_de_belles_cotes, listcoast 63 ; 64 ; 65 COMMON keys, key_mpp, key_portrait, key_irregular, key_shift, key_performance, key_periodique $ 66 , key_offset, key_stride, key_gridtype, key_reverse 67 ; 68 COMMON directories, tmpdir, workdir, homedir, iodir, animdir, psdir, imagedir 69 ; 70 COMMON commentaires, bavard, langage 71 72 73 74 75 1 @all_cm -
trunk/ToBeReviewed/INIT/initorca05.pro
r31 r33 1 1 ; 2 ; 3 @common 2 @cm_4mesh 3 @cm_4cal 4 @cm_4data 4 5 ;------------------------------------------------------------ 6 ; grid boundaries 5 7 ;---------------------------------------------------------- 6 ;---------------------------------------------------------- 7 ; bornes de la grille 8 ;---------------------------------------------------------- 9 ixminmesh =2 10 ixmaxmesh =-1 8 ixminmesh =1 9 ixmaxmesh =720 11 10 ; 12 11 iyminmesh =0 13 iymaxmesh =5 0912 iymaxmesh =510 14 13 ; 15 izminmesh = -116 izmaxmesh = -114 izminmesh =0 15 izmaxmesh =29 17 16 ; 18 17 jpt=1 19 18 time = 0 20 19 ;------------------------------------------------------ 21 ; lecture de la grille20 ; read the grid 22 21 ;------------------------------------------------------ 23 iodir = '/usr1/antiope/smasson/DATA/ORCA/' 24 iodir = '/usr/ipsl_temp/smlod/' 25 key_shift = 107 22 iodir = '/raid7/smasson/ERA04/' 26 23 key_stride = [1, 1, 1] 27 ncdf_mesh lec, 'meshmask.orca.05d.nc', glamboundary = [20, 380], /checkdat24 ncdf_meshread, 'ERA04_meshmask.nc', glamboundary = [20, 380] 28 25 ;------------------------------------------------------------- 29 26 domdef 30 27 ; 31 key_periodique = 1 32 triangles = triangule() 28 triangles_list = triangule(/keep_cont) 33 29 ;---------------------------------------------------------- 34 ; bornes pour la lecture des donnees30 ; data boundaries 35 31 ;---------------------------------------------------------- 36 32 jpidta = jpiglo 37 33 jpjdta = jpjglo 38 jpkdta = jp jglo34 jpkdta = jpkglo 39 35 ixmindta = 0 40 36 ixmaxdta = jpidta-1 … … 43 39 izmindta = 0 44 40 izmaxdta = jpkdta-1 45 41 ;---------------------------------------------------------- 42 @updateold
Note: See TracChangeset
for help on using the changeset viewer.