; ; @common ;---------------------------------------------------------- ; bornes de la grille ;---------------------------------------------------------- ;ixminmesh =393 ixminmesh =-1 ixmaxmesh =-1 ixminmesh =-1 ixmaxmesh =-1 ; iyminmesh =-1 iymaxmesh =-1 ; izminmesh =0 izmaxmesh =0 izminmesh =-1 izmaxmesh =-1 ; jpt = 1 time = 0 ;------------------------------------------------------- ; lecture de la grille ;------------------------------------------------------ iodir = '/usr1/antiope/smasson/DATA' key_shift = 0 ncdf_meshlec ;------------------------------------------------------------- domdef ; 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 ;-------------------------------------------------------------