Changeset 30

Timestamp:

08/26/09 18:40:11 (15 years ago)

Author:

pinsard

Message:

ajout avertissement pb contourf octave 3.2.2

File:

• trunk/PROGRAMMES/eof_NCEP_sais.m (modified) (7 diffs)

trunk/PROGRAMMES/eof_NCEP_sais.m

@@ -30 +30 @@
 % ``eof_NCEP_sais`` calcule ++blabla++
 %
-% ``eof_NCEP_sais`` sauvegarde dans 
+% ``eof_NCEP_sais`` sauvegarde dans
 % ``../DONNEES/eof_SSTmens_tropAtl30N-20S.mat``.
 %
@@ -40 +40 @@
 %  - valeurs propres de la matrice de covariance
 %
-% ``eof_NCEP_sais`` sauve ces images dans 
+% ``eof_NCEP_sais`` sauve ces images dans
 % ``./eof_SSTmens_tropAtl30N-20S_[123].ps``.
 %
@@ -87 +87 @@
 % tester la branche NetCDF
 %
+% comprendre le pb octave 3.2.2
+%
 % EVOLUTIONS
 % ==========
@@ -92 +94 @@
 % $Id$
 %
+% - fplod 2009-08-26T16:34:59Z aedon.locean-ipsl.upmc.fr (Darwin)
+%
+%   * pb contourf sous octave 3.2.2
+%
 % - fplod 2009-08-26T11:05:36Z aedon.locean-ipsl.upmc.fr (Darwin)
 %
-%   * remplacement de ``eps`` par ``ps`` pour pouvoir imprimer les figures 
+%   * remplacement de ``eps`` par ``ps`` pour pouvoir imprimer les figures
 %     produites par ``octave``
 %
-%     Dans le fichier .eps produit par ``octave`` on pouvait lire 
+%     Dans le fichier .eps produit par ``octave`` on pouvait lire
 %     ``!PS-Adobe-2.0 EPSF-2.0``.
-% 
-%     Aucun message d'erreur n'apparaît suite à la demande d'impression 
+%
+%     Aucun message d'erreur n'apparaît suite à la demande d'impression
 %     ``zeus$ lpr -o job-sheets='none' eof_SSTmens_tropAtl30N-20S_1.octave.ps``,
 %     mais aucune feuille ne sort.
-% 
+%
 %     Pour info dans le fichier .eps produit par matlab, on pouvait lire
 %     ``%!PS-Adobe-2.0 EPSF-1.2``. Aucun souci d'impression avec ce fichier !
@@ -333 +339 @@
    figure(ifigure);
    subplot(2,2,i)
+   z=squeeze(TABEOF(:,:,i));
    if (run_octave == 0)
     x=lon;
     y=lat;
+    contourf(x,y,z,lev);
    else
-    [x,y]=meshgrid(lon,lat);
+    switch OCTAVE_VERSION
+     case {'3.0.2'}
+      [x,y]=meshgrid(lon,lat);
+      contourf(x,y,z,lev);
+     case {'3.2.2'}
+      warning('www : do no know about octave 3.2.2 contourf usage');
+%  A(I): Index exceeds matrix dimension ++
+     otherwise
+      warning('www : do no know about octave contourf usage');
+     end
    end
-   z=squeeze(TABEOF(:,:,i));
-   contourf(x,y,z,lev);
    caxis(clip_lev);
    hold on
@@ -366 +381 @@
     title('degC')
   else
-    colorbar('East')
+    %++colorbar('East')
   end;
-  
+
    % sauvegarde de la figure
    printer='ps';
@@ -400 +415 @@
 ifigure=3;
 figure(ifigure);
+initfig;
 bar(flipud(pctg_var))
 xlim([0 10])