; ; @common ;--------------------------------------------------------- ; bornes de la grille ;---------------------------------------------------------- ;ixminmesh =2 ;ixmaxmesh =181 ; ; ; iyminmesh =0 ; iymaxmesh =147 ixminmesh =1 ixmaxmesh =180 ;ixminmesh =0 ;ixmaxmesh =179 ; iyminmesh =0 iymaxmesh =147 ; izminmesh =-1 izmaxmesh =-1 ; jpt = 1 time = 0 ;------------------------------------------------------ ; lecture de la grille ;------------------------------------------------------ iodir = '/usr/work/sur/fvi/OPA/ORCA2/' ;key_shift = 31 key_shift = 0 key_stride = [1, 1, 1] ncdf_meshlec, 'meshmask_bab.nc', glamboundary = [20, 380] ;, glamboundary = [20, 380] ;,/checkdat ;------------------------------------------------------------- domdef ; key_periodique = 1 triangles = triangule() ;---------------------------------------------------------- ; bornes pour la lecture des donnees ;---------------------------------------------------------- jpidta = jpiglo jpjdta = jpjglo jpkdta = jpkglo ixmindta = 0 ixmaxdta = jpidta-1 iymindta = 0 iymaxdta = jpjdta-1 izmindta = 0 izmaxdta = jpkdta-1