Changeset 540 for trunk

Timestamp:

04/24/12 18:19:17 (12 years ago)

Author:

lelod

Message:

changement role et format desc

Location:

trunk/src

Files:

• extract_amsua.pro (modified) (2 diffs)
• file_amsu_t2_to_mem.pro (modified) (1 diff)
• mem_to_file_amsu_t2.pro (modified) (1 diff)

trunk/src/extract_amsua.pro

@@ -331 +331 @@
 ; chaque instrument
 ; boucle sur les elements de la liste
-
+desc=0
+;
 msg = report(['iii : ' + routine + ' : traitement du jour' $
       + string(yyyy, format='(1x,I4.4)') $
@@ -401 +402 @@
       jour_ama=amaday[0]        ; jour du passage
 ; recherche du sens de l'orbite : descendante (1) ou montante (0)
-      lat0=amalat[*,0]
-      lat1=amalat[*,1]
-      if (mean(lat1-lat0) lt 0) then begin
-         desc=1
-      endif else begin
-         desc=0
-      endelse
+;      lat0=amalat[*,0]
+;      lat1=amalat[*,1]
+;      if (mean(lat1-lat0) lt 0) then begin
+         desc=desc+1
+;      endif else begin
+;         desc=0
+;      endelse
 ;
 ; correction nadir des donnees

trunk/src/file_amsu_t2_to_mem.pro

@@ -158 +158 @@
 ;
 ; build data format string
-format_data = '(i1,1x,f8.4,i3,1x,f8.3,1x,f8.3,1x,I1,1x,f8.3)'
+format_data = '(i2,1x,f8.4,i3,1x,f8.3,1x,f8.3,1x,I1,1x,f8.3)'
 ;
 header1= { yyyy : 0L $

trunk/src/mem_to_file_amsu_t2.pro

@@ -171 +171 @@
 
 ; build data format string
-format_data = '(i1,1x,f8.4,i3,1x,f8.3,1x,f8.3,1x,I1,1x,f8.3)'
+format_data = '(i2,1x,f8.4,i3,1x,f8.3,1x,f8.3,1x,I1,1x,f8.3)'
 ;
 nrows = n_elements(amsu_t2.data)