Changeset 44 for trunk/Obsolete/nlecan.pro

Timestamp:

05/02/06 18:13:44 (18 years ago)

Author:

pinsard

Message:

upgrade of LECTURE/ReadWrite according to cerbere.lodyc.jussieu.fr: /usr/home/smasson/SAXO_RD/ : files

File:

• trunk/Obsolete/nlecan.pro (copied) (copied from trunk/LECTURE/nlecan.pro) (2 diffs)

trunk/Obsolete/nlecan.pro

@@ -60 +60 @@
       vargrid=grille
       nomfich=prefix+'.moyenne.annuelle.grid.'+vargrid+'.nc'
+      IF !version.OS_FAMILY EQ 'unix' THEN spawn, '\file '+iodir+nomfich+' > /dev/null'      
       cdfid=ncdf_open(iodir+nomfich)
       varcontient=ncdf_varinq(cdfid,nom)
@@ -68 +69 @@
          return,  report('LES FICHIERS: '+iodir+prefix+'.moyenne.annuelle.grid... n''existe pas.')
       for i=0,n_elements(quelsfichiers)-1 do begin
+         IF !version.OS_FAMILY EQ 'unix' THEN spawn, '\file '+quelsfichiers[i]+' > /dev/null'
          cdfid=ncdf_open(quelsfichiers[i])
          contient=ncdf_inquire(cdfid)