; ; @common ;--------------------------------------------------------- ; bornes de la grille ;---------------------------------------------------------- ;computegrid, 20., -87.5, 2.5, 2.5, 144, 72 computegrid, 0., -90, 2.5, 2.5, 144, 73 tmask = replicate(1, jpi, jpj) ; jpt = 1 time = 0 ;------------------------------------------------------ ; lecture de la grille ;------------------------------------------------------ iodir = '/usr1/antiope/smasson/DATA/' key_shift = 0 key_stride = [1, 1, 1] ;------------------------------------------------------------- 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 ;