Changeset 527 for trunk

Timestamp:

04/17/12 12:28:16 (12 years ago)

Author:

pinsard

Message:

usage of key_performance

Location:

trunk/src

Files:

• cresamsu.pro (modified) (2 diffs)
• extract_amsua.pro (modified) (10 diffs)
• file_bathy_to_mem.pro (modified) (2 diffs)
• traite_amsuab.sh (modified) (2 diffs)

trunk/src/cresamsu.pro

@@ -141 +141 @@
 @cm_project
 
+if keyword_set(key_performance) EQ 1 THEN BEGIN
+    time1 = SYSTIME(1)
+ENDIF
+;
 tbmin=100
 tbmax=350
@@ -346 +350 @@
 
 nextday:
-    PRINT,'www : passage au fichier suivant ', SYSTIME()
+       IF key_performance EQ 1 THEN BEGIN
+           PRINT,'ppp : durée intermediaire cresamsu au passage au fichier suivant ', SYSTIME(1)-time1, format='(a, 1x,F12.6)'
+       ENDIF
       endfor
    endfor

trunk/src/extract_amsua.pro

@@ -281 +281 @@
 @cm_project
 @common
-
+;
+if keyword_set(key_performance) EQ 1 THEN BEGIN
+    time1 = SYSTIME(1)
+ENDIF
+;
 ; test if some files to read
 CASE size(files_list,/DIMENSION) OF
@@ -301 +305 @@
 tbmin=100
 tbmax=350
-PRINT, 'www : debut programme extract_amsu',SYSTIME()
+;
 jpie = n_elements(xxe)
 jpje = n_elements(yye)
@@ -315 +319 @@
 print, 'iii : traitement du jour ',yyyy,mm,dd
 a = STRARR(nb_file)
-;PRINT,'demarrage boucle sur lichiers', SYSTIME()
+IF key_performance EQ 1 THEN BEGIN
+    PRINT, 'ppp : durée intermediaire extract_amsua demarrage boucle sur fichier ', SYSTIME(1)-time1
+ENDIF
 FOR ifile = 0, nb_file - 1 do begin
    filea = files_list[ifile]
@@ -321 +327 @@
    COMMON amsua_header,ama_head
    COMMON amsua_data  ,ama_scan
-   print, 'ouverture et lecture du fichier ', filea, SYSTIME()
+   IF key_performance EQ 1 THEN BEGIN
+       print, 'ppp : durée intermediaire extract_amsua ouverture et lecture du fichier', filea, SYSTIME(1)-time1, format='(a, 1x, a, 1x, F12.6)'
+   ENDIF
    openr,lu1,filea,Error=erra,/get_lun
    read_amsua1c,filea, flag1
@@ -356 +364 @@
    ttt=REFORM(ama_scan.scnlintime/3600000.)
    jnd=where(amalong[midpix,*] gt lonmin-15 and amalong[midpix,*] lt lonmax+15 and amalati[midpix,*] gt latmin-15 and amalati[midpix,*] lt latmax+15 ,nzon)
-   print,"iii : nb de points du fichier dans le domaine geographique +15deg ",nzon, SYSTIME()
+   IF key_performance EQ 1 THEN BEGIN
+       print, 'ppp : durée intermediaire extract_amsua nb de points du fichier dans le domaine geographique +15deg', nzon, SYSTIME(1)-time1, format='(a, 1x, I12.12, 1x, F12.6)'
+   ENDIF
+   openr,lu1,filea,Error=erra,/get_lun
    if nzon gt 1 then begin
       amalat=amalati[*,jnd]
@@ -382 +393 @@
          ch_nadir=fltarr(nbpix,nzon)
          landseamask=intarr(nbpix,nzon)+2 ; valeur hors zone selectionnee
-        ; PRINT,'boucle sur les points du fichier, correction nadir', SYSTIME()
+         IF key_performance EQ 1 THEN BEGIN
+               PRINT, 'ppp : durée intermediaire extract_amsua boucle sur les points du fichier, correction nadir', SYSTIME(1)-time1, format='(a, 1x, F12.6)'
+         ENDIF
 
          for isc=0L,nzon-1L do begin
@@ -418 +431 @@
 
          endfor
-        ; PRINT, 'fin boucle ',SYSTIME()
+        IF key_performance EQ 1 THEN BEGIN
+             PRINT, 'ppp : durée intermediaire extract_amsua fin boucle ', SYSTIME(1)-time1, format='(a, 1x, F12.6)'
+        ENDIF
          moych=fltarr(nbpix)
 
@@ -468 +483 @@
             endif
          endfor
-     ; PRINT,'fin interpolation et selection des points de la zone ', SYSTIME()
+         IF key_performance EQ 1 THEN BEGIN
+             PRINT, 'ppp : durée intermediaire extract_amsua fin interpolation et selection des points de la zone ', SYSTIME(1)-time1, format='(a, 1x, F12.6)'
+         ENDIF
 
          nn=n_elements(chint)
@@ -499 +516 @@
 ; fin boucle sur les fichiers lus
    endif
-   PRINT,'www : passage au fichier suivant ', SYSTIME()
+   IF key_performance EQ 1 THEN BEGIN
+       PRINT, 'ppp : durée intermediaire extract_amsua au passage au fichier suivant  ', SYSTIME(1)-time1, format='(a, 1x, F12.6)'
+   ENDIF
 endfor
 labfile:
@@ -532 +551 @@
 
 realend:
-    PRINT, 'www : fin programme extract_amsua ',SYSTIME()
+    IF key_performance EQ 1 THEN BEGIN
+       PRINT, 'ppp : durée totale extract_amsua ', SYSTIME(1)-time1, format='(a, 1x, F12.6)'
+   ENDIF
 end

trunk/src/file_bathy_to_mem.pro

@@ -97 +97 @@
 @cm_project
 @common
-
 ; Return to caller if errors
 ON_ERROR, 2
 ;
 result = -1
-
-PRINT, 'www : debut programme file_bathy_to_mem',SYSTIME()
+;
+if keyword_set(key_performance) EQ 1 THEN BEGIN
+    time1 = SYSTIME(1)
+ENDIF
+;
 ; lecture fichier land - sea (S. Masson)
 file=project_id_env+'/MASK/ETOPO1_Ice_g_gmt4.nc'
@@ -120 +122 @@
 zony=where(yye1 ge latmin-15. and yye1 le latmax+15.)
 yye=yye1[zony]
-
+;
+IF key_performance EQ 1 THEN BEGIN
+    PRINT, 'ppp : durée file_bathy_to_mem :', SYSTIME(1)-time1, format='(a, 1x, F12.6)'
+ENDIF
+;
 result = 0
 return, result

trunk/src/traite_amsuab.sh

@@ -424 +424 @@
 echo "hostname=${hostname}" 1>> ${log}
 echo "runtime=${log_date}" 1>> ${log}
+echo "log=${log}" 1>> ${log}
 echo "IDL_CMD=${IDL_CMD}" 1>> ${log}
 unset log_date
@@ -525 +526 @@
 .compile interpol_correc
 .compile extract_amsua
+key_performance = 1
      result = traite_amsu_${$}()
 EOF