Changeset 458 for trunk

Timestamp:

12/13/11 10:33:14 (13 years ago)

Author:

pinsard

Message:

try to fix error in extract_amsua.pro

File:

• trunk/src/extract_amsua.pro (modified) (10 diffs)

trunk/src/extract_amsua.pro

@@ -14 +14 @@
 ; appelle le prgm de lecture
 ;
-; appelle interpol_correc, qui fournit les fonctions de correction au
+; appelle :ref:`interpol_correc`, qui fournit les fonctions de correction au
 ; nadir et les applique, en fonction du masque terre-mer issu de la
 ; carte de bathymetrie de S. Masson
@@ -46 +46 @@
 ;           fontname=Courier,
 ;           color=blue,
-;           URL="http://forge.ipsl.jussieu.fr/varamma/browser/trunk/src/extract_amsuab.pro",
-;           label="${PROJECT}/src/extract_amsuab.pro"];
-;
-;           {amsu_lista amsu_t1} -> {extract_amsuab} -> {amsu_t2};
+;           URL="http://forge.ipsl.jussieu.fr/varamma/browser/trunk/src/extract_amsua.pro",
+;           label="${PROJECT}/src/extract_amsua.pro"];
+;
+;           {amsu_lista amsu_t1} -> {extract_amsua} -> {amsu_t2};
 ;       }
 ;
@@ -83 +83 @@
 ;   IDL> lat_min=-30.
 ;   IDL> lat_max=45.
-;   IDL> extract_amsua, numch, yyyy, mm, dd, lon_min, lon_max, lat_min, lat_max
+;   IDL> extract_amsua, numch, yyyy, mm, dd, resol, lon_min, lon_max, lat_min, lat_max
 ;
 ;   ${PROJECT_ID}/AMSU/2006/08/a5_20060801_060w30s_050e45n.dat must have been created.
 ;
-; TODO
-;
-; lelod 20111212
-;
-;
 ; :History:
 ;
 ; $Id$
 ;
-; lelod 20111211
-;  reintegre les modules de correct_nadir_amsu dans extract
-; prevu decodage de numch pour connaitre le nom instrument et le
-; numero du canal (pas fini, au debut) --> a faire aussi dans les
-; ssprgm appeles (interpol_correc)
-; espere que c'est le dernier avatar de cette !!!!?XX^! de
-; chaine de traitement AMSU
-;
-; $URL: svn+ssh://lelod@forge.ipsl.jussieu.fr/ipsl/forge/projets/varamma/svn/trunk/src/extract_amsuab.pro $
-;
+; $URL: svn+ssh://lelod@forge.ipsl.jussieu.fr/ipsl/forge/projets/varamma/svn/trunk/src/extract_amsua.pro $
+;
+; - fplod 20111213T092550Z aedon.locean-ipsl.upmc.fr (Darwin)
+;
+;   * fix syntax error : rewrite labfile label
+;   * fix nocanal string to integer type
+;   * fix example (missing resol in call)
+;
+; - lelod 20111211
+;
+;   * reintegre les modules de correct_nadir_amsu dans extract
+;     prevu decodage de numch pour connaitre le nom instrument et le
+;     numero du canal (pas fini, au debut) --> a faire aussi dans les
+;     ssprgm appeles (interpol_correc)
+;     espere que c'est le dernier avatar de cette !!!!?XX^! de
+;     chaine de traitement AMSU
 ;
 ; - fplod 20111209T125312Z aedon.locean-ipsl.upmc.fr (Darwin)
@@ -177 +178 @@
 ; :Todo:
 ;
+; make it work : resete un n_elements bizarre que IDL ne détecte pas à la
+; compilation
+;
 ; lever le doute sur le contenu du fichier écrit par le printf (je (fplod)
 ; crains des zesors louches!!).louchse
@@ -199 +203 @@
 ; get rid of uppercase
 ;
+; check args
+;
+; decrire la limitation avec les seuils
+;
+; est-ce que la zon géographique ne peut pas ere déduite des min et max lus ce
+; qui eviterait des parametres dont on avait réussi à se débarasser
+;
 ;-
 PRO extract_amsua, numch, yyyy, mm, dd, resol, lon_min, lon_max, lat_min, lat_max
@@ -205 +216 @@
 ;
 @cm_project
+
 nomcanal=strmid(numch,0,1)
-;nocanal=strmid(numch,1,1)
-;??????? passage en numerique
-nocanal=5
-
+nocanal=0L
+reads, strmid(numch,1,1),nocanal,format='(i1.1)'
 
 tbmin=100
 tbmax=350
-
 
 ; lecture fichier land - sea (S. Masson)
@@ -225 +234 @@
 jpje = n_elements(yye)
 
-; extraction zone donnees AMSU 
+; extraction zone donnees AMSU
 domdef,lon_min,lon_max,lat_min,lat_max
 bate = ncdf_lec(file, var = 'z') GT 0
@@ -355 +364 @@
       endfor
    endfor
- 
+
 
 ; appel a interpolswath pour ajuster les pixels amsua sur une grille
@@ -404 +413 @@
          print, 'www : aucun point dans la zone'
       endelse
-      
+
    endfor
 
@@ -444 +453 @@
 ; fin boucle sur les fichiers lus
 endwhile
+labfile:
 print, 'fermeture de ', fileout
 close, /all