Changeset 468 for trunk

Timestamp:

12/15/11 15:54:48 (12 years ago)

Author:

lelod

Message:

modif cresamsu nom change + ajout mask dans le cdf

Location:

trunk/src

Files:

• cresamsu.pro (added)
• idl_amsu_netcdf.pro (modified) (6 diffs)

trunk/src/idl_amsu_netcdf.pro

@@ -109 +109 @@
 ;
 ;-
-pro idl_amsu_netcdf, numch, datain, lats, lons, timesin
+pro idl_amsu_netcdf, numch, datain, lats, lons, timesin, maskin
 ;
 compile_opt idl2, strictarrsubs
@@ -141 +141 @@
 ; definition des tableaux qui vont contenir les valeurs des fichiers ascii
 moyenne_tb = fltarr(nblon, nblat, nbtime)
+landseamask= fltarr(nblon, nblat, nbtime)
 xlon = fltarr(nblon)
 ylat = fltarr(nblat)
@@ -146 +147 @@
 ;
 moyenne_tb[*,*,*] = datain[*,*,*]
+landseamask[*,*,*] = maskin[*,*,*]
 xlon[*] = lons
 ylat[*] = lats
@@ -173 +175 @@
 ;
 ; declaration des variables
-varid = lonarr(4)
+varid = lonarr(5)
 varid[0] = ncdf_vardef(id, 'xlon', [dimidx], /double)
 varid[1] = ncdf_vardef(id, 'ylat', [dimidy], /double)
 varid[2] = ncdf_vardef(id, 'time', [dimidt], /double)
 varid[3] = ncdf_vardef(id, 'moyenne_tb',[dimidx,dimidy,dimidt], /float)
+varid[4] = ncdf_vardef(id, 'landseamask',[dimidx,dimidy,dimidt], /int) ; verifier syntaxe!!!
 ;
 ; attributs de chaque variable
@@ -189 +192 @@
 ncdf_attput, id, varid[3], 'missing_value', '-999'
 ncdf_attput, id, varid[3], 'unit', 'degree_kelvin'
+ncdf_attput, id, varid[4], 'short_name', 'mask'
+ncdf_attput, id, varid[3], 'unit', 'number (0 ocean, 1 land)'
 ;
 ; remplissage de l'entete
@@ -198 +203 @@
 ; remplissage de la variable
 ncdf_varput, id, varid[3], moyenne_tb
+ncdf_varput, id, varid[4], landseamask
 ;
 ; fermeture du fichier