Changeset 25 for trunk/ToBeReviewed/CALCULS/level2depth.pro
- Timestamp:
- 05/02/06 14:59:12 (18 years ago)
- File:
-
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
trunk/ToBeReviewed/CALCULS/level2depth.pro
r23 r25 45 45 ;------------------------------------------------------------ 46 46 niveaux = litchamp(tab) 47 grille,mask, glam,gphi,gdep,nx,ny,nz,premierx,premiery,premierz,dernierx,derniery,dernierz47 grille,mask, -1, -1,gdep,nx,ny,nz,firstx,firsty,firstz,lastx,lasty,lastz 48 48 ;--------------------------------------------------------------- 49 49 ; verification de la coherence entre la taille du tableau et le domaine definit par domdef … … 52 52 if taille[0] NE 2 then return, report('le champ en entree doit contenir un tableau 2d') 53 53 case 1 of 54 taille[1] eq jpi and taille[2] eq jpj:niveaux=niveaux[ premierx:dernierx, premiery:derniery]54 taille[1] eq jpi and taille[2] eq jpj:niveaux=niveaux[firstx:lastx, firsty:lasty] 55 55 taille[1] eq nx and taille[2] eq ny: 56 56 else:return, report('Probleme d''adequation entre les tailles du domaine et celle du champ.')
Note: See TracChangeset
for help on using the changeset viewer.