Changeset 28

Timestamp:

01/12/09 17:48:37 (15 years ago)

Author:

pinsard

Message:

bug fix on sauvegrads if now after 19991231

File:

• trunk/src/sauvegrads.m (modified) (3 diffs)

trunk/src/sauvegrads.m

@@ -57 +57 @@
 % JMG le 10/03/94
 %
+% - fplod 2009-01-12T16:46:41Z aedon.locean-ipsl.upmc.fr (Darwin)
+%
+%   * date of day was not ok after 19991231
+%
 % - fplod 2009-01-05T11:01:41Z aedon.locean-ipsl.upmc.fr (Darwin)
 %
@@ -105 +109 @@
 end
 
-% Init date du jour pour enregistrement
+% Init date for record
 date1=date;
-date2=[date1(1:2),upper(date1(4:6)),'19',date1(8:9)];
+date2=[date1(1:2),upper(date1(4:6)),date1(8:11)];
 % test sur les arguments
 [dimy dimx]=size(matrice);
@@ -120 +124 @@
 texte=['UNDEF -2E5633 ',10];
 fwrite(fid,texte,'char');
-texte=['TITLE Fichier g??n??r?? par la fonction sauvegrads de MATLAB ',10];
+texte=['TITLE File generated by sauvegrads de MATLAB ',10];
 fwrite(fid,texte,'char');
 texte=['XDEF ',num2str(dimx),' LINEAR ',num2str(lon),'  ',num2str(inclon),' ',10];