; ; @common ;---------------------------------------------------------- ; bornes de la grille ;---------------------------------------------------------- ;ixminmesh =393 ixminmesh =1 ixmaxmesh =551 ixminmesh =13 ixmaxmesh =232 ; iyminmesh =20 iymaxmesh =80 ; izminmesh =0 izmaxmesh =21 ; jpt = 1 time = 0 ;------------------------------------------------------- ; lecture de la grille ;------------------------------------------------------ iodir = '/usr1/antiope/smasson/DATA/' iodir = '/mnt/newdisk1/smasson/SCSIDISK/' key_shift = 0 key_stride = [1, 1, 1] ncdf_meshlec ;------------------------------------------------------------- domdef ; key_stride = [1, 1, 1] key_periodique = 0 triangles = triangule() ;---------------------------------------------------------- ; bornes pour la lecture des donnees ;---------------------------------------------------------- ixmindta = ixminmesh & iymindta = iyminmesh & izmindta = izminmesh ixmaxdta = ixmaxmesh & iymaxdta = iymaxmesh & izmaxdta = izmaxmesh jpidta = ixmaxdta-ixmindta+1 jpjdta = iymaxdta-iymindta+1 jpkdta = izmaxdta-izmindta+1 ;-------------------------------------------------------------